"Laufzeitfehler 1004 Microsoft opentext von Object Workbooks ist fehlgeschlagen"

413
swarish

Ich führe einen Excel-Makrocode aus, der lange Zeit in meinem System Windows 7 und Excel 2013 funktionierte. Ich habe mein System auf Windows 10 und Excel 2013 aktualisiert.

Ich erhalte jetzt den Fehler "Laufzeitfehler 1004 Microsoft opentext von Object Workbooks ist fehlgeschlagen", während der Code ausgeführt wird.

Dim strDestination As String Dim strSource As String  strDestination = ActiveWorkbook.Name  fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt")  Workbooks.OpenText Filename:= _ fileToOpen _, Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ TrailingMinusNumbers:=True  strSource = ActiveWorkbook.Name

Jede Hilfe wird geschätzt.

0

0 Antworten auf die Frage

Verwandte Probleme