[µo°Ý] ¥Îexcel¤Wºô ¥i¦bvba ³]¦nproxyªº user & password

user999

¨ºÃä¥i¥[proxyªº user &  password  ÁÙ¬O­n¥Î¨ä¥L¤èªk


With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://192.xx.xx.xx/abc.php?no=123, Destination:=Selection)   '·s¼W¬d¸ß
       .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Name = .ResultRange.Cells(3, 1)
    End With