VBA備忘録4（csvファイルを別シートに読み込み）

Sub GetCsv()

Dim FilePass As Variant
Dim FileName As String
Dim ShCount As Long

ShCount = ThisWorkbook.Worksheets.Count 'VBAの書かれたファイルのシート数

'ダイアログを開いてファイルを指定
FilePass = Application.GetOpenFilename("csv,*.csv")

If FilePass <> "False" Then 'キャンセル処理分岐
'読み込み処理
FileName = Dir(FilePass) 'ファイル名を取得
Workbooks.Open FilePass 'ファイルを開く
Worksheets(1).Copy after:=ThisWorkbook.Worksheets(ShCount) '一番最後に追加
Workbooks(FileName).Close savechanges:=False
ActiveSheet.Name = Dir(FilePass) '読み込んだシート名を変更する
Worksheets("Sheet1").Activate 'シート変更

Else
MsgBox "キャンセルされました"

End If

End Sub