text datei importieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: text datei importieren
von: mesut
Geschrieben am: 17.05.2002 - 13:54:32

hallo,
ich habe den html-code einer Webseite heruntergeladen und als text Datei gespeichert ,dabei hatte ich Hilfe vo Hans W.Herber bekommen. Der nächste Schritt sollte sein ,das die Information in diesem html-code stecken wie in meinem Beispiel Fussball Ergebnisse aufnehmen und in Excel Tabelle einfüge.Kannst du mir hier weiter helfen wie kann ich das am einfachsten erledigen.
Mfg
mesut

nach oben   nach unten

Re: text datei importieren
von: Tobi@s
Geschrieben am: 17.05.2002 - 13:56:31

Hi,
ich kann dir zwar die Frage nicht beantworten, doch bitte nicht doppelt posten im Forum - ist nicht gern gesehen.

nach oben   nach unten

Re: text datei importieren
von: mehmet
Geschrieben am: 17.05.2002 - 17:55:03

selam mesut
habe hier mal gefunden!
muss nur noch angepasst werden.
hoffe, dass dir das soweis hilft
gruss
mehmet

Sub AktualisierenAbfrage()
Dim AbfrageErgebnisOK As Boolean
Application.ScreenUpdating = False
On Error Resume Next
AbfrageErgebnisOK = ThisWorkbook.Worksheets("TMP").QueryTables("AbfrageAuktion").Refresh(False) ' BackgroundQuery:=False
On Error GoTo 0

If AbfrageErgebnisOK = False Then
    MsgBox "Verbindung Abfrage Auktion konnte nicht aufgebaut werden, Abbruch"
    Abbruch = True
    Exit Sub
End If

Application.ScreenUpdating = True
End Sub
Sub WebAbfrageEinrichten()
    With ThisWorkbook.Worksheets("TMP").QueryTables.Add(Connection:= _
    "URL;http://www.auktionmarkt.de/htmls/ktlg/19.htm", Destination:=Range("A1"))
        .Name = "AbfrageAuktion"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With
End Sub




 nach oben

Beiträge aus den Excel-Beispielen zum Thema "text datei importieren"