実行時バインディング
Sub Test()
    Dim MyExcel As Object
    Set MyExcel = CreateObject("Excel.Application")

    MyExcel.Visible = True
    MyExcel.workbooks.Add
    MyExcel.ActiveWorkbook.Sheets(2).select
    MyExcel.Quit
    
    Set MyExcel = Nothing

End Sub

事前バインディング Microsoft Excel XX.X Object Library
Sub Test()
    Dim MyExcel As New Excel.Application

    MyExcel.Visible = True
    MyExcel.workbooks.Add
    MyExcel.ActiveWorkbook.Sheets(2).select
    MyExcel.Quit
    
    Set MyExcel = Nothing

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ