マクロで処理する対象となるExcelファイルが複数あります。
ひとつのフォルダにまとめて、実行すると一気に対象ファイルであれば処理できるようマクロを組みたいのですが、うまくいきません…
Sub あああああ() '処理対象ファイルの取得用変数 Const FILE_PATH = " C:\Users\まとめているフォルダの場所" Dim sFileName As String ソースコード途中省略 '対象フォルダからExcelファイル名を取得 sFileName = Dir(FILE_PATH & "¥(半角)*.xlsx") If sFileName = "" Then 'フォルダにExcelファイルが1つもない場合は処理終了 Exit Sub End If '対象フォルダ内のすべてのExcelファイルをループ処理 Do '処理対象ブックをオープン Set targetWb = Workbooks.Open(FILE_PATH & "\" & sFileName)
上記の構文とほとんど同じものを使って、以前別のマクロを組んだところうまく実行できていたのですが、
今回
sFileName = Dir(FILE_PATH & "¥(半角)*.xlsx")
が黄色くハイライトされ、「実行時エラー52:ファイル名または番号が不正です。」とエラーになってしまいます。
いまいちどう直せばよいのかわかりません。
どうかお助けください。よろしくお願いします。
追記:
対象フォルダから取得するExcelファイルのオブジェクト名は、プロパティで確認しましたところ、どれも次のような作りです。
C:\Users\まとめているフォルダの場所\あああああああああ.xlsx
回答1件
あなたの回答
tips
プレビュー