Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7338 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39685】ＩＥにて、ボタンクリックが出来ない row 06/6/28(水) 22:56 質問[未読]
【39700】Re:ＩＥにて、ボタンクリックが出来ない ichinose 06/6/29(木) 11:54 発言[未読]
【39722】Re:ＩＥにて、ボタンクリックが出来ない ichinose 06/6/29(木) 19:58 発言[未読]
【39730】Re:ＩＥにて、ボタンクリックが出来ない row 06/6/29(木) 23:00 お礼[未読]
【39685】ＩＥにて、ボタンクリックが出来ない
質問  row E-MAIL  - 06/6/28(水) 22:56 -
引用なし
パスワード
   検索しても該当する手段がないようですので、投稿させて頂きます。

対象ＵＲＬは、Ｙａｈｏｏ！ファイナンスにて
ポートフォリオの「新規作成」をクリックした後の
ページになります。

下部に「詳細設定」のボタンがありますが
エクセルＶＢＡにて、ボタンを押す事が
うまくいきません。

ボタンは、以下のソースになっています
<TR><TD colspan=2 align=center><input name=".longForm" type=submit value=" 詳細設定"></TD></TR>

".longForm"
を、指定すればよいのだと思いますが
.で始まる名前は、エクセルＶＢＡでは無理なのでしょうか？

現在の私のコードは、以下の通りです。

Dim サイト As Variant
Dim objIE As Object
Dim time10 As Variant
サイト = Worksheets("株価投入マクロ").Cells(2, 2)
' サイト表示準備
　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Visible = True
　　objIE.navigate サイト
'　 １０秒待つ
　　time10 = DateAdd("s", 3, Now())　'現在から１０秒後を計算
　　Application.Wait (time10)
'　詳細設定ボタンのクリック
objIE.Document.all.[.longForm].Click

↑ここで、
「オブジェクトは、このプロパティまたは
　メソッドをサポートしていません」と
言われます。

なぜ・・・
【39700】Re:ＩＥにて、ボタンクリックが出来ない
発言  ichinose  - 06/6/29(木) 11:54 -
引用なし
パスワード
   ▼row さん：
こんにちは。

>検索しても該当する手段がないようですので、投稿させて頂きます。
>
>対象ＵＲＬは、Ｙａｈｏｏ！ファイナンスにて
>ポートフォリオの「新規作成」をクリックした後の
>ページになります。
>
>下部に「詳細設定」のボタンがありますが
>エクセルＶＢＡにて、ボタンを押す事が
>うまくいきません。
>
>ボタンは、以下のソースになっています
><TR><TD colspan=2 align=center><input name=".longForm" type=submit value=" 詳細設定"></TD></TR>
>
>".longForm"
>を、指定すればよいのだと思いますが
>.で始まる名前は、エクセルＶＢＡでは無理なのでしょうか？
>
>現在の私のコードは、以下の通りです。
>
>Dim サイト As Variant
>Dim objIE As Object
>Dim time10 As Variant
>サイト = Worksheets("株価投入マクロ").Cells(2, 2)
>' サイト表示準備
>　　Set objIE = CreateObject("InternetExplorer.application")
>　　objIE.Visible = True
>　　objIE.navigate サイト
>'　 １０秒待つ
>　　time10 = DateAdd("s", 3, Now())　'現在から１０秒後を計算
>　　Application.Wait (time10)
>'　詳細設定ボタンのクリック
 objIE.Document.all(".longForm").Click
'として、試してみてください
>
>↑ここで、
>「オブジェクトは、このプロパティまたは
>　メソッドをサポートしていません」と
>言われます。
>
>なぜ・・・
【39722】Re:ＩＥにて、ボタンクリックが出来ない
発言  ichinose  - 06/6/29(木) 19:58 -
引用なし
パスワード
   >▼row さん：
こんばんは。
今、実験してみました。

>
>>検索しても該当する手段がないようですので、投稿させて頂きます。
>>
>>対象ＵＲＬは、Ｙａｈｏｏ！ファイナンスにて
>>ポートフォリオの「新規作成」をクリックした後の
>>ページになります。
>>
>>下部に「詳細設定」のボタンがありますが
>>エクセルＶＢＡにて、ボタンを押す事が
>>うまくいきません。
>>
>>ボタンは、以下のソースになっています
>><TR><TD colspan=2 align=center><input name=".longForm" type=submit value=" 詳細設定"></TD></TR>
>>
>>".longForm"
>>を、指定すればよいのだと思いますが
>>.で始まる名前は、エクセルＶＢＡでは無理なのでしょうか？
>>
>>現在の私のコードは、以下の通りです。
>>
>>Dim サイト As Variant
>>Dim objIE As Object
>>Dim time10 As Variant
>>サイト = Worksheets("株価投入マクロ").Cells(2, 2)
>>' サイト表示準備
>>　　Set objIE = CreateObject("InternetExplorer.application")
>>　　objIE.Visible = True
>>　　objIE.navigate サイト
>>'　 １０秒待つ
　　　Do While objIE.Busy = True Or objIE.readyState <> 4
　　 　　Loop　　
'後は、↑これでしょうか？
>>'　詳細設定ボタンのクリック

　objIE.Document.all(".longForm").Click

>'として、試してみてください
>>
>>↑ここで、
>>「オブジェクトは、このプロパティまたは
>>　メソッドをサポートしていません」と
>>言われます。
>>
>>なぜ・・・
【39730】Re:ＩＥにて、ボタンクリックが出来ない
お礼  row E-MAIL  - 06/6/29(木) 23:00 -
引用なし
パスワード
   ▼ichinose さん：
>今、実験してみました。
>　　　Do While objIE.Busy = True Or objIE.readyState <> 4
>　　 　　Loop　　
>'後は、↑これでしょうか？

考えて頂いたコードでやってみました所、
うまくできました！

思わず、「お〜！」と感嘆の言葉が出ました。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7338 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free