ここから本文です

uwsc で http://www.torezista.com/assist/dji.htmlから ダウンロード→保存→マイド...

chi********さん

2019/3/1609:00:03

uwsc で http://www.torezista.com/assist/dji.htmlから ダウンロード→保存→マイドキュメントに保存(以前のファイルは削除)というのをやりたいのですがうまくい

きません。スクリプトどうやったらいいでしょうか
以下のとこまではうまくいってるのですが、、、

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://www.torezista.com/assist/dji.html")
sleep(1)
id = GETID("NYダウ変換ツール | 株システムトレード販売のトレジスタ","IEFrame")
//---画面最大化

CTRLWIN(id,MAX)
IESetData(IE,True,"Submit")
sleep(1)

閲覧数:
22
回答数:
1

違反報告

ベストアンサーに選ばれた回答

ty_********さん

2019/3/1700:26:06

移動先フォルダとダウンロードフォルダはおそらく質問者様とは違うと思うので変更してください。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("http://www.torezista.com/assist/dji.html")
BusyWait(IE)

IESETDATA(IE, TRUE, "Submit")

REPEAT
ID = GETID("Internet Explorer", "IEFrame")
DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
IFB DirectUIHWND <> 0 THEN
DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 1)
ENDIF
UNTIL DirectUIHWND <> 0

REPEAT
PopUpHandle = HNDTOID(DirectUIHWND)
UNTIL PopUpHandle <> 0

REPEAT
SLEEP(0.50)
DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
IFB DirectUIHWND <= 0 THEN
DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 1)
ENDIF
PopUpHandle = HNDTOID(DirectUIHWND)
IDNoticeBar = CLKITEM(PopUpHandle, "保存", CLK_ACC)
UNTIL IDNoticeBar <> 0

REPEAT
SLEEP(0.50)
UNTIL POS("ダウンロードが完了しました。", GETStR(PopUpHandle, 1, STR_ACC_STATIC))

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace("D:\Documents\") // 移動先フォルダ

Folder.MoveHere("D:\Downloads\NYダウ.csv") // ダウンロードフォルダ

IE.Quit

PROCEDURE BusyWait(IE)
SLEEP(0.50)
REPEAT
SLEEP(0.01)
UNTIL !IE.Busy AND IE.readyState = 4
FEND

  • 質問者

    chi********さん

    2019/3/1715:53:37

    ありがとうございます。やってみたのですが繰り返してやると宛先には既に"NYダウ.csv”という名前のファイルが存在します。 と出てしまいます。 ドキュメントに残った以前のNYダウファイルは削除もしくは上書きしたいのですが、どうやったらいいでしょう?

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/3/17 19:50:48

助かりました!
回答ありがとうございます!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる