- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 2# luhpro
§Ú¬On§ì¨ú¤@Óºô¶¸ê®Æ,µo²{§ì¥X¨Óªº¸ê®Æ¤¤¤å³£¬O¶Ã½X
¥Î¬Û¦Pªºµ{¦¡´ú¸Õ§ì¨ú¨ä¥Lºô¶¸ê®Æ¨ÃµL¦¹²{¶H
¤~·|¸ß°Ý¬O§_»Pºô¶½s½X¦³¬ÛÃö¶Ü
¦³§ä¨ì¤@½g¤å³¹¬O¥ý±Nºô¶¸ê®ÆÂର.HTMÀÉ,¦A±N¸ê®ÆÂà¤JExcel,«h¥i¥¿±`Åã¥Ü
¥u¬O·|¦h²£¥Í¤@Ó.HTMÀÉ
Sub Ex5()
Dim Fs As Object, Url As String, OkFile As String, MyQuery As QueryTable
Url = "'ºô§}"
OkFile = "C:\OK.HTM" '¤U¸ü«á¦sÀɦWºÙ
Range("A3:AA65526").Clear
Range("A3").Select
With CreateObject("Microsoft.XMLHTTP")
.Open "get", Url, False
.send
Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(OkFile, True)
'«Ø¥ß¤@¤å¦rÀÉ(True:Àɮצp¦s¦b ¥iÂл\ÂÂÀÉ®×)
Fs.WriteLine .responseText '¼g¤J¤å¦rÀÉ
Fs.Close
With ThisWorkbook.Sheets(1) '¤u§@ªí¤¤¶×¤JHTMÀÉ
Set MyQuery = .QueryTables.Add("FINDER;file:///" & OkFile, .[A3])
MyQuery.WebTables = "2"
MyQuery.WebFormatting = xlWebFormattingNone
MyQuery.Refresh 0
End With
End With
End Sub
¤j¤j©Ò´£ªº¤èªk§Ú·|¦A¥h¬ã¨s¬ã¨s
ÁÂÁ§Aªº«ü¾É |
|