|
以下のようなデーターがあります
No 運送会社 納入先 住所 TEL
1 堺運輸(株) 横浜工場 〒230-0045 横浜市鶴見区末広町2-4 03-333-2222
これをCSV Fileにしました
〒230-0045の後に改行コードがはいっています
結果
No;"運送会社";"納入先";"住所";"TEL";
1;"堺運輸(株)";"横浜工場";"〒230-0045
横浜市鶴見区末広町2-4";"03-333-2222";
質問
1----最初のNoには””が書かれません
2----データーに改行コードがある場合その位置に
<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
|
|