回答編集履歴
2
一部のインデントずれを修正。
test
CHANGED
@@ -118,7 +118,7 @@
|
|
118
118
|
dataRow = ""
|
119
119
|
For Each fld In rsDetail.Fields
|
120
120
|
dataRow = dataRow & _
|
121
|
-
|
121
|
+
"," & Nz(fld.Value, "")
|
122
122
|
Next
|
123
123
|
dataRow = Mid(dataRow, 2)
|
124
124
|
|
1
コメントを一部修正。
test
CHANGED
@@ -97,7 +97,7 @@
|
|
97
97
|
fileName = "グループが不明であるレコード"
|
98
98
|
'現在のグループの値が空文字列ではない場合
|
99
99
|
Else
|
100
|
-
'現在の
|
100
|
+
'現在のグループの値をそのままファイル名とする
|
101
101
|
'(厳密には、ファイルパスとして使用できない文字が含まれる可能性があるなら
|
102
102
|
'エスケープ処理を加えた方がよいが、このサンプルでは割愛する)
|
103
103
|
fileName = groupValue
|