Access、Excel ともに2003 を使用しています。

質問

Access、Excel ともに2003 を使用しています。
Access で Excel を動かすことでの質問です。

まず「やりたいこと」を箇条書きにします。
（1）Accessのボタンを押すと以下の作業をする。

（2）Excel の ●●.xls を印刷する。
　　（但し、この時 Excel の画面は表示しない）

（3）その ●●.xls は保存せずに終了する

この間、画面は常にAccessが開かれた状態

これを Access側で次のように書きました。

Private sub ボタン_Click()

strfile = CurrentProject.Path & "\●●.xls"
Set Appexcel = New Excel.Application
Set wb = Appexcel.Workbooks.Open(strfile)
Appexcel.Visible=false

ActiveSheet.PrintOut

ActiveWorkbook.Saved = True

Application.Quit

End Sub

こうすると、最後の「Application.Quit」でExcel も　Access も
共に終了してしまいます。

Excel だけを終了させて、Access は引き続き次の作業に入るには
どうすればよいのでしょうか。

回答No.3

imogasi · ベストアンサー

参考になれば
Private Sub コマンド3_Click()
MsgBox CurrentProject.Path
strfile = CurrentProject.Path & "\XXXX.xls"
Set Appexcel = CreateObject("Excel.Application")
Set wb = Appexcel.Workbooks.Open(strfile)
Appexcel.Visible = False
'Appexcel.Visible = True
wb.Sheets("Sheet1").range("A1:C10").PrintOut
wb.Close
Appexcel.Quit
End Sub
これで印刷もし、エクセルで上記を開くと普通に開きました。
wb.Closeを入れていないで、テストで実行した時期があったのでタスクマネジャーでエクセルを終了し
やってみると「ファイルは編集のためロックされています」が出なくなった。

回答No.2

piroin654

提示されたコードには変数の宣言などが抜けているので
コンパイルエラーが出ます。また、プロセスが残り
いろいろ困ることが起きます。Excelが起動されていない
状態でタスクマネージャを起動し、Excel EXE が
タスクマネージャのタスクにプロセスに表示されていないか
確認してください。表示されていたらExcel EXE　を選択し
プロセスを終了してください。

また、コード表のツールから参照設定を見て、

Microsoft Excel xx Object Library

にチェックが入っているか確認してください。xx は数字です。

一般的には以下のような感じでExcelファイルにアクセスして
作業をします。

Private Sub コマンド1_Click()
Dim objExcel As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet

Set objExcel = CreateObject("Excel.Application")
Set wkb = objExcel.Workbooks.Open(Filename:=CurrentProject.Path & "\●●.xls")

objExcel.ActiveWorkbook.Sheets("Sheet1").Name = "Sheet1"

'ここに作業目的のコードを入れる

'以下はオブジェクトの破棄
wkb.Save
wkb.Close
Set wkb = Nothing
Set wks = Nothing
End Sub

回答No.1

szk9998

Application.Quit
の代わりに、
ActiveWorkbook.close

でExcelだけ閉じますが、どうでしょう？

補足

やってみましたが、

　コンパイルエラー
　変数が定義されていません

となって、うまくいきませんでした。