回答編集履歴
1
コード修正
test
CHANGED
@@ -28,7 +28,7 @@
|
|
28
28
|
|
29
29
|
ws1.Range("A" & cmax + 1).Value = cmax
|
30
30
|
|
31
|
-
|
31
|
+
|
32
32
|
|
33
33
|
Dim objxml As Object
|
34
34
|
|
@@ -37,6 +37,8 @@
|
|
37
37
|
|
38
38
|
|
39
39
|
ws1.Cells(cmax + 1, i + 2) = objxml.Text
|
40
|
+
|
41
|
+
i = i + 1
|
40
42
|
|
41
43
|
|
42
44
|
|