![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロを実行し、指定サブフォルダ内にあるPDFファイルを作業フォルダ内に移動できるマクロを作成しましたがエラーがでてしまい上手く事項が出来ません解決方法を教えてください。
マクロの内容
移動元フォルダ
「\\nas-sp01\share\確認部\■01_敷地照会回答書」
フォルダ「■01_敷地照会回答書」の中に
サブフォルダ
「0」
「1」
「2」
「3」
「4」
「5」
「6」
「7」
「8」
「9」
の各フォルダ10ケがあります。
「0~9」までのフォルダ内には半角英数字の8文字の末尾の数字のPDFファイルが収納されております。
例えば
サブフォルダ「0」の中にファイル名「23465900」が収納されております。
マクロ設定ブックのシート名「青紙表」のセル値「R18」にも半角英数字の8文字が
表示されており
サブフォルダ「0~9」に収納されているファイルをを検索し、
シート名「青紙表」のセル値「R18」と一致する管理番号のPDFファイルを作業ブック内に移動したいのですが。
マクロを実行し検索を開始し、該当ファイルが無い場合は
メッセージ「該当ファイルがありません。」と表示され、マクロが終了
マクロを実行し検索を開始し、該当ファイルがあった場合は
メッセージ「該当がありまました。」と表示され、「YES」をクリックすると
メッセージ「該当ファイルを移動しますか」と表示され
「YES」をクリックすると指定フォルダから作業フォルダの該当ファイルを移動
メッセージ「該当がありまました。」と表示され、「NO」をクリックすると
マクロが終了
例:
サブフォルダ「0」の中にファイル名「23465900」が収納されており
シート名「青紙表」のセル値「R18」に「23465900」が表示された場合に
ファイルを上記の要領で移動
現状のマクロ
Sub 行政回答確認()
Const BASE_DIR As String = "\\nas-sp01\share\確認部\■01_敷地照会回答書"
Const DST_DIR As String = "\\nas-sp01\share\確認部\移動先"
Dim namePDF As String: namePDF = ThisWorkbook.Worksheets("青紙表").Range("R18")
Dim srcDir As String: srcDir = BASE_DIR & "\" & Right(namePDF, 1)
namePDF = namePDF & ".pdf"
If Dir(srcDir & "\" & namePDF) = "" Then
MsgBox "該当ファイルがありません。", vbExclamation
Exit Sub
End If
If MsgBox("該当がありました。", vbYesNo + vbInformation) = vbNo Then Exit Sub
If MsgBox("該当ファイルを移動しますか", vbYesNo + vbInformation) = vbNo Then Exit Sub
Name srcDir & "\" & namePDF As DST_DIR & "\" & namePDF
End Sub
上記のマクロを実行すると
実行エラー’53’:
ファイルが見つかりません。→デバックを開くと
コードの内
「Name srcDir & "\" & namePDF As DST_DIR & "\" & namePDF」
が黄色くなってエラーとなっております。
解決方法をよろしくお願いします。
No.2ベストアンサー
- 回答日時:
>マクロを設定しているブックがある、同じフォルダ内に移動をしたい
Name srcDir & "\" & namePDF As ThisWorkbook.Path & "\" & namePDF
定数DST_DIRは削除してかまいません
全部他人頼みでも今更悪いとは言いませんが
>作業フォルダ内に移動できるマクロを作成しましたが
https://detail.chiebukuro.yahoo.co.jp/qa/questio …
作業フォルダ内に移動できるマクロを作成してもらいましたが です
(私なら不愉快です)
嘘つきになりたくないのなら 日本語は正しく使いましょう
No.1
- 回答日時:
「Name srcDir & "\" & namePDF As DST_DIR & "\" & namePDF」
が黄色くなってエラーとなっております。
ここまで実行されたという事は 対象ファイルが見つかっていると思われますので 当該エラーの原因は 移動先にあると思われます
定数
Const DST_DIR As String = "\\nas-sp01\share\確認部\移動先"
が実在しているか・・・アドレスが合っているか確認してみてください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/10/19 17:13
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
非表示の列をすべて削除するマクロ
-
マクロ実行時、ユーザーフォー...
-
エクセルに張り付けた写真のフ...
-
#defineの定数を文字列として読...
-
Excelマクロを引数付で起動
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ピボットテーブルでの毎回可変...
-
バッチファイルでEXCELを起動し...
-
accessで未入力の場合にメッセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報
回答ありがとうございます。
説明不足で申し訳ありません。
ファイルの移動先は
マクロを設定しているブックがある、同じフォルダ内に移動をしたいのですが、
このエラーコードが悪いのですね。
マクロを設定している同じフォルダ内に移動が出来るコードを教えて頂けますか。
よろしくお願いします。