下記のマクロは先日教えて頂いたマクロで
指定セル値に表示された数字を検索して
指定フォルダ内にあるフォルダ名とが該当した場合に
マクロ設定ブックと同じ作業フォルダに移動できます。
例えば
指定セル値R18に「23045906」と表示され
検査フォルダの「6」のフォルダ内にフォルダ名「ABC23045906(回答)」とあり
指定セル「23045906」とフォルダ名の「ABC23045906(回答)」の内
「23045906」とが該当した場合に
作業フォルダにフォルダ毎移動です。
しかし、このマクロを実行すると
画像のエラーメッセージが表示され、コードの
「FSO.GetFolder(arrMoveFolders(0, i)).Move strDestPath & "\" & arrMoveFolders(1, i)」部分が黄色くなり
マクロが実行できません。
解決方法を教えてください。
現状のマクロ
Sub 行政回答フォルダ確認()
Dim i As Long
Dim FSO As Object
Dim strKeyword As String
Dim strFolderPath As String, strFolderName As String
Dim arrMoveFolders As Variant
Dim strOriginPath As String, strDestPath As String
If MsgBox("フォルダを検索しますか", vbOKCancel) <> vbOK Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
strKeyword = CStr(Sheets("青紙表").Range("R18").Value)
strOriginPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書"
strDestPath = " ThisWorkbook.Path" 'ここに作業フォルダのパスを記入
If Right(strDestPath, 1) = "\" Then strDestPath = Left(strDestPath, Len(strDestPath) - Len("\"))
ReDim arrMoveFolders(0 To 1, 0 To 0)
For i = 0 To 9
strFolderPath = strOriginPath & "\" & i
strFolderName = Dir(strFolderPath & "\*" & strKeyword & "*", vbDirectory)
Do Until strFolderName = ""
If Replace(strFolderName, ".", "") <> "" Then
If arrMoveFolders(0, 0) <> Empty Then ReDim Preserve arrMoveFolders(UBound(arrMoveFolders, 1), UBound(arrMoveFolders, 2) + 1)
arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & strFolderName
arrMoveFolders(1, UBound(arrMoveFolders, 2)) = strFolderName
strFolderName = Dir
End If
Loop
Next
If arrMoveFolders(0, 0) = Empty Then
MsgBox "該当フォルダがありません"
Exit Sub
Else
If MsgBox("該当フォルダがありました、フォルダを移動しますか", vbOKCancel) <> vbOK Then Exit Sub
End If
For i = 0 To UBound(arrMoveFolders, 2)
FSO.GetFolder(arrMoveFolders(0, i)).Move strDestPath & "\" & arrMoveFolders(1, i)
Next
End Sub
以上となります。
よろしくお願いいたします
No.2ベストアンサー
- 回答日時:
ぱっと見
①
strDestPath = " ThisWorkbook.Path" 'ここに作業フォルダのパスを記入
strDestPath = ThisWorkbook.Path
②
arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & strFolderName
arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & "\" & strFolderName
説明を入れても意味が無い事を理解していますので割愛します
(未検証)
No.1
- 回答日時:
こんばんは
ざっと見たところ、(確認してはいませんけれど)単にパスの区切り(=バックスラッシュ)が抜けているだけではないかと思いますが・・・
質問者様が改変したのであれば、元に戻せば動作すると思います。
特殊なケースでのエラーとは思えませんので、最初からその内容であったのなら、そもそもが動作しないコードということになります。
>マクロが実行できません。
>解決方法を教えてください。
そのような場合には、作者にお尋ねになるのが通常です。
とは言え、拾ったもののようですので、それは元に戻して(=捨てて)、改めて、ちゃんと「連絡の取れる」相手に依頼して作成して貰えば、きちんと動作するものを得ることができるでしょう。
仮に、「アイスが欲しい」のなら拾い食いなどせずに、お店に行きましょうということです。
そうすることで、後に何らかの修正を加えたいようなことが生じても、修正してもらうことも可能になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/10/19 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/11/08 10:31
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/10/19 09:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAのことで質問です
Visual Basic(VBA)
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
-
4
VBA
Visual Basic(VBA)
-
5
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
6
Excel VBA コードを教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
エクセルのマクロ
Excel(エクセル)
-
9
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
10
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
11
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
12
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
13
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
14
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
15
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Visual Basic(VBA)
-
16
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
17
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
18
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
19
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
20
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
同一フォルダ内の別ブックから...
-
集めたシートのシート名を変更...
-
VBA フォルダ名に特定の文字を...
-
excelマクロ 冒頭3文字が一致す...
-
ファイルとフォルダのどちらも...
-
パス名に2バイト文字(マルチバ...
-
ExcelのVBA:フォルダ内のファイ...
-
PHPで、指定フォルダ(サブフォ...
-
フォルダ内のファイルの作成日...
-
Excelのハイパーリンクについて...
-
Dreamweaverでイメージを挿入す...
-
VBA 最新のフォルダ取得
-
VBScriptで作るファイル移動プ...
-
C++のコンソールアプリケーショ...
-
VBAで行うフォルダ・ファイル検...
-
Let’s Encryptでwebroot設定な...
-
exclude xcopy 除外フォルダ指...
-
ツリービューを使って、エクス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報
大変困っています
どなたか助けてください
宜しくお願いします