EXCELのファイルを開き、開いたのち最小化するコマンドボタンをACCESS側に作成したいと思います。
EXCELのファイルを開き、開いたのち最小化するコマンドボタンをACCESS側に作成したいと思います。 またそのEXCELファイルを閉じてEXCELを終了するコマンドボタンをACCESS側に配置したいと思っています。 よろしくご教授くださいませ。
Microsoft Access・28閲覧・250
ベストアンサー
標準モジュールに↓記述します。 Option Compare Database Option Explicit Public exl As Object Function ExcelOpen() Dim strExlPath As String strExlPath = "EXCELファイルのパス名" Set exl = CreateObject("Excel.Application") exl.Workbooks.Open strExlPath exl.Visible = True exl.ActiveWindow.WindowState = -4140 'xlMinimized End Function Function ExcelClose() If TypeName(exl) = "Application" Then exl.ActiveWorkbook.Close True '保存する exl.Quit Set exl = Nothing End If End Function フォームに設定した各コマンドボタン「クリック時」イベントに =ExcelOpen() =ExcelClose() とします。
質問者からのお礼コメント
チャンとできました。 ありがとうございました。
お礼日時：5/24 16:23
