VBEサンプル CSV File を1行毎に読込み

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

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

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

フォローする

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です