Excel VBA質問箱 IV

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

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


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

8860 / 76735

←次へ　｜　前へ→


	【73443】CSV File作成について

yokomichi - 13/1/11(金) 15:16 -


	引用なし

	パスワード

以下のようなデーターがあります
No　運送会社　納入先　　　　　　住所　　　　　　　　　　　　　　　　　 TEL
1　堺運輸(株)　横浜工場　〒230-0045　横浜市鶴見区末広町2-4　 03-333-2222　　　　
これをCSV Fileにしました
〒230-0045の後に改行コードがはいっています

　結果
　No;"運送会社";"納入先";"住所";"TEL";
　1;"堺運輸(株)";"横浜工場";"〒230-0045
　横浜市鶴見区末広町2-4";"03-333-2222";

質問
１----最初のNoには””が書かれません
２----データーに改行コードがある場合その位置に
　　　<BR>の文字を挿入する
　　　";"〒230-0045<BR>横浜市鶴見区末広町2-4";"　
以下のように書きました
よろしくお願いいたします

Sub CSVWrite()
Dim iRow As Integer 'セルの行位置
Dim iCol As Integer 'セルの列位置
Dim fFileNo As Integer 'ファイル番号
Dim fFileName As String '出力ファイル名
Dim cData As String '出力データ
Dim DQUAT As String 'ダブルクオーテーション
Dim j As Integer
Dim Dname(10) As String

fFileName = "D:\CSVMac\CSV.csv" '出力ファイル名
fFileNo = FreeFile(0) 'ファイル番号を取得
Open fFileName For Output Access Write Lock Read Write As #fFileNo 'ファイルオープン
DQUAT = Chr(34) 'ダブルクオーテーション
iRow = 1
iCol = 1
Workbooks("CSV.xls").Activate

For iRow = 1 To 50
　For j = 1 To 5
　　If (Workbooks("CSV.xls").Worksheets("Sheet1").Cells(iRow, 1).Value = "") Then
　　　Exit For 'データが無ければ終了
　　Else
　　　Dname(j) = Workbooks("CSV.xls").Worksheets("Sheet1").Cells(iRow, iCol)
　　　cData = cData & DQUAT & Dname(j) & DQUAT & ";"
　　End If
　　iCol = iCol + 1
　Next j
　　 Print #fFileNo, cData 'ファイル出力
　　 cData = ""
　　 iCol = 1
Next iRow
Close #fFileNo 'ファイルクローズ
End Sub

0 hits

▼

【73443】CSV File作成について yokomichi 13/1/11(金) 15:16

≪