回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
'ﾃﾝﾌﾟﾚｰﾄﾌｧｲﾙｵｰﾌﾟﾝ
|
|
18
18
|
Dim wb As WorkBook
|
|
19
|
-
Set wb = .Workbooks.Open
|
|
19
|
+
Set wb = .Workbooks.Open(strTemplate)
|
|
20
20
|
|
|
21
21
|
'結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ
|
|
22
22
|
wb.WorkSheets("日報").Cells(2, 1).CopyFromRecordset myRs
|