GBKEE

¦³®É­Ô¦pªG¸ê®Æ¶q¤Ó¤j
Excel·|¶]¶W¤[
li_hsien µoªí©ó 2014/9/1 11:45

ªþÀɬݬÝ,¬O§_¦³§ïµ½ªÅ¶¡,¥iÁYµuµ{¦¡¹B¦æ®É¶¡.

GBKEE

¦^´_ 3# li_hsien
¸Õ¸Õ¬Ý

1. Sub Search_Click()
   
2.     Dim Key_URL As String, T As Date  '*****
   
3.     Dim start_row As Integer
   
4.     Dim flag_row As Integer
   
5.     Dim page_no As Integer
   
6.     T = Time  'µ{¦¡°õ¦æ¶}©l®É¶¡       '******
   
7.         
   
8.     '¦h­¶¤Á´«
   
9.     page_no = 0
   
10.     '°_©lÄæ¦ì
    
11.     start_row = 2
    
12.    
    
13.     '¦pªG¤@ª½´«­¶ ´«¨ì¨S¦³µ§¼Æ®É «h°±¤î(¶}©l¤ñ¼Æ=µ²§ô¤ñ¼Æ ¥¼¼W¥[)
    
14.     Do Until (start_row = flag_row)
    
15.         If Time > T + #12:10:00 AM# Then Exit Sub   'µ{¦¡°õ¦æ¶W¹L10¤À,Â÷¶}µ{¦¡
    
16.         start_row = Worksheets("BC Data").Range("C65536").End(xlUp).Row + 1
    
17.         Key_URL= "URL;http:// *****  & "pageoffset=" & page_no
    
18.         
    
19.         With Worksheets("BC Data").QueryTables.Add(Connection:=Key_URL, _
    
20.                 Destination:=Worksheets("BC Data").Range("A" & start_row))

½Æ»s¥N½X

GBKEE

¦^´_ 5# li_hsien
¦]§A³o¬O¤º³¡ºô­¶,¬Ý¤£¨ì­ì©lÀÉ,©Ò¥H¤£ª¾¦p¦ó§ïµ½.

GBKEE

¦^´_ 7# li_hsien

¤U¸ü (56.19 KB)

2014-9-6 14:47

¦pºô­¶¤W¦³³oÁ`­¶¼Æ,¥i§ì¨ú³oÁ`­¶¼Æ¨Ó¶]°j°é.

GBKEE

¦^´_ 9# li_hsien

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, A As Object, B As String
   
4.     URL = "d:\aaa.htm"  '§A¤º³¡ºô­¶ªººô§}
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Navigate URL
   
7.         .Visible = True
   
8.         Do While .Busy Or .readyState <> 4:         Loop
   
9.         Set A = .document.getElementsByTagName("b").Item(0)
   
10.         '§A³oºô­¶¥u¬Ý¨ì¤@­Ó <B>  ªºElement¤¸¯À,©Ò¥H¬OItem(0)²Ä¤@­Ó
    
11.         B = A.innertext    '"²Ä 1 ­¶¡A¦@ 11 ­¶>>"
    
12.         B = Trim(Mid(B, InStr(B, "¦@") + 1, InStrRev(B, "­¶") - InStr(B, "¦@") - 1))
    
13.         
    
14.         'LTrim¡BRTrim »P Trim ¨ç¼Æ
    
15.         '¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim) ©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C
    
16.         
    
17.         'InStr ¨ç¼Æ
    
18.         '¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
    
19.         
    
20.         'InStrRev¨ç¼Æ
    
21.         '¶Ç¦^¤@­Ó¦r¦ê¦b¥t¤@­Ó¦r¦ê¤¤¥X²{ªº¦ì¸m¡A±q¦r¦êªº¥½§Àºâ°_¡C
    
22.         
    
23.         MsgBox B
    
24.         .Quit
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

getElementsByTagName§äºô­¶ªº¼Ðñ¦WºÙ
(¤£¹L¬Ýª©¤jªº¼gªk  ¬O¤£°Ï¤À¤j¤p¼g¶Ü?)
li_hsien µoªí©ó 2014/9/11 11:06

¬Oªº:¤£°Ï¤À¤j¤p¼gªº

GBKEE

¦^´_ 13# li_hsien

¤U¸ü (63 KB)

2014-9-15 17:14

¦p¹Ï·j¯Á¤@¤U,¥i¤F¸Ñ¦p¦ó¦bExcel§ì¨úºô­¶¸ê®Æ

GBKEE

¦^´_ 15# li_hsien

http://forum.twbts.com/viewthread.php?tid=12029
http://forum.twbts.com/viewthread.php?tid=12322
http://forum.twbts.com/viewthread.php?tid=12044