­ã´£³¡ªL

1. Sub ROE_1()
   
2. [ROEÁ`ªí!B1].Value = String(52, "+")
   
3. For i = 10 To [­ÓªÑ¸ê®Æ!B281].End(xlDown).Row
   
4.     With Sheets("ROE").QueryTables.Add(Connection:= _
   
5.         "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & _
   
6.         [­ÓªÑ¸ê®Æ!B1].Cells(i, 1) & ".djhtm", Destination:=[ROE!B1])
   
7.         .Name = ""
   
8.         .FieldNames = True
   
9.         .RowNumbers = False
   
10.         .FillAdjacentFormulas = False
    
11.         .PreserveFormatting = True
    
12.         .RefreshOnFileOpen = False
    
13.         .BackgroundQuery = True
    
14.         .RefreshStyle = xlInsertDeleteCells
    
15.         .SavePassword = False
    
16.         .SaveData = True
    
17.         .AdjustColumnWidth = True
    
18.         .RefreshPeriod = 0
    
19.         .WebSelectionType = xlSpecifiedTables
    
20.         .WebFormatting = xlWebFormattingNone
    
21.         .WebTables = "1"
    
22.         .WebPreFormattedTextToColumns = True
    
23.         .WebConsecutiveDelimitersAsOne = True
    
24.         .WebSingleBlockTextImport = False
    
25.         .WebDisableDateRecognition = False
    
26.         .WebDisableRedirections = False
    
27.         .Refresh BackgroundQuery:=False
    
28.         .Delete
    
29.     End With
    
30.    
    
31.     Dim xF As Range, xE As Range
    
32.     Set xF = [ROE!C1:C500].Find("ªÑªFÅv¯q³ø¹S²v")
    
33.     If Not xF Is Nothing Then
    
34.        Set xE = [ROEÁ`ªí!B1].End(xlDown)(2)
    
35.        xE.Select
    
36.        Range(xF, xF.End(xlToRight)).Copy xE
    
37.        xE(1, 0) = Sheets("­ÓªÑ¸ê®Æ").Range("C" & i)
    
38.     End If
    
39.     Sheets("ROE").UsedRange.Clear
    
40. Next
    
41. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 7# power82843


¦³µL¸õ¥X¿ù»~µøµ¡, ¤Î¿ù»~¦æªº¦ì¸m,
¤j³¡¥÷ºô­¶¬°¨¾¤îµu®É¶¡¦h¦¸ªº¦s¨ú, ·|Âê¦í±zªºip, ©Ò¥HµLªk§¹¦¨¥þ³¡¶×¤J!

­ã´£³¡ªL

°õ¦æ¤F¤T¦¸, ³£¥i¥H¶¶§Q¶]§¹:
Xl0000003.rar (288.27 KB)

¤U¸ü¦¸¼Æ: 9

2016-12-3 18:38

­ã´£³¡ªL

¦^´_ 14# power82843


³QÂê¦íip, À³·|¥X²{¿ù»~µøµ¡, ¦Ó¥B¤]À³µLªk¦A°õ¦æ, °£«D²M°£©Ò¦³ªºÂsÄý¾úµ{¤Îcookie(¨Ì¥H«e§ì©_¼¯ª¾ÃÑ+¸gÅç),
¦pªG¬O¨S¦³¶]§¹¨ì¤u§@ªíªº³Ì«á¤@µ§¸ê®Æ, À³¬O End(xlDown)ªº°ÝÃD, ¹J¨ìªÅ¥Õ®æ´N°±¹y, §ï¥ÎEnd(xlUp)§Y¥i,
¥H¥Ø«eªº¸êªU, End(xlDown) , ²Ä368¦C[2301 ¥úÄ_¬ì]´N¬O³Ì«á¤@µ§!

For i = 10 To [­ÓªÑ¸ê®Æ!B1].Cells(Rows.Count, 1).End(xlUp).Row
«h¥i¥H¶]¨ì²Ä890¦C!!!