下記のマクロは先日教えて頂いた、マクロです。
コピー元の指定フォルダ内の指定ファイル名「■北海道_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の質問です 119から足したり引いたりしたいです E3には「=119+C3+D3」が入って
Excel(エクセル)
-
9
VBA ファイル名取得
Visual Basic(VBA)
-
10
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
11
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
12
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
13
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
17
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
18
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
19
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
20
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
frxファイルの役目
-
エクセルのハイパーリンクがコ...
-
[エクセル]コピーするとオブジ...
-
Vba初心者です。下記のコード助...
-
バッチファイル 別ファイルにリ...
-
C言語について教えて欲しいです...
-
vbsでファイルやフォルダのコピ...
-
DOSコマンドのコピー完了判定
-
VBSでExcelシートのコピー
-
アクセス クエリを別のファイ...
-
bat 同名ファイルコピー時にリ...
-
バッチファイル XCOPYで上書き...
-
Runtime.exec()について
-
エクセルの保護ビューについて
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
Excel VBAで値コピーが使用でき...
-
コマンドプロンプトで、指定し...
-
FTPとファイルコピーの違いにつ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
frxファイルの役目
-
エクセルVBAで開いているファイ...
-
エクセルのハイパーリンクがコ...
-
[エクセル]コピーするとオブジ...
-
バッチファイル 別ファイルにリ...
-
Vba初心者です。下記のコード助...
-
ファイルサーバ上のファイルが...
-
Gitについて質問。 クローンし...
-
エクセル2010、図が大きすぎま...
-
バッチファイルのコピーで
-
現在のブックを閉じないで、マ...
-
エクセルのマクロについて教え...
-
vbsでExcelのシートをコピーす...
-
同じファイル名 上書きしないフ...
-
アクセス クエリを別のファイ...
-
マインクラフトPCをプレイしよ...
-
xcopyでのバッチコピー方法でコ...
-
開いている別のファイルにExcel...
おすすめ情報