ネットのデータを取るには (ID:99908)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

このページはデータ部は別なもので処理されていると思われるため
データの取得がForm(0).buy1からデータを取ろうとすると多分レイアウト部しか取れないと思います。(ページのソースみただけで判断しましたが・・・

このWeb_Get_PageDataはExcelやAccessでも使用できるよう
クリップボードからデータを取得する際IEを使用しています。
VB6の場合であればClipboard.GetData ?でいいと思います

Private Sub Command1_a_Click()
Dim Data As String
Call Web_Copy_Clipboard("http://www.fxmuseum.jp/rate/", Data)
MsgBox Data
End Sub

Public Function Web_Get_PageData(URL As String, textData As String) As Boolean
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'指定URLのページをIEのクリップボードを使用しテキストデータを取得します。
'(例)Call Web_Get_PageData("http://www.google.ne.jp",strData)
'   ->"http://www.google.ne.jp"のデータ(テキスト)をstrDataに格納します。
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
On Error GoTo aaa
Dim IE As Object
textData = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 URL
Do
    DoEvents
Loop Until IE.ReadyState = 4
IE.Visible = False
IE.document.ParentWindow.Focus
IE.document.Focus
IE.document.ParentWindow.ClipboardData.ClearData "text"
IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
textData = IE.document.ParentWindow.ClipboardData.GetData("text")
IE.Quit
Set IE = Nothing
Web_Get_PageData = True
Exit Function
aaa:
Web_Get_PageData = False
End Function

←解決時は質問者本人がここをチェックしてください。

戻る