Excel VBA質問箱 IV

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

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


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

63628 / 76732

←次へ　｜　前へ→


	【17699】Re:Writeステートメントでcsv出力

かみちゃん - 04/9/5(日) 15:21 -


	引用なし

	パスワード

こんちには。かみちゃん　です。

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

Write # ステートメントのヘルプ情報をご確認いただけると書いてあるのです
が、「文字列は、ダブルクォーテーション ("") で囲んで出力」します。
そこで、WriteではなくPrint # ステートメントではいけませんでしょうか？

Sub Macro0904()
　Dim FreeF As Integer '★IntergerではなくInteger
　Dim j As Integer '★IntergerではなくInteger
　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
　　'★各セルを","でつなげてひとつの文字列にしてPrintステートメントで出力
　　Print #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
End Sub

0 hits

▼

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