回答編集履歴

1

追記

2021/12/04 05:17

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -3,3 +3,29 @@
3
3
  Microsoft ActiveX Data Objects x.x Library
4
4
 
5
5
  にチェックを入れましょう。
6
+
7
+
8
+
9
+ ---
10
+
11
+
12
+
13
+ ```VBA
14
+
15
+ For i = 1 To ws.UsedRange.Rows.Count
16
+
17
+ strLine = ""
18
+
19
+ For j = 1 To ws.UsedRange.Columns.Count - 1
20
+
21
+ strLine = strLine & ws.Cells(i, j).Value & ","
22
+
23
+ Next
24
+
25
+ strLine = strLine & ws.Cells(i, j).Value
26
+
27
+ .WriteText strLine, adWriteLine
28
+
29
+ Next
30
+
31
+ ```