Excel VBA質問箱 IV

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

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


8857 / 76732 ←次へ | 前へ→

【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";

質問
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

246 hits

【73443】CSV File作成について yokomichi 13/1/11(金) 15:16 質問
【73445】Re:CSV File作成について UO3 13/1/11(金) 15:47 発言
【73446】Re:CSV File作成について yokomichi 13/1/11(金) 16:06 お礼
【73447】Re:CSV File作成について kanabun 13/1/11(金) 17:04 発言
【73456】Re:CSV File作成について yokomichi 13/1/12(土) 11:15 質問
【73457】Re:CSV File作成について kanabun 13/1/12(土) 15:09 発言
【73497】Re:CSV File作成について yokomichi 13/1/16(水) 12:15 質問
【73498】Re:CSV File作成について UO3 13/1/16(水) 13:09 発言
【73500】Re:CSV File作成について yokomichi 13/1/16(水) 14:41 お礼
【73458】Re:CSV File作成について UO3 13/1/12(土) 15:31 発言
【73461】Re:CSV File作成について yokomichi 13/1/12(土) 21:38 お礼

8857 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free