下記のマクロは先日教えて頂いた、マクロです。
コピー元の指定フォルダ内の指定ファイル名「■北海道_20230731更新.pdf」の
「_20230731更新」この部分が点検終了日付をしてしており、都度、変更になります。
ワイルドカードを利用して「■北海道*」をコピー先にコピー出来る方法を教えてください。
又、コピー後は元のファイル名+「_Copy.pdf」となるようにお願いいたします。
現状のマクロ
Sub 北海道条例()
On Error Resume Next
Dim targetCities As Variant
Dim city As String
Dim isExcluded As Boolean
Dim copyFilePath As String
Dim destinationFilePath As String
' 特定の都市名リスト
targetCities = Array("旭川市", "釧路市", "札幌市", "室蘭市", "小樽市", "帯広市", "苫小牧市", "函館市", "北見市")
' セル F3 の都市名を取得
city = Sheets("受付").Range("F3").Value
' 都市名がリストに含まれているかどうかをチェック
isExcluded = False
For Each c In targetCities
If city = c Then
isExcluded = True
Exit For
End If
Next c
' リストに含まれていない場合
If Not isExcluded Then
' コピー元のファイルパス
copyFilePath = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\■北海道_20230731更新.pdf"
' コピー先のファイルパス
destinationFilePath = ThisWorkbook.Path & "\■北海道_20230731更新_Copy.pdf"
' ファイルをコピー
FileCopy copyFilePath, destinationFilePath
End If
End Sub
以上となります。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Sub 北海道条例()
On Error Resume Next
Dim targetCities As Variant
Dim city As String
Dim isExcluded As Boolean
Dim sourceFolder As String
Dim filePattern As String
Dim sourceFileName As String
Dim destinationFilePath As String
' 特定の都市名リスト
targetCities = Array("旭川市", "釧路市", "札幌市", "室蘭市", "小樽市", "帯広市", "苫小牧市", "函館市", "北見市")
' セル F3 の都市名を取得
city = Sheets("受付").Range("F3").Value
' 都市名がリストに含まれているかどうかをチェック
isExcluded = False
For Each c In targetCities
If city = c Then
isExcluded = True
Exit For
End If
Next c
' リストに含まれていない場合
If Not isExcluded Then
' コピー元のフォルダ
sourceFolder = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\"
' ファイルのパターン
filePattern = "■北海道*.pdf"
' 指定されたパターンに一致するファイルを検索
sourceFileName = Dir(sourceFolder & filePattern)
' 一致するファイルが見つかった場合
If sourceFileName <> "" Then
' コピー先のファイルパス
destinationFilePath = ThisWorkbook.Path & "\" & Replace(sourceFileName, ".pdf", "_Copy.pdf")
' ファイルをコピー
FileCopy sourceFolder & sourceFileName, destinationFilePath
Else
MsgBox "指定されたパターンに一致するファイルが見つかりませんでした。", vbExclamation
End If
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/02 16:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/04/02 06:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2024/04/08 16:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/04/01 17:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/11/08 10:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBA
Visual Basic(VBA)
-
VBAを使用した時間管理
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
VBAなくなるの?
Visual Basic(VBA)
-
5
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
6
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
7
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
-
8
エクセルでセルに標準で入力されている和暦を西暦に変換する方法はありますか?
Excel(エクセル)
-
9
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
10
EXCELの質問です 119から足したり引いたりしたいです E3には「=119+C3+D3」が入って
Excel(エクセル)
-
11
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
12
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
17
VBA ファイル名取得
Visual Basic(VBA)
-
18
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
19
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
20
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
バッチファイルのコピーで
-
バッチファイル XCOPYで上書き...
-
エクセル2010、図が大きすぎま...
-
エクセルのハイパーリンクがコ...
-
バッチファイル 別ファイルにリ...
-
同じファイル名 上書きしないフ...
-
ファイルサーバ上のファイルが...
-
VBSでExcelシートのコピー
-
bat 同名ファイルコピー時にリ...
-
Vba初心者です。下記のコード助...
-
frxファイルの役目
-
xcopyでのバッチコピー方法でコ...
-
Excel VBAで値コピーが使用でき...
-
FSO.CopyFileでのエラー無視方法
-
[エクセル]コピーするとオブジ...
-
任意のファイルを別のファイル...
-
「ファイルが見つかりません D...
-
vbsでExcelのシートをコピーす...
-
ExcelのVBA使用ファイルが保存...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
パワポでスライドをコピーでき...
-
エクセルVBAで開いているファイ...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
バッチファイルのコピーで
-
Excelのマクロについて教えてく...
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報