Fehler bei Umkonvertierung in Windows ANSI

[Michael K.]

Hallo,

ich möchte in VBA eine Datei (xls) einlesen und die Daten dieser Datei
in eine andere Datei schreiben (in der das Makro läuft). Ferner muss
der Inhalt der ersten Datei in Windows-ANSI- Format umgewandelt/
konvertiert werden. Dabei kommt die Fehlermeldung "Benanntes Argument
nicht gefunden" und StartRow:=1 wird blau markiert.

Kann mir jemand helfen, Danke Michael

Dim DateiPfad, DateiName As String
DateiPfad = Application.GetOpenFilename()
If DateiPfad = False Then Exit Sub
Workbooks.Open Filename:=DateiPfad, Origin:=xlWindows, StartRow:=1,
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1)), _
TrailingMinusNumbers:=True
DateiName = ActiveWorkbook.Name

[Christian Friedrich]

Hallo Michael,

die meisten Parameter, die du für die Open-Methode der Workbooks-Auflistung
verwendest gibt es gar nicht. Es gibt nur die Parameter Filename,
UpdateLinks, ReadOnly, Format, Password, WriteResPassword,
IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter,
AddToMru, Local und CorruptLoad. Mit anderen Worten: Du wirst diese
Fehlermeldung auch noch bei anderen Parametern bekommen.
--
Mit freundlichen Grüßen

Christian Friedrich
Mitglied von Microsoft CLIP (Community Leader/Influencer Program)

Workstream.de http://www.workstream.de/ | http://www.e-workstream.com/

Post by Michael K.
Hallo,
ich möchte in VBA eine Datei (xls) einlesen und die Daten dieser Datei
in eine andere Datei schreiben (in der das Makro läuft). Ferner muss
der Inhalt der ersten Datei in Windows-ANSI- Format umgewandelt/
konvertiert werden. Dabei kommt die Fehlermeldung "Benanntes Argument
nicht gefunden" und StartRow:=1 wird blau markiert.
Kann mir jemand helfen, Danke Michael
Dim DateiPfad, DateiName As String
DateiPfad = Application.GetOpenFilename()
If DateiPfad = False Then Exit Sub
Workbooks.Open Filename:=DateiPfad, Origin:=xlWindows, StartRow:=1,
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1)), _
TrailingMinusNumbers:=True
DateiName = ActiveWorkbook.Name