質問編集履歴
2
エラー箇所追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -25,6 +25,8 @@
|
|
|
25
25
|
|
|
26
26
|
|
|
27
27
|
```
|
|
28
|
+
|
|
29
|
+
9行目
|
|
28
30
|
|
|
29
31
|
インデックスが有効範囲にありません。
|
|
30
32
|
|
1
1.エラー箇所は、9行目です。2.「ひな形.xlsx」と「ひな形.xls」が混在しておりましたが誤記です。「ひな形.xlsx」のみです。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,7 +54,7 @@
|
|
|
54
54
|
|
|
55
55
|
'管理番号を一覧表からひな形ファイルに値を投入
|
|
56
56
|
|
|
57
|
-
Workbooks("一覧.xlsｍ").Worksheets("一覧表").Range("B1").Value = Workbooks("ひな形.xls").Worksheets("Sheet2").Range("C3").Value
|
|
57
|
+
Workbooks("一覧.xlsｍ").Worksheets("一覧表").Range("B1").Value = Workbooks("ひな形.xlsx").Worksheets("Sheet2").Range("C3").Value
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
@@ -68,7 +68,7 @@
|
|
|
68
68
|
|
|
69
69
|
'名前を付けて保存
|
|
70
70
|
|
|
71
|
-
Workbooks("ひな形.xls").SaveAs strFilePath
|
|
71
|
+
Workbooks("ひな形.xlsx").SaveAs strFilePath
|
|
72
72
|
|
|
73
73
|
|
|
74
74
|
|