Excel VBA で指定フォルダーのExcelファイルを全て開いてシートをコピーさせようとしています
以下のコードですが、シートをコピーさせる「Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)」で、つまづいています
エラーは修飾子が不正との事ですが、どのように直せば良いでしょうか?
回答よろしくお願い致します
VBA
1Sub 指定フォルダーのExcelファイルを全て開いてシートをコピー() 2 3 Const DIR_PATH = "C:\Users\user\Desktop" 4 Dim fl_name As String 5 6 fl_name = Dir(DIR_PATH & "*.xls*") 7 8 If fl_name = "" Then 9 MsgBox "Excelファイルがありません。" 10 Exit Sub 11 End If 12 13 Do 14 15 Workbooks.Open Filename:=DIR_PATH & "\" & fl_name 16 Workbooks("SSS-0036_R13_文書類表紙.xls").Activate 17 Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1) 18 fl_name = Dir 19 20 Loop Until fl_name = "" 21 22End Sub 23
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/08/08 02:08