広告
広告
アクセスからエクセルを読んだり編集したり削除したり…。意外と使うこと多いです。
Dim DB As DAO.Database Dim xlApp As Object Dim xlbook As Object Dim xlsheet As Object Dim strXlsS As String Dim strExSheet As String strXlsS = "エクセルブックフルパス" strExSheet = "エクセルシート名" Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True 'エクセル可視、不可視選択 Set xlbook = xlApp.workbooks.Open(strXlsS) Set xlsheet = xlbook.worksheets(strExSheet.Value) strNakami = xlsheet.cells(intRetsu, intGyou) '適当な処理(編集も可能) Set DB = Nothing xlbook.Save '保存する xlbook.Close 'ブックを閉じる xlApp.Quit 'エクセルの開放(ブックを閉じたときは必ず指定) Set xlApp = Nothing
広告