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