Excel VBA質問箱 IV

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

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


63629 / 76732 ←次へ | 前へ→

【17698】Writeステートメントでcsv出力
質問  くまこ  - 04/9/5(日) 14:37 -

引用なし
パスワード
   こんにちわ。
行き詰まってしまったので、ご存知の方がいましたら、教えてください。

Writeステートメントを使用してシートにあるデータをcsv出力を使用としています。
CSV出力するというところまではうまく行ったのですが、、、、、

Dim FreeF As Interger
Dim j As Interger
Dim outname As String
Dim A As Long
Dim wb As Workbook

set wb = Workbook("my.xls")

FreeF = FreeFile
outname = TextBox1
outname = "out.csv"

Open TextBox1.value & "\" & outname For Output As FreeF

A = wb.worksheets("out").Range("A65536").End(xlup).Row

For j=1 To A
  
  Write #FreeF, wb.Worksheets("out").Cells(j,1) _
        , wb.Worksheets("out").Cells(j,2) _
        , wb.Worksheets("out").Cells(j,3) _
        , wb.Worksheets("out").Cells(j,4) _
        , wb.Worksheets("out").Cells(j,5) _
        , wb.Worksheets("out").Cells(j,6)

Next j

Close FreeF

というように出力した場合、出力したcsvファイルを開くと全て
"×××××"といようにダブルクォーテーションで囲まれてしまいます。
ダブルクォーテーションで囲まれないで出力する方法はありますでしょうか?

ご伝授お願いします。

0 hits

【17698】Writeステートメントでcsv出力 くまこ 04/9/5(日) 14:37 質問
【17699】Re:Writeステートメントでcsv出力 かみちゃん 04/9/5(日) 15:21 回答
【17700】Re:Writeステートメントでcsv出力 Hirofumi 04/9/5(日) 16:37 回答
【17728】Re:Writeステートメントでcsv出力 くまこ 04/9/6(月) 17:48 お礼

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