質問編集履歴
2
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -74,25 +74,13 @@
|
|
|
74
74
|
|
|
75
75
|
If File.ActiveSheet.Cells(j, 1) = "○" Then
|
|
76
76
|
|
|
77
|
-
|
|
77
|
+
sh.Cells(i, 2).Value = File.ActiveSheet.Range(j, 12).Value
|
|
78
78
|
|
|
79
|
-
|
|
79
|
+
|
|
80
|
-
|
|
81
|
-
sh.Cells(i, 2).Value = 1
|
|
82
|
-
|
|
83
|
-
Case 2
|
|
84
|
-
|
|
85
|
-
sh.Cells(i, 2).Value = 2
|
|
86
|
-
|
|
87
|
-
Case 3
|
|
88
|
-
|
|
89
|
-
sh.Cells(i, 2).Value = 3
|
|
90
|
-
|
|
91
|
-
End Select
|
|
92
|
-
|
|
93
|
-
j = j + 1
|
|
94
80
|
|
|
95
81
|
End If
|
|
82
|
+
|
|
83
|
+
Next j
|
|
96
84
|
|
|
97
85
|
Next i
|
|
98
86
|
|
1
ファイルが一つしか読み込めていなかったため
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -5,6 +5,10 @@
|
|
|
5
5
|
エラーより先のコードがうまくいけるのかもは微妙なところではありますが。。。
|
|
6
6
|
|
|
7
7
|
よろしくお願いします。
|
|
8
|
+
|
|
9
|
+
しかもファイル名が1つしかとれてませんでした。
|
|
10
|
+
|
|
11
|
+
次のファイルを読み込んでませんでした。
|
|
8
12
|
|
|
9
13
|
|
|
10
14
|
|