□投稿者/ 佐藤 -(2017/09/29(Fri) 15:29:56)
| こんにちは、よねさん
CSVデータをエクセルに書き込む場合
エクセルの最終行を取得して、追加でCSVデータを書き込む方法を教えていただきたいです。
またCSVデータには、1行目に項目行がある為、2行目からのCSVデータをエクセルに追加書き込みをしたいです。
下記のコードはネットから拾ったものです。
Sub CSV入力3()
Dim varFileName As Variant
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
Workbooks.Open Filename:=varFileName
ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
ActiveWorkbook.Close SaveChanges:=False
End Sub
以上、よろしくお願いいたします。
|
|