外部プログラムの起動後の処理 (ID:82284)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Delphiが出てきたりして少し錯綜ぎみですが >コマンドボタンを押したら、メモ長がひらかれるようにしたいんです。 なんで Dim AppId Private Sub Command1_Click() AppId = Shell("notepad.exe", vbNormalFocus) 'メモ帳起動 AppActivate (AppId) SendKeys ("ここに文字をいれてください") '書き込む End Sub これで失敗することは無いと思いますが。 ちなみに For n = 1 To 20 AppId = Shell("notepad.exe", vbNormalFocus) 'メモ帳起動 AppActivate (AppId) SendKeys ("ここに文字をいれてください") '書き込む Next なんてやっても失敗はしません。かなり過酷だと思いますが。