Datei öffnen mit Passwortschutz
08.03.2006 10:15:57
Enrico
Sub import()
Sheets("Menu").Select
Workbooks.OpenText Filename:=(ThisWorkbook.Path & "\Daten.xls"), Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:=" ", FieldInfo:= _
Array(Array(1, 2), Array(2, 2))
End Sub