![](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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
特定のPCだけ動作しないVBAマク...
-
特定文字のある行の前に空白行...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
マクロを組んで作業するのは実...
-
VBAにて別ワークブック上の実行...
-
ExcelVBAでPDFを閉じるソース
-
エクセルVBAでNAVITIMEを使って...
-
Excel マクロでShearePoint先の...
-
VBAのIF分で時間指定の条件式の...
-
TERA TERMを隠す方法
-
WORD テキストボックスを全ペ...
-
印刷枚数を指定して印刷(印刷...
-
UWLSの記録でマクロを作成し使...
-
Excel ソルバー計算速度向上の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
-
【EXCEL VBA】オートシェイプを...
-
エクセルのマクロをセルの値に...
おすすめ情報
回答ありがとうございます。
説明不足で申し訳ありません。
ファイルの移動先は
マクロを設定しているブックがある、同じフォルダ内に移動をしたいのですが、
このエラーコードが悪いのですね。
マクロを設定している同じフォルダ内に移動が出来るコードを教えて頂けますか。
よろしくお願いします。