nicht angemeldet
Hallo
Ich erhalte von einem Liefersystem ein Textfile, welches ich in Excel importieren muss. Das klappt auch. Das Textfile enthält dummerweise Leerzeilen. Die weitere Verarbeitung des Excel-Sheets erträgt dies aber nicht. D.h. Das Sheet wird Zeilenweise abgearbeitet, sobald eine Leerzeile folgt, bricht die Verarbeitung ab, was so gewollt ist.
Um sicherzustellen, dass auf eine Leerzeile nix mehr folgt, will ich nun das Excelsheet sortieren, und zwar absteigend, nach der ersten Spalte. Irgendwie funktioniert das aber nicht, Ich erhalte immer die Meldung, dass 'Range' nicht definiert ist...
Hätte mir wohl jemand einen Tip?
Hier noch der betroffene Code:
oExcel.Workbooks.OpenText cIMPORTFILE, 2, 1, 1, 1, False, False, False, False, True, False
Dim myWorksheet
'Dim iColumn
'Dim iRow
Set myWorksheet = oExcel.Workbooks.Item(1).Sheets.Item(1)
myWorksheet.Range("A1").Sort Range("A1"),xlDescending
ActiveWorkbook.SaveAs("temp.xls")
Danke und Gruss