Søg
Avatar billede jberiksen Nybegynder
22. januar 2008 - 18:11 Der er 18 kommentarer og
1 løsning

Data fra DGS eller KRAK til excel

Er det muligt at indtaste et telefonnumer i excel, og så få den til selv at sætte navn og adresse m.m. ind, ved at den slår telefonnummeret op på dgs eller krak?

I så fald kan jeg få et hint til hvordan?
Avatar billede word-hajen Nybegynder
22. januar 2008 - 18:17 #1
Krak har en webservice, hvor du kan få oplysningerne fra. Prøv at kontakte dem.
Avatar billede gider_ikke_mere Nybegynder
22. januar 2008 - 19:16 #2
Du kunne lave en midlertidig webimport med en makro i et nyt regneark, tage de data du skal bruge, og slette arket.
Avatar billede gider_ikke_mere Nybegynder
22. januar 2008 - 19:34 #3
Et simpelt forslag:

Sub Makro()
   
    Nr = Selection
    Fuldadresse = Selection.Address
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.krak.dk/Person/Resultat.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false" _
        , Destination:=Range("A1"))
        .Name = _
        "Kort.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false"
        .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
    Navn = Range("A24").Value
    Adresse = Range("A25").Value & " " & Range("A26").Value
   
   
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
   
    Range(Fuldadresse).Offset(0, 1).Select
    Range(Fuldadresse).Offset(0, 1).Value = Navn
    Range(Fuldadresse).Offset(0, 2).Value = Adresse
   
End Sub

Stil dig på en celle, hvor der står et telefonnr. Kør makroen. Navn & adresse skrives til højre for.
Avatar billede rasmuso Seniormester
24. januar 2008 - 21:47 #4
Hej med jer!
Det er smart! og det virker ;-))
Kan man (hvis jeg giver point!) ændre ovenstående således at der er et felt "kun" med postnummeret (UDEN bynavnet)?
DVS. et felt med telefonnummeret jeg taster ind, et med Navn, et med Adresse, og et med Postnummer!?
Avatar billede gider_ikke_mere Nybegynder
24. januar 2008 - 22:24 #5
Hvis du skriver alle oplysningerne ind, hvad skal den så lede efter?
Avatar billede gider_ikke_mere Nybegynder
24. januar 2008 - 22:29 #6
Hvis du sætter et ' foran ActiveSheet.Delete, kan du i det midlertidige ark se hvilke data der bliver hentet fra Krak.
Avatar billede rasmuso Seniormester
25. januar 2008 - 06:14 #7
Jeg skriver telefonnummeret, kører makroen,
i næste celle hentes navn, næste celle hentes adresse, næste celle postnummer
håber det er forklaring nok ;-))
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 12:29 #8
Det burde være sådan (ikke afprøvet):

Sub Makro()
   
    Nr = Selection
    Fuldadresse = Selection.Address
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.krak.dk/Person/Resultat.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false" _
        , Destination:=Range("A1"))
        .Name = _
        "Kort.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false"
        .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
    Navn = Range("A24").Value
    Adresse = Range("A25").Value
    Postnr = Range("A26").Value

   
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
   
    Range(Fuldadresse).Offset(0, 1).Select
    Range(Fuldadresse).Offset(0, 1).Value = Navn
    Range(Fuldadresse).Offset(0, 2).Value = Adresse
    Range(Fuldadresse).Offset(0, 3).Value = Postnr

End Sub
Avatar billede rasmuso Seniormester
25. januar 2008 - 13:23 #9
Postnummer og bynavn er i samme felt,
jeg ønsker et felt "kun" med postnummeret.
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 14:11 #10
Sub Makro()
   
    Nr = Selection
    Fuldadresse = Selection.Address
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.krak.dk/Person/Resultat.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false" _
        , Destination:=Range("A1"))
        .Name = _
        "Kort.aspx?Who=" & Nr & "&WhoOnlySearch=false&ExtendSearch=false"
        .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
    Navn = Range("A24").Value
    Adresse = Range("A25").Value
    PostNrBy = Range("A26").Value
    PostNrBy = Split(PostNrBy, " ", 2)

   
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
   
    Range(Fuldadresse).Offset(0, 1).Select
    Range(Fuldadresse).Offset(0, 1).Value = Navn
    Range(Fuldadresse).Offset(0, 2).Value = Adresse
    Range(Fuldadresse).Offset(0, 3).Value = PostNrBy(0)
    Range(Fuldadresse).Offset(0, 4).Value = PostNrBy(1)

End Sub
Avatar billede rasmuso Seniormester
25. januar 2008 - 14:44 #11
Hej akyhne,
Så virker det perfekt, Tak for hjælp!
Jeg har oprettet et spørgsmål du kan svare på
så du kan få dine point!

Tak for hjælp & god weekend
Rasmus O.
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 15:15 #12
Æhh, du skal bare acceptere mit svar her - nederst på siden.
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 15:16 #13
http://www.racingcar.dk/eksperten/svar/svar.html
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 15:22 #14
rasmuso: Er jberiksen også din konto?
Avatar billede rasmuso Seniormester
25. januar 2008 - 16:29 #15
Nix!
Derfor har jeg oprettet et nyt spørgsmål til dig, så du kan få point fra mig.
(jeg var bare med på "en kigger"!)
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 16:43 #16
Ok, men det tror jeg ikke giver mig ret til at trække point fra dig. Jeg var ikke opmærksom på du ikke var spørger.
Avatar billede gider_ikke_mere Nybegynder
25. januar 2008 - 23:10 #17
jberiksen: Kunne du bruge det?
Avatar billede jberiksen Nybegynder
13. februar 2008 - 23:18 #18
Undskyld den sene tilbagemelding, men har været på ferie og haft andet at se til da jeg kom hjem.
Takker mange gange for hjælpen, det var fuldt ud brugbart
Avatar billede Kongen2 Nybegynder
12. november 2011 - 15:39 #19
Jeg har prøvet denne tråd men jeg får en fejlmelding når jeg bruger denne makro. Ser ud til problemet skal finde i denne sektion   

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.krak.dk/ (...) & Nr & "&WhoOnlySearch=false&ExtendSearch=false" _
        , Destination:=Range("A1"))

Var lige præcis hvad jeg har brug for, så håber at der stadig er nogen som har viden inden for dette.

Michael
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 4 I går 13:01 I dag 14:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:01 Måned og år på graf Af mort1 i Excel
I går 12:28 2 diske Af dcedata1977 i Andet hardware
I går 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I går 10:20 ASP classic kopiere database fil på server Af bsn i ASP
30/1015:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »