Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

query url internetaufruf

query url internetaufruf
Michael
Hey!
Warum nimmt er nicht die in Feld A1 angegebene Adresse!!!!
Was ist hier falsch?
Gruß Michael
  • 
    Sub Makro7()
    ' Makro7 Makro
    ' Makro am 02.11.2009 von Michael aufgezeichnet
    Dim adresse As String
    adresse = Range("a1")
    'Range("A1").Select
    ' ActiveSheet.Paste
    With ActiveSheet.QueryTables.Add(Connection:=adresse, Destination:=Range("B1"))
    ' _
    "URL;http://www.nrwtonight.de/index.php?RubrikID=5&RubrikSubID=10&RubrikSubSubID=1" _
    , Destination:=Range("B1"))
    .Name = "index.php?RubrikID=5&RubrikSubID=10&RubrikSubSubID=1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingAll
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = True
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With
    End Sub
    

  • 2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    AW: query url internetaufruf
    02.11.2009 15:47:05
    Armin
    Hallo Michael,
    Sub Makro7()
    Dim adresse As String
    adresse = Range("a1")
    With ActiveSheet.QueryTables.Add(Connection:=adresse, Destination:=Range("A1"))
    End With
    End Sub
    
    Gruß Armin
    Weshalb....? - siehe Thread unten
    02.11.2009 16:10:55
    NoNet
    Hallo Michael,
    weshalb bleibst Du nicht in Deinem ursprünglichen Thread und antwortest nicht auf meinen Lösungsvorschlag ?
    https://www.herber.de/forum/messages/1113787.html
    Gruß, NoNet

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige