Ｓendkeyでステップイン不能？

質問

ＶＢＡで久しぶりにSendkeyを使おうしたところ、ステップインではキーが送られません。

Ｅｘｃｅｌのメニューのツール＞マクロ＞マクロのボックスを開き、実行ボタンを押せば旨くいきます。

ところがＶＢエディター上からＦ８を押してもセンドキーが実行されません。
ＶＢエディターのメニューのツール＞マクロから実行ボタンを押しても同じ失敗が起きます。

ＶＢエディターの問題でしょうか？

Sub test()
Shell "Notepad.exe", 1
SendKeys "A"
SendKeys "B"
SendKeys "C"
End Sub

　　　　　　　　　　　　　　　Ｅｘｃｅｌ 2003
　　　　　　　　　　　　　　　WindowsＸＰ　ｓｐ２

回答No.1

NotFound404 · ベストアンサー

SendKeys はアクティブなウィンドウに送られます。
Sub test()
Shell "Notepad.exe", 1 'ここにブレークポイント設定
SendKeys "A"
SendKeys "B"
SendKeys "C"
End Sub
だと、F8 で進めてゆくと、SendKeys "A"に進んだ段階でアクティブなのはVBEのウィンドウになりますから
Sub test()
Shell "Notepad.exe", 1 'ここにブレークポイント設定
SendKeys "A"
ASendKeys "B" ←ここに、A が来てしまいます（Win7 Excel2010では）
SendKeys "C"
End Sub

メモ帳で何をしたいのか不明ですが
テキストファイルを変更・新規作成などでしたら
VBAのOpenステートメントとか
FileSystemObjectを使うとかで対応されては？
ヘルプより抜粋
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
ご参考まで。

お礼

ありがとうございました。

補足

回答ありいがとうございます。
自分のエクセルでは、Ｓendkey"B"の前にＡは出てこないです。
メモ帳に文字を送ったのは、単純化して原因を調べるためです。実際にはＩＥなどに送ります。

キーを送っている時アクティブなのはVBEと言われれば、確かにそうですが、実際にはＦ８を押しても対象ソフトにキーが送られていました。
ただ、もう５年くらいこのメソッド使ってなかったんです。
その間に何回かウィンドウズをアップデートしたので、ウイルス対策にセンドキーの制限がかかったのかな？　とも思ったんですが。