http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi?print+200712/07120004.txt
で かいていたのですが
場所が違うそうで
ここにかかせてもらいます
http://www.fxmuseum.jp/rate/
の
USD/JPY の 売値 買値などの データを
とりたいのですが
Text1.Text = WebBrowser1.Document.Forms(0).buy1
などとしてみたのですが やはり受け付けません
ヒントでもいいので 教えていただけると幸いです
windowsxp sp2 VB6
受け付けないって何が？
編集 削除このページはデータ部は別なもので処理されていると思われるため
データの取得が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