Office: Unverständliches Datei öffnen Problem

andysmith · 6. Juli 2010

Hallo
Ich habe folgendes Problem beim öffnen einer excel Datei. Wenn ich die Datei normal öffne dann sehe ich alle Zahlen wie sie sein sollen, wenn ich aber diese Datei via VBA öffne
Code:
Set KDL = Workbooks.Open(Filename:=Pfad & Dateiname, ReadOnly:=False)
wird speziell im Bereich Stückzahl aus 1 eine 1.000 die dann als 1000 auch weiter behandelt wird.
Als Hintergrund sollte ich noch erwähnen, das diese Datei aus SAP kommt. Wenn man diese Datei nur öffnet und wieder direkt speichert kommt ein Popup wie im Anhang sichtbar.
Wenn ich diesen Popup mit nein beantworte und im nächsten Menü die neu konvertierte Datei "auf sich selbst speichere ist alles OK mit den Zahlen etc. und das eigentliche Makro rennt ohne Problem, allerdings ohne dem habe ich statt Stk 1 ==> Stk 1000

wie kann ich das in VBA beim öffnen oder der Behandlung der "fast excel Datei" so hinbekommen, das ich nicht manuell eingreifen muß??

Vielen Dank für die Info

Exl121150 · 6. Juli 2010

Hallo,

wenn Du in der Excel-Hilfe nachschaust, wirst Du (etwas verkürzt) folgende Informationen finden:

Syntax:
Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Ausdruck: Eine Variable, die ein Workbooks-Objekt darstellt.
Open: Öffnet eine Arbeitsmappe.

Beschreibung der restlichen Parameter:
Format: Optional Variant
Wenn in Microsoft Excel eine Textdatei geöffnet wird, gibt dieses Argument das Trennzeichen an. Wenn dieses Argument nicht angegeben ist, wird das aktuelle Trennzeichen verwendet. Weitere Informationen zu den von diesem Parameter verwendeten Werten finden Sie im Abschnitt mit den Hinweisen.
Sie können im Parameter Format einen der folgenden Werte angeben, um das Trennzeichen für die Datei zu bestimmen:
Wert Trennzeichen
1 Tabstopps
2 Kommas
3 Leerzeichen
4 Semikolons
5 Keine
6 Benutzerdefiniertes Trennzeichen (siehe Delimiter-Argument)

Origin: Optional Variant
'Wenn es sich um eine Textdatei handelt, wird mit diesem Argument der Dateiursprung angegeben (sodass Codeseiten und Wagenrücklauf/Zeilenvorschub (CR/LF) richtig zugeordnet werden können). Dabei kann es sich um eine der folgenden XlPlatform-Konstanten handeln: xlMacintosh, xlWindows oder xlMSDOS. Wenn dieses Argument nicht angegeben ist, wird das aktuelle Betriebssystem verwendet.

Delimiter: Optional Variant
Wenn es sich um eine Textdatei handelt und das Format-Argument den Wert 6 besitzt, gibt diese Zeichenfolge das zu verwendende Trennzeichen an. Verwenden Sie z. B. Chr(9) für Tabstopps, "," für Kommas, ";" für Semikolons, oder verwenden Sie ein benutzerdefiniertes Zeichen. Nur das erste Zeichen der Zeichenfolge wird verwendet.

Local: Optional Variant
Mit True werden Dateien in der Sprache von Microsoft Excel (einschließlich der Einstellungen der Systemsteuerung) gespeichert. Mit False (Standard) werden Dateien in der Sprache von Visual Basic für Applikationen (VBA) (VBA: Eine Makrosprachenversion von Microsoft Visual Basic zum Programmieren von Microsoft Windows-basierten Anwendungen, die in verschiedenen Microsoft-Programmen enthalten ist.) gespeichert (normalerweise US-Englisch, sofern das VBA-Projekt, über das Workbooks.Open ausgeführt wird, kein altes internationalisiertes XL5/95 VBA-Projekt ist).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am ehesten würde ich Folgendes vermuten:
Da Du in Deiner Parameterliste 'Local:=...' nicht angegeben hast, wird Local als Local:=False verwendet, weil das die Standardeinstellung ist (lt. obiger Hilfe). Somit werden die englisch-sprachigen Einstellungen von VBA genommen und nicht die des deutschen Sprachraumes.
Das kann sich zB. bei Zahlen bemerkbar machen: ob Tausenderpunkt oder -komma, ob Dezimalpunkt oder -komma, was in etwa Deine geschilderten Probleme erklären würde.

Set KDL = Workbooks.Open(Filename:=Pfad & Dateiname, ReadOnly:=False, Local:=True)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

andysmith · 9. Juli 2010

Zitat von Exl121150:

Am ehesten würde ich Folgendes vermuten:
Da Du in Deiner Parameterliste 'Local:=...' nicht angegeben hast, wird Local als Local:=False verwendet, weil das die Standardeinstellung ist (lt. obiger Hilfe). Somit werden die englisch-sprachigen Einstellungen von VBA genommen und nicht die des deutschen Sprachraumes.
Das kann sich zB. bei Zahlen bemerkbar machen: ob Tausenderpunkt oder -komma, ob Dezimalpunkt oder -komma, was in etwa Deine geschilderten Probleme erklären würde.

Set KDL = Workbooks.Open(Filename:=Pfad & Dateiname, ReadOnly:=False, Local:=True)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

genau das war des Rätsels Lösung!!

Vielen Dank!!

Office: Unverständliches Datei öffnen Problem

Unverständliches Datei öffnen Problem

Anhänge:

1_123.jpg (71,7 KB)

Unverständliches Datei öffnen Problem

Unverständliches Datei öffnen Problem - Similar Threads - Unverständliches Datei öffnen

Name der Datei durch Excel geändert

Zugriff auf nicht vorhandene Datei seitens Excel

Makro öffnet unerwartete Datei

Große Textdatei - Formate entschlacken

Word 2000-Datei beschädigt?

Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten

Unverständliche Variablenverwendung