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ファイルを貼り付けできる。