Добрый день, подскажите как можно силами VBA в запросе к сайту передать логин/пароль?
Запись макрорекордером дала вот это
но оно требует ввода логин/пароль, как мне их передать в запросе? и может здесь половину "выкинуть" можно?
Запись макрорекордером дала вот это
Код |
---|
Sub Макрос1() '' Макрос1 Макрос With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.nachfin.info/SMF/index.php?action=mlist", Destination:=Range("$A$1")) .Name = "index.php?action=mlist" .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 = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
но оно требует ввода логин/пароль, как мне их передать в запросе? и может здесь половину "выкинуть" можно?
Изменено: edkudin - 01.03.2019 02:38:41