VBAで、CSVを読み込む

http://excel-ubara.com/excelvba5/EXCEL111.html
一番楽なのは、CSVはエクセルで開く3番目の方法。
CSV入力3
改造して、既存のシート「シート1」に、「C:\aaa.csv」を読みこませる場合のサンプル

Sub CSV入力()
Dim varFileName As Variant
Dim SHEET_NAME As String
SHEET_NAME = "シート1"
varFileName = "C:\aaa.csv"
If varFileName = False Then
Exit Sub
End If
'csvファイル開く
Workbooks.Open Filename:=varFileName
'csvファイルのシートを全コピーする。
ActiveSheet.Cells.Copy ThisWorkbook.Sheets(SHEET_NAME).Cells
'csvファイル閉じる
ActiveWorkbook.Close SaveChanges:=False
End Sub

これで、「シート1」にcsvファイルを貼り付けできる。

タイトルとURLをコピーしました