|
こんにちわ。
行き詰まってしまったので、ご存知の方がいましたら、教えてください。
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ファイルを開くと全て
"×××××"といようにダブルクォーテーションで囲まれてしまいます。
ダブルクォーテーションで囲まれないで出力する方法はありますでしょうか?
ご伝授お願いします。
|
|