html - excel
31.10.2003 08:48:41
tobi
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
Anzeige