|
Hallo zusammen
Ich hoffe, nein, ich weiss Ihr könnt mir sicher helfen. Hab jetzt Stunden auf Google und verschiedenen Foren versucht, meine Anforderung zusammen zusuchen, ohne Erfolg. Im Gegenteil, bin jetzt verwirrter als vorher.
Meine Vorstellung vom Ablauf des Makros:
-
Ordner öffnen (immer der selbe) damit ich eine .csv Datei auswählen kann
-
Neues Dokument öffnen
-
Das vorher ausgewählte .csv verarbeiten anhand meinen Anforderungen
fertig
Via Makro-Aufzeichnung habe ich dies erstellt:
*********
Sub CSV_Importieren()
'
' CSV_Importieren Makro
'
'
Workbooks.Add
Workbooks.Open Filename:= _
"\\emea.FIRMA.corp\EuroSDSCH\PABE\10_E-Rechnungen\PROD\20180913010009_ebillRegistrationStage_0001.csv"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _
Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2 _
), Array(14, 2), Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array _
(20, 2), Array(21, 2), Array(22, 2)), TrailingMinusNumbers:=True
Range("A2").Select
End Sub
*****
Problem natürlich, er öffnet immer das gleiche .csv. Mein Wunsch wäre halt, dass ich zuerst das File aussuchen kann via Doppelklick. Ich bring das einfach nicht hin.
Wenn mir hier jemand unter die Arme greifen könnte, wäre sensationell.
Besten Dank vorerst für das Interesse und allenfalls die Lösung :o)
Freundilche Grüsse
Romano
|