Set wks = activesheet
activesheet.Cells.Delete
Workbooks.OpenText FileName:= _
strFileName, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False
activesheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
intLetzteZeile = activesheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Select
Gruß
Andreas