![](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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Cellsのコードが打てません
Visual Basic(VBA)
-
メールの件名のセットでエラーになる原因がわかりません
Visual Basic(VBA)
-
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Visual Basic(VBA)
-
-
4
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
5
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
6
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
7
DBCS関数とは何ぞやッ!
Excel(エクセル)
-
8
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Visual Basic(VBA)
-
9
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
10
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
11
エクセルで【0.5日と1日】を表示したいのですが。。。
Excel(エクセル)
-
12
VBA コード
Visual Basic(VBA)
-
13
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
14
数値から名前が作成できなくなっているッ!?
Excel(エクセル)
-
15
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
16
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
17
EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。
Excel(エクセル)
-
18
当番表の作成について
Excel(エクセル)
-
19
PC タスクバーのexcelによく使うファイルの候補を表示したい
Excel(エクセル)
-
20
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスのOKボタ...
-
エクセルで別のセルにあるふり...
-
VBAコードのインデント表示
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
マクロ実行時、自動で背景色を...
-
エクセルのマクロについて教え...
-
特定文字のある行の前に空白行...
-
vbaエクセルマクロについて あ...
-
EXCELのVBAでRange("A1:C4")を...
-
有効数字N桁のマクロについて
-
右クリックによるイベントマク...
-
ダブルクリックで貼り付けた画...
-
ExcelのVBA。public変数の値が...
-
Excel・Word リサーチ機能を無...
-
uwscの使い方について。ifの前...
-
マクロの記録を使用したマクロ...
-
VBAはなくなると思いますか?
-
Excelマクロにて、タイマーで自...
マンスリーランキングこのカテゴリの人気マンスリー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を起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報
回答ありがとうございます。
説明不足で申し訳ありません。
ファイルの移動先は
マクロを設定しているブックがある、同じフォルダ内に移動をしたいのですが、
このエラーコードが悪いのですね。
マクロを設定している同じフォルダ内に移動が出来るコードを教えて頂けますか。
よろしくお願いします。