2023/7/1 12:46
0回答
Excelのマクロについて教えてください。
マクロ
Sub test2()
Dim myPath(2) As String
Dim FileName As String
' ファイル元保管場所
myPath(1) = "C:\Users\Desktop\テスト物件\審査\"
' ファイル貼り付け先
myPath(2) = "C:\Users\Desktop\テスト物件\検査\"
FileName = "〇〇様邸新築工事(交付用).pdf"
FileCopy myPath(1) & FileName, myPath(2) & FileName
If Dir(myPath(2) & FileName) <> "" Then
End If
End Sub
が有ります。
マクロを実行するとフォルダ名「審査」からフォルダ名「検査」に
ファイル名「〇〇様邸新築工事(交付用).pdf」
がコピーされます。
ファイル名「〇〇様邸新築工事(交付用).pdf」の
「(交付用).pdf」より前の部分が物件によって変更されますので、
ファイル名が「〇〇(交付用).pdf」の場合でもコピーが出来る方法を教えて下さい。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
>ファイル名が「〇〇(交付用).pdf」の場合でもコピーが出来る方法を教えて下さい。
そんな・・端折って問題は無いのですか?
〇〇(交付用).pdfとした場合、対象ファイルは
同じフォルダにある複数になる可能性がありますよ
〇(交付用).pdf ×〇(交付用).pdf ××(交付用).pdf・・・・
対象のファイルはフォルダに1つなのでしょうか?
シート名やセルの値から〇〇部分を取得するとかにした方が良いと思います
あっ 複数のファイルを同時にファイルコピーしたいのでしょうか?
FileName = Dir(myPath(1) & "*(交付用).pdf")
Do While FileName <> ""
FileCopy myPath(1) & FileName, myPath(2) & FileName
FileName = Dir
Loop
あと、() 半角と全角になっているのですが・・
コードは全角にしましたが、実際はどうなのでしょう?
回答ありがとうございます。
又、連絡が遅く成りまして申し分け有りませんでした。
上手く出来ました。
後ほど、このマクロについて、別の質問をさせていただきますので、
よろしくお願いします。
No.2
- 回答日時:
「FileSystemObject.CopyFile」でワイルドカードを使えます。
先に、ファイルの存在チェックを行ってください。
http://officetanaka.net/excel/vba/filesystemobje …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
一つのTeratermのマクロで複数...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELマクロでのThisisWor...
-
ExcelVBA 図形をクリックした...
-
ExcelのVBA。public変数の値が...
-
非表示の列をすべて削除するマクロ
-
EXCELのVBAでRange("A1:C4")を...
-
VBAで特定の文字を含まない列の...
-
uwscの使い方について。ifの前...
-
エクセル マクロ 指定日の指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報