タイトル : Re: Access2010を起動してマクロを実行を実行した際のエラーについて 投稿日 : 2013/02/05(Tue) 00:18 投稿者 : VBレスキュー(花ちゃん)
> Dim objAccess As Object > > objAccess = CreateObject("Access.Application") > objAccess.Visible = False > objAccess.OpenCurrentDataBase("D:\Test.accdb") > objAccess.DoCmd.RunMacro("mcr_Import") > objAccess.CloseCurrentDataBase() > objAccess = Nothing Access は使った事がないので...。 Access 2010 なら下記のようになるかと? Dim objAccess As New Microsoft.Office.Interop.Access.Application objAccess.Visible = False objAccess.OpenCurrentDatabase("D:\Test.accdb") objAccess.DoCmd.RunMacro("mcr_Import") objAccess.CloseCurrentDatabase() objAccess.Quit() objAccess = Nothing だめなようなら、下の3行をコメントにして試して見て下さい。 マクロを実行してすぐ閉じるのはどうかと思うので。 又、Excel 同様解放処理が必要になりますので、COMオブジェクトの参照カウントの デクリメント 処理を追加しておいて下さい。 |