回答編集履歴
1
余分な記述を削除しました。
test
CHANGED
|
@@ -96,7 +96,7 @@
|
|
|
96
96
|
lngRow = 1
|
|
97
97
|
lngColumn = lngColumn + 1
|
|
98
98
|
For Each daoField In daoRecordset.Fields
|
|
99
|
-
|
|
99
|
+
.Cells(lngRow, lngColumn).Value = daoField.Value
|
|
100
100
|
lngRow = lngRow + 1
|
|
101
101
|
Next
|
|
102
102
|
daoRecordset.MoveNext
|