| |
▼yokomichi さん：
こにちは
ＣＳＶは詳しくないのですが、できあがったファイルをメモ帳で開いてみてください。
"NO" になっていませんか？
改行の変換も入れた一例です。
（セル乗の標準 vbLF をチェックしています。WIndows標準のVBCRLF であれば変更願います）
Sub CSVWrite()
Dim fFileNo As Integer 'ファイル番号
Dim fFileName As String '出力ファイル名
Dim DQUAT As String 'ダブルクオーテーション
Dim c As Range
Dim w As Variant
Dim j As Long
fFileName = ThisWorkbook.Path & "\CSV.csv" '出力ファイル名
fFileNo = FreeFile(0) 'ファイル番号を取得
Open fFileName For Output Access Write Lock Read Write As #fFileNo 'ファイルオープン
DQUAT = Chr(34) 'ダブルクオーテーション
With Workbooks("CSV.xls").Worksheets("Sheet1")
For Each c In .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
w = c.Resize(, 5).Value
w = WorksheetFunction.Index(w, 1, 0)
For j = LBound(w) To UBound(w)
w(j) = DQUAT & Replace(w(j), vbLf, "<BR>") & DQUAT & ";"
Next
Print #fFileNo, Join(w, "") 'ファイル出力
Next
End With
Close #fFileNo 'ファイルクローズ
End Sub
|
|
UO3
- 13/1/11(金) 15:47 -
