Private Sub Workbook_Open()
    Dim wsh As Object
    Dim dPath As String
    Dim sPath As String
    Dim varFileName As Variant
    Dim rc As Long
    Dim targetbook As Workbook
 
    Set wsh = CreateObject("WScript.Shell")
    dPath = wsh.SpecialFolders("Desktop")
    Set wsh = Nothing
 
    ActiveSheet.Cells.Clear
    sPath = Application.Path & "\MSACCESS.EXE"
    MsgBox "ファイル選択ダイアログが開きますので、" & vbCrLf & "読込むCSVファイルを指定してください"
    varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
                                        Title:="CSVファイルの選択")
    If varFileName <> "False" Then
        Set targetbook = Workbooks.Open(varFileName)
    Else
        Exit Sub
    End If
    targetbook.ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
    targetbook.Close SaveChanges:=False
    Set targetbook = Nothing
    ThisWorkbook.Save
    rc = Shell(sPath & " " & dPath & "\input.xlsm", vbNormalFocus)
    If rc = 0 Then MsgBox "起動に失敗しました"
End Sub

UHJpdmF0ZSBTdWIgV29ya2Jvb2tfT3BlbigpCiAgICBEaW0gd3NoIEFzIE9iamVjdAogICAgRGltIGRQYXRoIEFzIFN0cmluZwogICAgRGltIHNQYXRoIEFzIFN0cmluZwogICAgRGltIHZhckZpbGVOYW1lIEFzIFZhcmlhbnQKICAgIERpbSByYyBBcyBMb25nCiAgICBEaW0gdGFyZ2V0Ym9vayBBcyBXb3JrYm9vawogICAgCiAgICBTZXQgd3NoID0gQ3JlYXRlT2JqZWN0KCJXU2NyaXB0LlNoZWxsIikKICAgIGRQYXRoID0gd3NoLlNwZWNpYWxGb2xkZXJzKCJEZXNrdG9wIikKICAgIFNldCB3c2ggPSBOb3RoaW5nCiAgICAKICAgIEFjdGl2ZVNoZWV0LkNlbGxzLkNsZWFyCiAgICBzUGF0aCA9IEFwcGxpY2F0aW9uLlBhdGggJiAiXE1TQUNDRVNTLkVYRSIKICAgIE1zZ0JveCAi44OV44Kh44Kk44Or6YG45oqe44OA44Kk44Ki44Ot44Kw44GM6ZaL44GN44G+44GZ44Gu44Gn44CBIiAmIHZiQ3JMZiAmICLoqq3ovrzjgoBDU1bjg5XjgqHjgqTjg6vjgpLmjIflrprjgZfjgabjgY/jgaDjgZXjgYQiCiAgICB2YXJGaWxlTmFtZSA9IEFwcGxpY2F0aW9uLkdldE9wZW5GaWxlbmFtZShGaWxlRmlsdGVyOj0iQ1NW44OV44Kh44Kk44OrKCouY3N2KSwqLmNzdiIsIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRpdGxlOj0iQ1NW44OV44Kh44Kk44Or44Gu6YG45oqeIikKICAgIElmIHZhckZpbGVOYW1lIDw+ICJGYWxzZSIgVGhlbgogICAgICAgIFNldCB0YXJnZXRib29rID0gV29ya2Jvb2tzLk9wZW4odmFyRmlsZU5hbWUpCiAgICBFbHNlCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgdGFyZ2V0Ym9vay5BY3RpdmVTaGVldC5DZWxscy5Db3B5IFRoaXNXb3JrYm9vay5BY3RpdmVTaGVldC5DZWxscwogICAgdGFyZ2V0Ym9vay5DbG9zZSBTYXZlQ2hhbmdlczo9RmFsc2UKICAgIFNldCB0YXJnZXRib29rID0gTm90aGluZwogICAgVGhpc1dvcmtib29rLlNhdmUKICAgIHJjID0gU2hlbGwoc1BhdGggJiAiICIgJiBkUGF0aCAmICJcaW5wdXQueGxzbSIsIHZiTm9ybWFsRm9jdXMpCiAgICBJZiByYyA9IDAgVGhlbiBNc2dCb3ggIui1t+WLleOBq+WkseaVl+OBl+OBvuOBl+OBnyIKRW5kIFN1Yg==