Von |
Cicco |
eMail |
|
Am |
26. März 2008 um 12:23:42 |
Frage |
Hallo zusammen,
ich habe ein kleines Problem wenn ich csv-Dateien per VBA in Excel öffne.
Wenn ich meine csv-Datei ohne VBA ganz normal aus einer bestehenden Excel-Instanz über Datei ==> Öffnen aufmache wird die csv-Datei (Semikolon getrennte Werte) korrekt dargestellt. Versuche ich das über Code "Workbooks.Open" funktioniert die Darstellung in Spalten nicht.
Ich kann es korrekt ausführen wenn ich eine neue Arbeitsmappe einfüge und die csv-Datei dann importiere:Workbooks.Add(1) With ActiveSheet.QueryTables.Add(Connection:="C:\Test.csv", Destination:=Range("A1")) 'etc.Mein Problem ist jetzt dass die nue erstellte Arbeitsmappe "Tabelle1" heißt, und nicht den Namen aus der importierten csv-Datei erhält.
Gibt es eventuell eine Möglichkeit die csv mit "Workooks.Open" so zu öffnen dass die Spalten korrekt dargestellt werden, dann hätte ich das Namensproblem nicht.
Oder gibt es alternativ eventuell die Möglichkeit einer mit "Workbooks.Add" neu hinzugefügten Arbeitsmappe einen Namen vorzugeben. Die Datei soll aber nicht gespeichert werden, dass muss manuell geschehen, darum scheidet "SaveAs" oder "GetSaveAs" aus, die neue Arbeitsmappe soll halt nur statt "Tabelle1" einen Namen haben der aus einer Variablen (Name der csv-Datei) kommt.
Vielen Dank für Eure Hilfe
Gruß cicco
|
|