質問: "c:\xe2.xls" shell "c:\program files\microsoft office\office\excel.exe " & fl_name, vbnormalfocus
回答: 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でテストしてokでした。 ※access97で経験したコードですから多分2000でもokかと。 ※仮に、excelがcloseしない時は、%({f}) +({x}) で試して下さい。