Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4398 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56792】VBAでIEのボタンの押す方法 ダンカイ 08/7/4(金) 22:58 質問[未読]
【56797】Re:VBAでIEのボタンの押す方法 かみちゃん 08/7/5(土) 9:48 発言[未読]
【56804】Re:VBAでIEのボタンの押す方法 ダンカイ 08/7/6(日) 6:48 質問[未読]
【56806】Re:VBAでIEのボタンの押す方法 かみちゃん 08/7/6(日) 8:08 発言[未読]
【56816】Re:VBAでIEのボタンの押す方法 熊谷隆史 08/7/7(月) 13:11 発言[未読]
【56833】Re:VBAでIEのボタンの押す方法 ダンカイ 08/7/7(月) 20:47 質問[未読]
【56867】Re:VBAでIEのボタンの押す方法 熊谷隆史 08/7/9(水) 9:39 発言[未読]
【56923】Re:VBAでIEのボタンの押す方法 ダンカイ 08/7/10(木) 21:12 お礼[未読]
【56929】Re:VBAでIEのボタンの押す方法 熊谷隆史 08/7/11(金) 11:28 発言[未読]
【56792】VBAでIEのボタンの押す方法
質問  ダンカイ  - 08/7/4(金) 22:58 -
引用なし
パスワード
   お世話になります。
　エクセルVBAでIEを操作したいのですが、ボタンの押し方がわかりません。
対象のボタン（？）のプロパティは　アドレス　javascript:fnMovePage('002********') となっています。マウスでクリックするとページめくりとなってかっこの内容は変化していきます。VBAでどのように扱ったらいいのか皆目検討がつきません。どなたかご教授を願います。
【56797】Re:VBAでIEのボタンの押す方法
発言  かみちゃん  - 08/7/5(土) 9:48 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>　エクセルVBAでIEを操作したいのですが、ボタンの押し方がわかりません。
>対象のボタン（？）のプロパティは　アドレス　javascript:fnMovePage('002********') となっています。マウスでクリックするとページめくりとなってかっこの内容は変化していきます。VBAでどのように扱ったらいいのか

見当違いかもしれませんが、以下のＵＲＬあたりなど参考になりませんでしょうか？
ｈｔｔｐ://www.ken3.org/vba/backno/vba155.html

後、「java」で過去ログを検索してみてもいいかもしれません。
【56804】Re:VBAでIEのボタンの押す方法
質問  ダンカイ  - 08/7/6(日) 6:48 -
引用なし
パスワード
   ▼かみちゃん さん：
ありがとうございます。
私も提示いただいたアドレスを参考に調べましたがなかなか回答が見つかりません。ちょっとふさぎこんでおります。

>こんにちは。かみちゃん　です。
>
>>　エクセルVBAでIEを操作したいのですが、ボタンの押し方がわかりません。
>>対象のボタン（？）のプロパティは　アドレス　javascript:fnMovePage('002********') となっています。マウスでクリックするとページめくりとなってかっこの内容は変化していきます。VBAでどのように扱ったらいいのか
>
>見当違いかもしれませんが、以下のＵＲＬあたりなど参考になりませんでしょうか？
>ｈｔｔｐ://www.ken3.org/vba/backno/vba155.html
>
>後、「java」で過去ログを検索してみてもいいかもしれません。
【56806】Re:VBAでIEのボタンの押す方法
発言  かみちゃん  - 08/7/6(日) 8:08 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> ちょっとふさぎこんでおります。

もう少し具体的なＵＲＬなど提示していただいたほうが、よれよい回答が見つかる
かもしれません。
ただし、私には、その術がわからないかもしれませんが・・・
【56816】Re:VBAでIEのボタンの押す方法
発言  熊谷隆史  - 08/7/7(月) 13:11 -
引用なし
パスワード
   ▼ダンカイ さん：
JavaアプレットとJavaScriptは
別物だと思うけど、分かる方は分かるのでしょうね。
(実際のソースを見ても私には分からないけど)

参考)
www.google.co.jp/search?q=cache:www2.moug.net/bbs/exvba/20071025000029.htm
www.google.co.jp/search?q=cache:www2.moug.net/bbs/exvba/20080424000026.htm

# これからアナログと表示されるTVを
　いつ買い換えるべきか検討する今日この頃。
【56833】Re:VBAでIEのボタンの押す方法
質問  ダンカイ  - 08/7/7(月) 20:47 -
引用なし
パスワード
   下記の内容で実行するとエラーとなります。
(KEN3さんの記事を参考にしております。）

Dim objIE　　As Object
　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Visible = True
　　objIE.Navigate "個人情報に差しさわりがあるので表示できず（残念）"
　　　 Do While objIE.Busy = True
　　　 　DoEvents
　　　　Loop
Dim n As Integer
　　Dim objFDOC As Object　
　　Set objFDOC = objIE.Document.frames("MAINE").Document
　　ここで下記エラーとなります。

　　「実行時　エラー　”７０”
　　　　　書き込みできません」

どなたか回答お待ちしております。
（具体的なURLが表示できず大変勝手だとお叱りを受けるかも知れませんが）

>▼ダンカイ さん：
>JavaアプレットとJavaScriptは
>別物だと思うけど、分かる方は分かるのでしょうね。
> (実際のソースを見ても私には分からないけど)
>
>参考)
>www.google.co.jp/search?q=cache:www2.moug.net/bbs/exvba/20071025000029.htm
>www.google.co.jp/search?q=cache:www2.moug.net/bbs/exvba/20080424000026.htm
>
># これからアナログと表示されるTVを
>　いつ買い換えるべきか検討する今日この頃。
【56867】Re:VBAでIEのボタンの押す方法
発言  熊谷隆史  - 08/7/9(水) 9:39 -
引用なし
パスワード
   載せられている情報が少なく、どうにもならないのでこの辺で。

ｈｔｔｐ://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?mode=allread&no=12706&page=0
で魔界の仮面弁士さんがリンクしてた
ｈｔｔｐ://croissant3.blog66.fc2.com/blog-entry-51.html
も参考に。
【56923】Re:VBAでIEのボタンの押す方法
お礼  ダンカイ  - 08/7/10(木) 21:12 -
引用なし
パスワード
   いろいろありがとうございました。
私には難解なので当初の方針変更して　
　mouse_event API
で、考えて見ます。

▼熊谷隆史 さん：
>載せられている情報が少なく、どうにもならないのでこの辺で。
>
>ｈｔｔｐ://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?mode=allread&no=12706&page=0
>で魔界の仮面弁士さんがリンクしてた
>ｈｔｔｐ://croissant3.blog66.fc2.com/blog-entry-51.html
>も参考に。
【56929】Re:VBAでIEのボタンの押す方法
発言  熊谷隆史  - 08/7/11(金) 11:28 -
引用なし
パスワード
   > ｈｔｔｐ://croissant3.blog66.fc2.com/blog-entry-51.html
参考。

08/7/7(月) 20:47 は、
navigate後の待ちが足りないのでエラーが
出ているのではないですか。


Option Explicit
'Microsoft Internet Controlsに参照設定
'VistaならMicrosoft Browser Helpers(保護モード無効)

Private WithEvents objIE As InternetExplorer
Private flg As Boolean

Private Sub Workbook_Open()

　　Dim strURL As String
　　flg = False
　　strURL = "ｈｔｔｐ://www.google.co.jp/"'ｈｔｔｐは半角に。
　　Set objIE = New InternetExplorer
　　objIE.Visible = True
　　objIE.navigate strURL
　　Do
　　　　DoEvents
　　Loop Until flg
　　
End Sub

Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
　　If pDisp Is objIE Then
　　　　flg = True
　　End If
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4398 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free