回答編集履歴
2
追記
test
CHANGED
|
@@ -7,3 +7,5 @@
|
|
|
7
7
|
Worksheets("Sheet2").Cells(4, 1 + j).Value = Cells(4, 1 + j).Valueを
|
|
8
8
|
|
|
9
9
|
workbooks(勤怠用エクセルのファイル名）.Worksheets("Sheet2").Cells(4, 1 + j).Value = Cells(4, 1 + j).Valueに変えると良いでしょう
|
|
10
|
+
|
|
11
|
+
もしくはThisWorkBookを使うと良いです
|
1
誤字
test
CHANGED
|
@@ -7,5 +7,3 @@
|
|
|
7
7
|
Worksheets("Sheet2").Cells(4, 1 + j).Value = Cells(4, 1 + j).Valueを
|
|
8
8
|
|
|
9
9
|
workbooks(勤怠用エクセルのファイル名）.Worksheets("Sheet2").Cells(4, 1 + j).Value = Cells(4, 1 + j).Valueに変えると良いでしょう
|
|
10
|
-
|
|
11
|
-
ただし勤怠用エクセルをWorkbooks.Openで開いた状態にしておいてください
|