スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ExcelからAccessを起動する

Option Explicit

Private Sub Workbook_Open()

Accessモジュール実行 "C:\temp\aaa.mdb", "モジュールの名前"

End Sub


Public Sub Accessモジュール実行(mdb As String, mdl As String)

Dim acApp As Object
Set acApp = CreateObject("Access.Application")

With acApp
.OpenCurrentDatabase mdb
.Visible = True
.Run mdl
.Quit
End With

Set acApp = Nothing ' オブジェクト開放

End Sub
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。