html - excel

Bild

Betrifft: html - excel
von: tobi
Geschrieben am: 31.10.2003 08:48:41

Hallo zusammen,

ich hätt da mal was kniffliges (für mich zumindest).
Ich lese aus einem html-file Werte in Excel ein. Da das html-file mehr als 240000 Werte enthält, muss ich dieses in mehrere kleinere files händisch unterteilen, was doch sehr mühsam ist.

Gibt es eine Möglichkeit, dass ich die html-Daten in 64000er Blöcken in x Worksheets einer Arbeitsmappe übertragen lassen kann?

Hier ein bisschen Code:


Sub watch_htm_open_convert_save()
    Workbooks.OpenText Filename:= _
        "C:\.....\watch.html", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), ....... Array(15 _
        , 1))
    Columns("L:O").Select
    Range("O1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.LargeScroll ToRight:=-1
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("A:G").Select
    Range("G1").Activate
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.LargeScroll Down:=36
    ActiveWindow.ScrollRow = 1
    Range("H4").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1").Select
    Cells.Replace What:="0x", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
    Columns("G:G").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
       
    ActiveWorkbook.SaveAs Filename:= _
     "C:\....\watch.xls", _
     FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
     ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


Ich hoffe, dass mir jemand helfen kann und danke schon mal im Voraus.

Gruss tobi
Bild


Betrifft: AW: html - excel
von: Nike
Geschrieben am: 31.10.2003 12:47:56

Hi,

war der Link nicht ausreichend?

Bye

Nike


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Inputbox"