Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6375 / 13644 ツリー ←次へ | 前へ→

【45552】Appactivateでのエラー いのしし9 06/12/31(日) 18:08 質問[未読]
【45554】Re:Appactivateでのエラー りん 06/12/31(日) 21:11 発言[未読]
【45557】Re:Appactivateでのエラー ponpon 06/12/31(日) 22:01 発言[未読]

【45552】Appactivateでのエラー
質問  いのしし9  - 06/12/31(日) 18:08 -

引用なし
パスワード
   初心者ですみませんがよろしくご教授ください。
エクセルの特定のセルに入力されている内容を別のアプリケーション
の入力欄に貼り付けようと思い以下のコードを書きましたが、エラー
になってしまいます。

Option Explicit

Sub VNC起動()

Dim VNC As Double
 
 VNC = Shell("C:\\Program Files\RealVNC\VNC4\vncviewer.exe",
vbNormalFocus)

 Range("F3").Copy            'エクセルシートのF3をコピー
 AppActivate VNC
 SendKeys "^V", True
 Application.CutCopyMode = False

Appactivate VNC のところでエラーになります。
(実行時エラー5 プロシージャの呼び出し、または引数が不正です。)
ちなみにここではタスクIDを指定していますが、アプリケーション名を引数
に指定しても結果は同じようです。
VNCとはフリーのリモートソフトです。
コピーするセルの中にはIPアドレスが入っていて、VNCのIPアドレス入力欄
に自動的に入力したいと思っています。
上記のコードはある参考書の例をもとにしていて、参考書ではアプリは
メモ帳を使用しています。
アプリケーションによってうまくいかないのでしょうか。

詳しい方がいらっしゃったらぜひアドバイスをお願いします。
よろしくお願いします。

【45554】Re:Appactivateでのエラー
発言  りん E-MAIL  - 06/12/31(日) 21:11 -

引用なし
パスワード
   いのしし9 さん、こんばんわ。

>エクセルの特定のセルに入力されている内容を別のアプリケーション
>の入力欄に貼り付けようと思い以下のコードを書きましたが、エラー
>になってしまいます。


>Dim VNC As Double
> VNC = Shell("C:\\Program Files\RealVNC\VNC4\vncviewer.exe",
>vbNormalFocus)
> AppActivate VNC

>ちなみにここではタスクIDを指定していますが、アプリケーション名を引数
>に指定しても結果は同じようです。

このコードで見る限り関数の戻り値(数値)を使っているようですが、アクティブにしたいアプリのウィンドウキャプションを指定しないといけないようですよ。

Googleで「AppActivate VBA」で検索するといろいろ出てきました
//www.google.co.jp/search?hl=ja&q=AppActivate+VBA&lr=

【45557】Re:Appactivateでのエラー
発言  ponpon  - 06/12/31(日) 22:01 -

引用なし
パスワード
   ▼いのしし9 さん:
>詳しい方がいらっしゃったらぜひアドバイスをお願いします。
>よろしくお願いします。

りんさんも答えてるし、決して詳しくはないのですが、

>Option Explicit
>
>Sub VNC起動()
>
>Dim VNC As Double
> 
> VNC = Shell("C:\\Program Files\RealVNC\VNC4\vncviewer.exe",
           ~~~~~~~
            ↑ここあってます?  

>vbNormalFocus)
>
> Range("F3").Copy            'エクセルシートのF3をコピー
> AppActivate VNC
> SendKeys "^V", True
> Application.CutCopyMode = False
>

6375 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free