[µo°Ý] ½Ð°Ýºô§}¥i¥H¥ÎÅܼƥN´À¶Ü¡H

cji3cj6xu6

½Ð°Ýºô§}¥i¥H¥ÎÅܼƥN´À¶Ü¡H
¥i¥Hªº¸Ü¡A¤£¾å±o»yªk¸Ó¦p¦ó¼g¡C

ÁÂÁ¡ã

cji3cj6xu6

¥i¥H work ¤F¡AÁÂÁÂG¤j¡ã

GBKEE

¦^´_ 4# cji3cj6xu6

1. Option Explicit
   
2. Sub EX()
   
3.     Dim WebAddress As String
   
4.     WebAddress = "http://tw.stock.yahoo.com/q/q?s=1101"
   
5.     Range("a2").Select
   
6.      With ActiveSheet.QueryTables.Add(Connection:= _
   
7.         "URL;" & WebAddress, Destination:=Selection) '·s¼W¬d¸ß
   
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 = "6"
    
22.         .WebPreFormattedTextToColumns = True
    
23.         .WebConsecutiveDelimitersAsOne = True
    
24.         .WebSingleBlockTextImport = False
    
25.         .WebDisableDateRecognition = False
    
26.         .WebDisableRedirections = False
    
27.         .Refresh BackgroundQuery:=False
    
28.         .Name = .ResultRange.Cells(3, 1)
    
29.     End With
    
30. End Sub

½Æ»s¥N½X

cji3cj6xu6

¥H¤U¡A¶]¤F¤§«á·|µo¥Í .Refresh BackgroundQuery:=False ¿ù»~¡A¦ý­Y¬Oª½±µ±Nºô§}©ñ¤W«hok¡A½Ð°Ý­n¦p¦ó­×§ï¡A
ÁÂÁ¡ã

Dim WebAddress as string
WebAddress = "http://tw.stock.yahoo.com/q/q?s=1101"

Range("a2").Select
    'With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://tw.stock.yahoo.com/q/q?s=" & [a1] & "", Destination:=Selection) '·s¼W¬d¸ß
     With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;WebAddress", Destination:=Selection) '·s¼W¬d¸ß
     
      
         
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "6"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Name = .ResultRange.Cells(3, 1)
    End With

cji3cj6xu6

Dear stillfish00¤j¤j¡A

Thanks

stillfish00

¦^´_ 1# cji3cj6xu6

1. Dim ÅÜ¼Æ as string
   
2. ÅÜ¼Æ = "http://forum.twbts.com/"

½Æ»s¥N½X