VBEでCSV File を1行毎に読込み

CSV File を1行毎に読込み ” ” を取り除く

右側は下のスライドバーで移動出来ます

[code lang="VB"]
Sub yahoo_read1()
'
'\sales.csvをWorksheets(1)に読込み
'
    Dim cnt As Long, arrLine As Variant, i As Long, strLine As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    Dim strPath As String

    strPath = ThisWorkbook.Path & "\sales.csv"

    Open strPath For Input As #1 'csvファイルをオープン

        Do Until EOF(1)

            Line Input #1, strLine  '1行づつ読込む

            cnt = cnt + 1  '行数

            For i = 0 To UBound(Split(strLine, ","))    '0から最大の配列数まで

              If i = 3 Then '4列目
                                'iは0スタートの為1を足す
                  ws.Cells(cnt, i + 1) = Format(Split(Replace(strLine, """", ""), ",")(i), "yyyy/mm/dd") 'strLineのダブルクォーテーションを取り除き、カンマで区切り書式を日付にしてセルに格納

                Else

                  ws.Cells(cnt, i + 1) = Split(Replace(strLine, """", ""), ",")(i) 'strLineのダブルクォーテーションを取り除き、カンマで区切りセルに格納

              End If

            Next i

        Loop

    Close #1

End Sub
[/code]

フォローする

コメントを残す