Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63629 / 76732

←次へ　｜　前へ→


	【17698】Writeステートメントでcsv出力

くまこ - 04/9/5(日) 14:37 -


	引用なし

	パスワード

こんにちわ。
行き詰まってしまったので、ご存知の方がいましたら、教えてください。

Writeステートメントを使用してシートにあるデータをｃｓｖ出力を使用としています。
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

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

ご伝授お願いします。

2 hits

▼

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

≪