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

cji3cj6xu6

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

ÁÂÁ¡ã

cji3cj6xu6

Dear stillfish00¤j¤j¡A

Thanks

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

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