PDA

Vollständige Version anzeigen : Aufgezeichnete Webabfrage


Faultier_1982
05.07.2014, 08:46
Hallo

ich habe eine Webabfrage aufgezeichnet und würde mich gerne auf der Internetseite der Webabfrage einloggen. Ist das möglich??

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://URl" _
, Destination:=Range("$A$1"))
.CommandType = 0
.Name = "Name"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With




Ich habe im Office 2003 bereits die Webabfrage eingerichtet, die auch super funktioniert hat, mit Office 2013 funktioniert die aber nicht mehr zuverlässig. in 2003 bin ich so vorgegangen.

Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")

appIE.Top = 0 'Position IE
appIE.Left = 500 'Position IE
appIE.Width = 1000 'Größe IE
appIE.Height = 1500 'Größe IE

appIE.Visible = True 'öffnet Internetexplorer um Internetseite anzuzeigen
appIE.Navigate "URL"


Gruß