/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel henter krak oplysning via makro
Fra : fjernsyn01
Vist : 224 gange
20 point
Dato : 16-11-11 19:08

Hej jeg har brug for hjælp i forbindelse med excel.
Jeg har søgt over nettet og faktisk fundet en makro som man burde kunne bruge til at hente krak oplysninger ned i en Excel regneark blot ved at taste telefonnr i A1.
Desværre får jeg en fejlmeddelelse hver gang jeg bruger det.

Er der et geni som kan forklare mig hvad det er som jeg skal ændre på denne makro. Markere hvad der ser ud til at være fejl i med FED.

Sub Makro()

Nr = Selection
Fuldadresse = Selection.Address
ActiveWorkbook.Worksheets.Add
<b>With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.krak.dk/ (...) & Nr & "&WhoOnlySearch=false&ExtendSearch=false" _
, Destination:=Range("A1"))</b>
.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

 
 
Annuller spørgsmålet
Fra : fjernsyn01


Dato : 16-11-11 19:10

Jeg lavede fejl igen

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 177548
Tips : 31968
Nyheder : 719565
Indlæg : 6408806
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste