ACCESS2007でexcelのアプリケーションを起動する方法
以前はACCESSCLUBというサイトのサンプルを使用していたが、2007ではエラーが発生するようになった。
Sub ExcelCreate()
Set MyExcel = CreateObject("excel.application")
'MyExcel.Workbooks.Open FileName:="C:\test.xls" '<---既存のエクセルブックを開く場合
MyExcel.Workbooks.Add '<---新しくエクセルを生成する場合
MyExcel.Visible = True
End Sub
以前はACCESSCLUBというサイトのサンプルを使用していたが、2007ではエラーが発生するようになった。
Sub ExcelCreate()
Set MyExcel = CreateObject("excel.application")
'MyExcel.Workbooks.Open FileName:="C:\test.xls" '<---既存のエクセルブックを開く場合
MyExcel.Workbooks.Add '<---新しくエクセルを生成する場合
MyExcel.Visible = True
End Sub