Avatar billede cbkc Nybegynder
17. november 2006 - 14:46 Der er 6 kommentarer

Indlæse data fra hjemmeside i et recordsæt - som fra database

Hejsa

Har en SHARED excelfil, hvortil data fra nettet skal indlæses. Da filen er delt kan jeg ikke bare lave en webquery - men kan jeg indlæse den i et recordsæt? Som var det fra en database?
Avatar billede cbkc Nybegynder
17. november 2006 - 14:53 #1
Kan følgende evt. bruges

Set HTTP = CreateObject("Msxml2.serverXMLHTTP")
HTTP.Open "GET", url, False, "", ""
HTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HTTP.Send ""
getdata = HTTP.Responsetext
Set HTTP = Nothing

men hvordan får man så data over i et læsbar format? (indeholder flere tabeller)
Avatar billede davidfossil Nybegynder
17. november 2006 - 15:11 #2
Ved ikke om det er muligt at indlæse Excel dokumentet direkte fra en stream, men du kan da i hvert fald gemme det lokalt og læse det med OLEDB hvis jeg ikke husker helt galt. Google burde kunne hjælpe dig med begge dele.
Avatar billede cbkc Nybegynder
17. november 2006 - 15:17 #3
Der er jeg ikke helt med - hvordan tænker du at jeg skal gemme det - i en textfil. Og OLEDB, har du et eksempel på det?
Avatar billede cbkc Nybegynder
17. november 2006 - 15:21 #4
Kan dette ikke konverteres til en form for recordsæt, så jeg kan omgå at skabe en regulær webquery -

Sub ImportORdersFor_34()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://stien_til_Siden" _
        , Destination:=Range("J1"))
        .Name = "34_4"
        .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 = "8"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Avatar billede davidfossil Nybegynder
17. november 2006 - 15:32 #5
> Der er jeg ikke helt med - hvordan tænker du at jeg skal gemme det - i en textfil.
Som en binær fil på disken. Er det ikke noget med et FSO objekt? (det er længe siden jeg sidst har skrevet VB)

> Og OLEDB, har du et eksempel på det?
Ikke lige ved ærmet desværre. Spørg Google, eller vent på at der kommer en klogere VB-mand herind :)
Avatar billede cbkc Nybegynder
21. november 2006 - 14:40 #6
Har lavet en løsning med en midlertidig Excel fil, hvori data indlæses, overføres til den delte - hvorefter den temporære fil slettes..

Men spørgsmålet er stadig åbent
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





White paper
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis