| |
▼ichinose さん：
返信ありがとうございます。
説明不足で大変申し訳ありませんでした。
HPは社内のサイトなため公開することができません。
出るダイアログは「ファイルのダウンロード」で
「開く」「保存」「キャンセル」があるものです。
そのダウンロードのダイアログが出たらマクロを再開させたいのです。
よく見かけますけど、確かに探すとなかなかないですね（汗）
それまでのコードも、ほとんどがSendKayとApplication.Waitで構成されてるので
不要かと思いまして省略してしまいました(^^;
具体的なコードは下記の通りです。
'-------------------------------------------------------------
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate "HTTP://ほにゃらら" 'URLを開く
Application.Wait Now + TimeValue("00:00:05")
objIE.document.all("csv").Click 'csvボタンを押す
Application.Wait Now + TimeValue("00:02:00")
'しばらくするとダウンロードのダイアログが出ます
'-------------------------------------------------------------
いただいたソースで試してみましたがダイアログがInputBoxだったのでちょっと違う感じです。
ただ参照設定とDoEventsのLoopで待機出来そうなので、いろいろ試してみます。
自分の説明不足で迷惑をかけてしまって本当にすいません。
丁寧な返答ありがとうございました。
|
|
Wz
- 07/1/26(金) 11:39 -
