GBKEE

¦^´_ 7# li_hsien

¤U¸ü (56.19 KB)

2014-9-6 14:47

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

li_hsien

¦^´_ 6# GBKEE

·PÁª©¤jÀ°§U

§Ú¦A·Q·Q¯à§_´£¨Ñ¬ÛÃö­ì©l½X

ÁÙ¬O§½³¡ªº­ì©l½X

ÁÂÁÂ

GBKEE

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

li_hsien

¦^´_ 4# GBKEE

·PÁª©¤j¨ó§U !!!

©Ò¥H§Ú¥Ø«eªºµ{¦¡½X

¦b³B²z®Ä²v¤W¬O§_ÁÙ¦³§ïµ½ªÅ¶¡©O ???

ÁÂÁÂ

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

li_hsien

¦^´_ 2# GBKEE

¤U¤èªºpage_no¬O¥Î¨Ó´«­¶

¦]¬°­¶­±¤@¦¸¶È¯àÅã¥Ü100µ§

¦ý¦³ªº¬d¸ßµ²ªG·|¤j©ó100µ§

«á¨Ó§Úµo²{ºô§}¤¤·|¦³­Ópageoffset
¦pªGpageoffset=100¡A«h·|´«­¶¡AÅã¥Ü²Ä101~200µ§

©Ò¥H§Úªº§@ªk¥Î­Ó°j°éÅýpageoffset +100
¤@ª½´«­¶¨ìµ§¼Æ¸ò¤W¤@¦¸¤@¼Ë¡A§Y¥Nªí³Ì«á¤@­¶¤F¡A«h°±¤î°õ¦æ¡C

1. Sub Search_Click()
   
2. 
   
3.     Dim Key_URL As String
   
4.     Dim start_row As Integer
   
5.     Dim flag_row As Integer
   
6.     Dim page_no As Integer
   
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.    
    
16.         start_row = Worksheets("BC Data").Range("C65536").End(xlUp).Row + 1
    
17.         
    
18.            Key_URL= "URL;http:// *****  & "pageoffset=" & page_no
    
19.    
    
20.             With Worksheets("BC Data").QueryTables.Add(Connection:=Key_URL, _
    
21.                 Destination:=Worksheets("BC Data").Range("A" & start_row))
    
22.                 .WebSelectionType = xlSpecifiedTables
    
23.                 .WebFormatting = xlWebFormattingNone
    
24.                 .WebTables = "5"
    
25.                 .WebPreFormattedTextToColumns = True
    
26.                 .WebConsecutiveDelimitersAsOne = True
    
27.                 .WebSingleBlockTextImport = False
    
28.                 .WebDisableDateRecognition = False
    
29.                 .WebDisableRedirections = False
    
30.                 .Refresh BackgroundQuery:=False
    
31.                 .Delete
    
32.             End With
    
33.    
    
34.         '¤@­¶­±100µ§ °õ¦æ§¹´«­¶
    
35.         page_no = page_no + 100
    
36.         
    
37.         '¥h¼ÐÀY
    
38.         Worksheets("BC Data").Rows(start_row).Delete
    
39.         
    
40.         '¬ö¿ý³Ì¥½¤ñ
    
41.         flag_row = Worksheets("BC Data").Range("C65536").End(xlUp).Row + 1
    
42.         
    
43.         '¦pªG<100µ§ °õ¦æ¤@¦¸µ²§ô§Y¥i
    
44.         If Worksheets("BC Data").Range("C65536").End(xlUp).Row < 201 Then Exit Sub
    
45.    
    
46.     Loop
    
47.    
    
48. '    Debug.Print page_no
    
49.    
    
50. End Sub

½Æ»s¥N½X

P.S. ¦]¬°¬O¤½¥q¤º³¡ºô¯¸¡A©Ò¥H§Ú¥H*****¨ú¥N¡C

GBKEE

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

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