Access VBA Excelを操作する

■Access VBA でExcelを操作する

Sub ExcelTest()
Dim xlApp As Object
Dim wb As Object
Dim vPath As String
    'Excel Applicationをインスタンス化
    Set xlApp = CreateObject("Excel.Application")
    '対象ブックのパスを格納
    vPath = "C:\Users\デスクトップ\テスト\Sample.xlsx"
    '対象ブックをオブジェクトに格納
    Set wb = xlApp.Workbooks.Open(vPath)
    'ブックを可視可
    xlApp.Visible = True
    'ブックを閉じる
    wb.Close
    'オブジェクトを解放
    Set wb = Nothing
End Sub