ich habe aus dem SAP einen Lieferreport heruntergeladen. Nun benutze ich folgenden Code um diese SAP-Datei aus einen betimmten Verzeichniss zu öffnen.
Dim varAntwort As Variant
' Bitte Laufwerk und Pfad anpassen
ChDrive ("C:")
ChDir ("C:\Documents and Settings\de00XXX\SapWorkDir\")
varAntwort = Application.GetOpenFilename _
("(*.xl*),*.xl*", 1, _
"Datei auswählen") 'Eigener Dialog Titel
If varAntwort False Then
Workbooks.Open varAntwort
End If
Leider werden bei dieser Methode die Mengen falsch dargestellt (Punkt und Komma). Ich habe die Datei jetzt händisch geöffnet und dies mit den Macrorecorder aufgezeichnet. Dabei kam folgender Code raus:
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\de00XXX\SapWorkDir\Frachtkosten Mai2.xls", Origin _
:=28592, 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)), TrailingMinusNumbers:=True
Hier werden die Werte korrekt dargestellt. Nun habe ich aber das Problem, dass die Datei nicht immer den gleichen Namen hat. Ich bräuchte jetzt quasi eine Mischung aus beiden Macros.
Lassen sich die Parameter aus der Macroaufzeichnung in den oberen Code einbauen?
Vielen Dank im Voraus für Eure Hilfe.
Gruß,
Jakob