Access2000vbaで、shell関数で起動させたExcellを終了する方法を教えてください。

質問

Access2000vbaで、shell関数で起動させたExcellを終了する方法を教えてください。
以下のように、shell関数で、既存のExcelファイルを起動させました。
どうすれば、Excelファイルを終了できますか？
宜しくお願いします。

Dim fl_name As String

fl_name = "C:\XE2.xls"
Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE " & fl_name, vbNormalFocus

回答No.2

Wendy02 · ベストアンサー

こんばんは。

Shell であけるのに、閉めるほうが、これじゃあ、かなりヘンですが、まあ、こんな方法があるという程度にしてください。本来は、開けるほうは、CreateObejct にするなりしたほうがよいのですが。

Private Const fl_name As String = "testa.xls"

Private Sub コマンド_Click()
Dim xlApp As Object
　On Error Resume Next
　Set xlApp = GetObject(, "Excel.Application")
　If Not xlApp Is Nothing Then
　　'もし保存するなら……
　　If xlApp.Workbooks(fl_name).Saved = False Then
　　xlApp.Workbooks(fl_name).Save
　End If
　 xlApp.Quit
　End If
End Sub

回答No.1

noname#22222

Option Compare Database
Option Explicit

Dim AppValue

Private Sub コマンド_ExcelOpen_Click()
　　AppValue　= Shell("・・・・")
End Sub

Private Sub コマンド_ExcelClose_Click()
　　AppActivate AppValue
　　Sendkeys "%{f4)", True
End Sub

※一応、Access2003でテストしてＯＫでした。
※Access97で経験したコードですから多分2000でもＯＫかと。
※仮に、ExcelがCloseしない時は、%({F}) +({X}) で試して下さい。

お礼

ありがとうございます。
EXCELを、無事終了できました。
目的のEXCELファイルだけを終了できたので、感動しました。