回答編集履歴
1
コード修正
test
CHANGED
@@ -38,6 +38,8 @@
|
|
38
38
|
|
39
39
|
Cells(i,3).Value = adoRS.Fields(2).Value
|
40
40
|
|
41
|
+
i = i + 1
|
42
|
+
|
41
43
|
adoRS.MoveNext
|
42
44
|
|
43
45
|
Loop
|