Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19480 / 76732 ←次へ | 前へ→

【62683】Re:CSVにダブルコーテーションをつけて保存する
発言  kanabun  - 09/8/23(日) 16:46 -

引用なし
パスワード
   ▼ともちゃ さん:

>これをダブルコーテーションをつけて、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
0 hits

【62682】CSVにダブルコーテーションをつけて保存する ともちゃ 09/8/23(日) 16:01 質問
【62683】Re:CSVにダブルコーテーションをつけて保存... kanabun 09/8/23(日) 16:46 発言
【62694】Re:CSVにダブルコーテーションをつけて保存... ともちゃ 09/8/24(月) 23:59 お礼
【62695】Re:CSVにダブルコーテーションをつけて保存... kanabun 09/8/25(火) 0:16 発言
【62758】Re:CSVにダブルコーテーションをつけて保存... ともちゃ 09/8/27(木) 21:58 お礼

19480 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free