|
▼okb さん、皆さん、おはようございます。
Sendkeysは、私もめったな事では使いませんし、
この場合の処置は、Application.DisplayAlerts
に設定するのがよいかなと思います。
Sendkeysに関しては、以前、JuJuさんが
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=5831;id=excel
とおっしゃっていたことが私の頭に残っています。
で、これは、参考程度ですが、
'=======================================================
Sub test()
SendKeys "{ENTER}"
ActiveWindow.SelectedSheets.Delete
End Sub
'==========================================
Sub test2()
Application.SendKeys "{ENTER}"
ActiveWindow.SelectedSheets.Delete
End Sub
'==============================================
Sub test3()
Dim wsh As Object
Set wsh = CreateObject("wscript.shell")
wsh.SendKeys "{ENTER}"
ActiveWindow.SelectedSheets.Delete
Set wsh = Nothing
End Sub
で動作しなかったのは、test2だけでした。
|
|