![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロは先日教えて頂いた、マクロです。
コピー元の指定フォルダ内の指定ファイル名「■北海道_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)
-
VBAコードについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
VBAなくなるの?
Visual Basic(VBA)
-
6
ワードVBA どの表か知ることはできますか
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
9
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
10
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
-
11
EXCELの質問です 119から足したり引いたりしたいです E3には「=119+C3+D3」が入って
Excel(エクセル)
-
12
エクセルでセルに標準で入力されている和暦を西暦に変換する方法はありますか?
Excel(エクセル)
-
13
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
14
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
17
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
18
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同じファイル名 上書きしないフ...
-
最新更新日のBATファイルコピー...
-
Excelのマクロについて教えてく...
-
パワポでスライドをコピーでき...
-
バッチファイル 別ファイルにリ...
-
ファイルサーバ上のファイルが...
-
マインクラフトPCをプレイしよ...
-
VBAでXCOPYの実行結果を取得したい
-
エクセルのハイパーリンクがコ...
-
コマンドプロンプトで、指定し...
-
ExeclVBAユーザーフォームから...
-
ファイルをコピーできない
-
エクセルのマクロについて教え...
-
FTPとファイルコピーの違いにつ...
-
日付の新しいファイルのみ自動...
-
エクセル2010、図が大きすぎま...
-
bat 同名ファイルコピー時にリ...
-
FSO.CopyFileでのエラー無視方法
-
Excel 同一内容のファイルを一...
-
Vba初心者です。下記のコード助...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
エクセルVBAで開いているファイ...
-
パワポでスライドをコピーでき...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
Excelのマクロについて教えてく...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報