[µo°Ý] ie11+office2010¡A³z¹Lvba¤U¸üyahoo ªºªÑ»ù­nªá¤W30¬í¥ª¥k

cji3cj6xu6

³Ìªñ´«¨t²Î¡Aie11+office2010¡A³z¹Lvba¤U¸üyahoo ªºªÑ»ùÁ`¬O­nªá¤W30¬í¥ª¥k¡A
¤~¦³¿ìªk±N¸ê®Æ§ì¤U¨Ó¡A¥ý«e³»¦h3~5¬í¦Ó¤w(ie9+office2003)¡C

³z¹L¥H¤Uªº³]©w¡Aµo²{¬O¶]¨ìSQL (.Refresh BackgroundQuery:=False)¡A
¦b§ì¨ú¸ê®Æ¤~°±®æ¡A½Ð°Ý¦b¤£°Ê¨t²Îªº±¡ªp¤U¦³¿ìªk´î¤Ö¤U¸ü®É¶¡¶Ü?

   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 = X
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Name = .ResultRange.Cells(3, 1)
    End With