| |
▼ともちゃ さん：
>これをダブルコーテーションをつけて、CSVで保存したいのです。
Write# で出力してみてはいかがでしょう
Write#ステートメントを使うと、値が文字列であればダブルコーテーション
で囲んで出力されます。また、データの区切りのカンマも自動で付けられます。
Sub ともちゃCSV出力()
Dim v
Dim io As Integer
Dim 出力ファイル名 As String
Dim i As Long, j As Long, jmax As Long
v = ActiveSheet.UsedRange.Value '出力範囲を配列に入れる
jmax = UBound(v, 2) '出力列数
io = FreeFile() 'I/O ファイル番号
'← ここで出力ファイル名のセットをしてください
Open 出力ファイル名 For Output As io
For i = 1 To UBound(v)
For j = 1 To jmax - 1
Write #io, v(i, j);
Next
Write #io, v(i, jmax)
Next
Close io
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
