Vba om data van web te importeren

[Dolfke]

Hoi allemaal ,

Met onderstaande code kan ik een bepaald stuk web data importeren in excel.

Sub Macro1()
   
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;MY_URL", _
        Destination:=Range("$A$2"))
        .Name = "Plank"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Als ik de code laat lopen opent hij een IE venster en laat de gegevens binnen.
Nu zou ik de code willen aanpassen dat hij geen IE venster opent maar dat hij de data van een al geopent venster importeerd.

Dit heeft allemaal te maken met inlog schermen.
Het geopende IE vernster in al ingelogd , als ik een nieuw IE venster open moet ik nog inloggen en dit wil ik vermijden.

Bedankt.

Dolfke.

 

[Dolfke]

Hoi allemaal ,

Ik heb zelf een oplossing kunnen vinden voor mijn probleem waarmee ik verder geraak.

Ik heb het als volgt opgelost door een paar regeltjes te veranderen/toe te voegen.

Het eerste wat ik doe is de geopende Web pagina (die verkregen is via een Login) opslaan als een temp file.

s_outerhtml = IE.document.body.outerHTML

Open tempDir & "/tempFile.htm" For Output As #i_file
Print #i_file, s_outerhtml

Close #i_file

Inplaats van te navigaren naar een WEbpagina ga ik nu mijn opgeslagen HTML-document openen met onderstaande code , en deze gegevens laat ik in in mijn excel sheet.

With Sheets("Data").QueryTables.Add(Connection:= _
    "URL;file:///" & tempDir & "/tempFile.htm", _
    Destination:=Range("$A$2"))

Toch allemaal bedankt en hopelijk zijn er andere ook mee geholpen,

mvg Dolfke.