インターネットから

http://quote.yahoo.co.jp/m3?u
にある表から各数字を変数に代入する方法は？

No.1 回答者： imogasi 回答日時： 2002/11/03 23:47

私の思いつきなんですが、どうでしょうか。

（１）ご指定のURLをIE（インターネットエクスプローラー）で開く。
（２）WEBが表示される。
　　　表示－ソースをクリックする。
　　　メモ帳でHTML文が開く。
（３）ファイル－名前をつけて保存－名前を（例えば）gaitame.txtで保存。
（４）エクセルに行き、エクセルを開き、Sheet1よりALTを押しつつ
　　　F11キーを押す。VBE画面になる。
　　　ALTキーを押しつつI(挿入）M（標準モジュール）を押す。
（５）出てきた画面に、下記を貼り付ける。
Sub test01()
Workbooks.OpenText "c:\My Documents\gaitame.txt"
Worksheets("gaitame").DrawingObjects.Delete
End Sub　　
（６）実行－ＳＵＢ／ユーザーフォームの実行をクリック。
これでエクセルの表に読みこまれ、余分なものが除かれた。
gaitame.txtというBookのgaitameと言うSheetが出来る。
（７）第１行から相場表の前まで、行削除。
　　　表の下の余分な行を削除。
　　　いつも決まった行から表が始まるなら、行削除はVBAで
　　　出きる。あるいはVBAで「外国為替レート」を探し、その前まで
　　　削除をプログラム化できる。
（８）これでスリムな外国為替レートだけの表のエクセルのシート表になった。
あとはVBAで
sub test02()
for i=1 to 8
for j=1 to 9
a(i,j)=worksheets("gaitame").cells(i,j)
next j
next i
end sub
とかを実行すると、配列（変数）にデータをセットできる。あとは何とでもなります。

No.2 回答者： nishishi 回答日時： 2002/11/04 22:00

imogasiのようにＥＸＣＥＬにいれて後はＶＢＡで処理するのでよいのなら、WEBクエリを利用するほうが簡単だと思いますが、そうでない場合を考えてみました。

とりあえずＶＢＳＣＲＩＰＴで記述しています。テーブルを読み込んでＣドライブに保存しています。

dim IE
set IE = WScript.CreateObject("InternetExplorer.Application")

IE.Width = 640
IE.Height = 480
IE.Visible = true
IE.Navigate("http://quote.yahoo.co.jp/m3?u")
while IE.busy : wend
while IE.Document.readyState <> "complete" : wend

dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\yahoo.txt", True)

for each r in IE.Document.all.tags("TABLE")(5).rows
for each c in r.Cells
a.Write(Replace(c.innerText,vbCrLf,"") & ",")
next
a.Write(vbCrLf)
next
a.Close
IE.quit

とまあ、こんな感じですけどどうでしょうか？