| |
▼ぶどう さん：
こんばんは。
>このURの表: ht:/portal.xfnj.com/msn/index.php?option=com_xfn_company&Itemid=39&action=finance&code=0001_HK
↑これの「会計年度・・・」という表が取得できれば良いのですか？
だとしたら、
>がWEBクエリで取り込みできないのですが、何かいい方法はないでしょうか？（直接コピーペースト以外の方法）
Webクエリは使ったことがないのですが,
直接コピーペーストでなければ良いのなら・・・。
新規ブックの標準モジュールに
'===============================================================
Sub main()
On Error Resume Next
Dim ie As Object
Dim tbl As Object
Dim rw As Object
Dim cll As Object
Dim g0 As Long, g1 As Long
Dim cnt As Long
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "ＨＴＴＰ://portal.xfnj.com/msn/index.php?option=com_xfn_company&Itemid=39&action=finance&code=0001_HK"
' ↑頭のＨＴＴＰを半角小文字に修正後、実行すること
Do While .Busy = True Or .readyState <> 4
Loop
For Each tbl In .document.body.all
If TypeName(tbl) = "HTMLTable" Then
If tbl.Rows(0).Cells(0).innertext = "会計年度" Then
cnt = tbl.Rows(0).Cells.Length
For Each rw In tbl.Rows
g1 = 0
For Each cll In rw.Cells
Cells(g0 + 1, g1 + 1).Value = cll.innertext
g1 = g1 + 1
Next
g0 = g0 + 1
Next
End If
End If
Next
.Quit
End With
Range(Columns(1), Columns(5)).AutoFit
Set tbl = Nothing
Set ie = Nothing
Set rw = Nothing
Set cll = Nothing
End Sub
上記のmainの実行でアクティブシートに会計年度以下の表が表示されます。
（＊＊ URLのＨＴＴＰを半角小文字に修正すること)
Win2000 & Excel2002にて確認しました。
試してみてください。
|
|
ichinose
- 07/10/8(月) 8:59 -
