質問編集履歴
1
Sheets("SSS-0036-R12").Copy After:=fl_name.Sheets(1)の"After"を"Before"に変えました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
1
|
Excel VBA で指定フォルダーのExcelファイルを全て開いてシートをコピーさせようとしています
|
|
2
2
|
|
|
3
|
-
以下のコードですが、シートをコピーさせる「Sheets("SSS-0036-R12").Copy
|
|
3
|
+
以下のコードですが、シートをコピーさせる「Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)」で、つまづいています
|
|
4
4
|
|
|
5
|
-
エラーは
|
|
5
|
+
エラーは修飾子が不正との事ですが、どのように直せば良いでしょうか？
|
|
6
6
|
|
|
7
7
|
回答よろしくお願い致します
|
|
8
8
|
|
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
Workbooks("SSS-0036_R13_文書類表紙.xls").Activate
|
|
44
44
|
|
|
45
|
-
Sheets("SSS-0036-R12").Copy
|
|
45
|
+
Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)
|
|
46
46
|
|
|
47
47
|
fl_name = Dir
|
|
48
48
|
|