ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤WºôÂ^¨ú¸ê®Æ µLªk§¹¾ã

[µo°Ý] ¤WºôÂ^¨ú¸ê®Æ µLªk§¹¾ã

½Ð±Ð½Ñ¦ì¥ý¶i
¦bÂ^¨ú¸ê®Æ®É ºô­¶¦³500µ§
¦ý¥uÂ^¨ú300¦hµ§
¦bºô­¶­¶­± À˵ø ­ì¨ÏÀÉ ¯uªº¥u¨ì300¦hµ§
¬O¯uªº³o¼Ë³Æ­­¨î¶Ü
¦p¦ó¬ð¯},½Ð½ç±Ð
ÁÂÁÂ!


On Error GoTo TheChick
   With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://xxx.xxx.xx.xx/xx.php", Destination:=Selection)   '¬d¸ß
        .FieldNames = True
        .WebSelectionType = xlEntirePage
        '.WebFormatting = xlWebFormattingNone
        '.WebTables = "1"
        '.WebPreFormattedTextToColumns = True
        '.WebConsecutiveDelimitersAsOne = True
        .SavePassword = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        '.Name = .ResultRange.Cells(5, 1)
        .UsedRange.Columns.AutoFit
    End With  
    TheChick:
       Resume Next
max

¦^´_ 1# user999


¬Ý¨ìºô­¶¦³¦h¤Öµ§¸ê®ÆQueryTable´N¥i¥H§ì¨ì¦h¤Öµ§¡A¨S¦³µ§¼Æ­­¨î¡Cºô­¶¦³­­¨îµ§¼Æ¡A¤~·|³Q­­¨î¡C
diabo

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD