Office: .csv-Datei mit der Workbooks.Open Methode öffnen?

Hallo und noch alles Gute im Neuen Jahr!

Ich möchte eine .csv-Datei mit der Workbooks.Open Methode öffnen.
In der Hilfe werden u. a. die Parameter Format, Delimiter und Converter beschrieben. Wenn ich für Format=6 (benutzerdefiniertes Trennzeichen) und für Delimiter=";" angebe, wird die Datei trotzdem im "Textmodus" geöffnet, d. h. die durch Semikolon getrennten Werte nicht in die Spalten übernommen.
Für Converter habe ich den Eintrag Array(Array(1,2),Array(2,2)) versucht, aber ohne Erfolg.

Ich habe mir hier schon den Wolf gesucht aber keinen entsprechenden Hinweis darauf gefunden, ob das mit der Workbooks.Open Methode überhaupt geht. Die OpenText Methode habe ich auch schon versucht, aber ebenfalls erfolglos. Es kann doch nicht sein, dass man dazu die TextToColumns Methode verwenden muss, oder?

Kann mir jemand helfen?

Danke im voraus!

:)

 

Hallo simplexius,

keine Sorge, es geht auch ganz einfach mit der Workbooks.Open-Methode und du brauchst sogar nur zwei Parameter anzugeben. Als erstes natürlich den Dateinamen mit Pfad und als zweites den Parameter Local, der auf True gesetzt werden muss. Dieser zweite Parameter sorgt dafür, dass automatisch das übliche Trennzeichen entsprechend der Ländereinstellung des Betriebssystems verwendet wird. Für Deutschland und Österreich also das Semikolon. Ein Beispiel:

Code:

Gruß Ingolf

 

Hallo Ingolf!

Das darf doch nicht wahr sein! - Es geht!
Ich habe mir die Parameter angeschaut und auch den von Local gelesen.
Dort stand aber nur, dass die Datei in der Sprache von MS Excel gespeichert wird. - Was für ein Deutsch?! Ich wäre nie im Leben darauf gekommen, diesen Wert zu testen. Daher habe ich mich so sehr an den anderen Parametern ergötzt.

Nochmals vielen Dank für die schnelle Hilfe
und Grüß'le nach Stuttgart!

Oswald

 

Hallo.
Zu dem Thema hätte ich auch eine Frage.

Meine Datei, die geladen werden soll, packe ich über

Dateiname = Application.GetOpenFilename _
("CSV-Dateien (*.csv),*.csv,Micrsoft Excel-Dateien (*.xls),*.xls")

in eine Variable. Mit

If Not Dateiname = False Then Workbooks.Open Dateiname

öffne ich diese Datei dann in einem neuen Workbook. Aber ich möchte Sie gerne in einem bestimmten Sheet in meiner bereits geöffneten Exceldatei öffnen. Hier einmal der gesamte Quellcode:

Sub einlesen()
ChDir "\"
ChDrive "c:\"
Dim Dateiname
Dateiname = Application.GetOpenFilename _
("CSV-Dateien (*.csv),*.csv,Micrsoft Excel-Dateien (*.xls),*.xls")
Sheets("csv_datei").Select
If Not Dateiname = False Then Open Dateiname For Output As #1
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub

P.S. Die Zeile wird nur gelöscht, weil alle CSV Dateien die ich öffnen werde in der ersten Zeile eine # haben.

Vielen Dank für eure/Ihre Hilfe.

 

Ich habe es jetzt zu 90% selber hinbekommen und wollte dies einmal kundgeben. Smile (für Leute die später mal auch so ein Problem haben)
Code:

Sub einlesen()
ChDir "\"
ChDrive "c:\"
Dim Dateiname
Dateiname = Application.GetOpenFilename _
("CSV-Dateien (*.csv),*.csv,Micrsoft Excel-Dateien (*.xls),*.xls")
If Not Dateiname = False Then Workbooks.Open Dateiname
Rows("1:1").Delete Shift:=xlUp
ActiveSheet.Name = "eingelesene csv_datei"
Sheets("eingelesene csv_datei").Copy After:=Workbooks("Auswertung").Sheets("menu")
End Sub


Ich erstelle die gefundene Datei in einer neuen Excel-Datei - benenne das Sheet um (weil die geladene datei immer anders heißen wird) und kopiere dann das Sheet in meine eigentliche Datei.

Nun habe ich noch das Problem, dass die geladene Datei noch offen ist und zum anderen erstellt er mir mit "Copy After:=" Ja ein neues Sheet nach dem angegebenen Sheet. Ich hätte es aber gerne in einem schon vorhandenen Sheet...

 

Hi sbeste,

habe genau das gleiche Problem!
Hast Du eine Lösung gefunden, mit der Du die Daten in die entsprechende Arbeitsmappe bekommst, also keine neue anlegst?

Gruß m2r

 

Moin, sbeste,

statt .Copy .Move verwenden (also nicht kopieren, sondern verschieben) - dann sollte standardmäßig die CSV-Mappe geschlossen werden. Ansonsten mit Objekten arbeiten und die CSV-Mappe über das Objekt schließen...

 

Hallo,

ich habe zur Zeit ein ähnliches Problem. Ich führe in Word einen Makro aus, der eine Datei in Excel öffnen soll, um Daten in Spalten auszulesen. Mit XLS-Dateien funktioniert das wunderbar, aber nicht mit CSV-Dateien. Wie könnte ich in einem Word-Makro die Option Local:=True angeben, damit die CSV-Datei korrekt in Spalten übernommen wird?

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(Dateiname)
Variable = objWorkbook.Sheets(1).Range("A1")
...
usw.

 

Hallo Dennis,

Code:

Gruß Ingolf

 

Klappt 100%ig! Vielen Dank!

 

Gruß Ingolf

Hi Ingolf,

wollte das eben wie von Dir beschrieben einsetzen, bekomme da aber einen Kompilierungsfehler:

Fehler: ')' erwartet

Zeile: Set objWorkBook = objExcel.Workbooks.Open(Filename:="G:\oma2.csv", Local:=True)

Hast Du einen Tip für mich? Ich muss das Local:=True mit übergeben um die CSV richtig zu importieren, bekomme es nur nicht hin.

Danke

Hanjo

 

Hallo Hanjo,

da muss hinter der Angabe des Dateinamens ein Semikolon hin, statt des Kommas.

Gruß Ingolf

 

Hi,

bringts auch nicht:

Zeile 4, Zeichen 51
')' erwartet, das ist genau nach Filename der ":"

Ich bin am Verzweifeln, suche schon seit 2h eine Lösung das CSV ";" getrennt ordentlich als XLS zu speichern, Deine Lösung soll ja gehen, nur scheitert es an der blöden Local:=True Übergabe. Mit objExcel.Workbooks.Open("G:\oma2.csv") lässt sich das Script zwar ausführen, aber ich kann Local eben nicht übergeben.

Code:

 

Hallo Hanjo,

vergiss das mit dem Semikolon. Da gehört natürlich ein Komma hin. Ich bin da geistig von VBA zu Excelformeln verrutscht. Allerdings funktioniert das bei mir dann so einwandfrei. Was du noch versuchen könntest: Öffne die Datei zunächst ohne Variablenzuweisung und weise anschließend die aktive Datei der Variablen zu. Also statt in einem Schritt:
Code:

in zwei Schritten:
Code:

Wie du siehst, kommst du bei der zweiten Variante ohne Klammern aus. Allerdings müsste es auch mit der ersten Variante funktionieren.

Gruß Ingolf

 

Hi,

ich bin hier am Verzweifeln, geht alles nicht:

Zeile 4, Zeichen 34 "Anweisung erwartet"

Es scheitert immer an dem Filename:=

Gibts das vielleicht in einer neuen Excel Version nicht mehr? Wurde da etwas geändert?

Code: