
下記のマクロを実行して、指定フォルダをワイルドカードを使用したフォルダ内にコピーを出来るように設定しましたが
画像のようなエラーメッセージが出て
コードの「FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\"」が黄色くなっており、上手く実行できません。
解決方法を教えてください。
ワイルドカードを"\########-#_*\"」としており
例えばコピー先のフォルダ名が「12345678-5_北海 太郎」です。
よろしくお願いいたします。
マクロ
Sub フォルダコピー正8()
'※※フォルダをコピーする※※
Dim FSO As Object
Dim Adr As String
'FileSystemObjectオブジェクトを作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'コピー対象のフォルダパスを変数に代入
Adr = ThisWorkbook.Path
'「Dataフォルダ」を「Sampleフォルダ」にコピーする
FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\"
End Sub
です。

No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル保存時のダイアログ表...
-
ファイル名と同名のフォルダを...
-
VBAでファイル名を指定して保存...
-
【コマンドプロンプト】名前順...
-
Windows10でコマンドプロンプト...
-
ExcelのVBAでフォルダ指定がで...
-
ファイルとフォルダのどちらも...
-
パス名に2バイト文字(マルチバ...
-
VBA 最新のフォルダ取得
-
VB.net開発途中でのバックアッ...
-
VBA フォルダの複数選択ができない
-
Excel VBA マクロ フォルダ名を...
-
VBプロジェクトでのフォルダ構...
-
指定したフォルダを開く
-
会社のネットワーク上のファイ...
-
自動的に作られるresource.hに...
-
Excel VBA で フォルダ名の一部...
-
Excelのハイパーリンクについて...
-
フォルダ選択のダイアログ
-
VB6.0 FileListBoxでフォルダ表示
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
会社のネットワーク上のファイ...
-
パス名に2バイト文字(マルチバ...
-
デスクトップの画像をhtmlに表...
-
【マクロ】ファイル名の日付に...
-
C ファイル出力で、フォルダが...
-
ファイル名と同名のフォルダを...
-
Excelのハイパーリンクについて...
-
VBA 最新のフォルダ取得
-
Excelで指定したフォルダに保存...
-
VBAでファイル名を指定して保存...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
excelマクロ 冒頭3文字が一致す...
-
VBA フォルダ名に特定の文字を...
-
カレントフォルダって?
-
Excel VBA マクロ フォルダ名を...
-
VBA フォルダの複数選択ができない
-
ExcelVBAでフォルダへのハイパ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報