@Coros Betr.:csv-Datei importieren
Zitat:
Antwort von coros vom 18.01.2006, 10:50
Option Explicit
Sub Alle_CSV_Dateien_oeffnen()
Dim CSV_Dateiname As String, Pfad As String
Application.ScreenUpdating = False
Pfad = "C:\\Dein Ordner\"
CSV_Dateiname = Dir(Pfad & "*.csv")
Do While Dateiname <> ""
Workbooks.Open Pfad & CSV_Dateiname
Dateiname = Dir
Loop
End Sub
Hallo Oliver,
habe das folgende Makro im Archiv gefunden.
Hier wird die csv-Datei beim importieren zeilenweise ausgegeben.
Könnte es auch so geändert werden, dass die Ausgabe in der Tabelle
spaltenmäßig eingetragen wird und wenn ja - Wie?
MfG
Odje
Antwort schreiben
Antwort 1 von coros vom 23.10.2020, 05:50 Options
Hallo Odje,
Du hast einen schlechten Betreff gewählt. Da Du mich persönlich ansprichst, könnte es sein, dass niemand anderes darauf antwortet. Da ich aber nich täglich hier im Forum unterwegs bin, kann es sein, dass Du gar keine Antwort bekommst. Daher wähle nächstes mal einen neutraleren Betreff.
Zu dem Makro. Mit dem Makro werden keine Zeilen eingelesen. Damit wird eine bzw. mehrere CSV-Datei geöffnet. Mehr nicht. Wenn Du nur Spalten haben möchtest, dann musst Du unter "Daten => externe Daten importieren => Daten importieren..." Deine CSV-Datei auswählen. Im Schritt 2 des Textkonvertierungsassistenten gibst Du an, bei welchem Zeichen die Daten getrennt werden sollen (meistens das Komma oder das Semikolon) und in Schritt 3 hast Du die Möglichkeit zu sagen, welche Spalten eingefügt und welche nicht eingefügt werden sollen.
Wenn Du das Ganze als Makro haben möchtest, dann zeichne Dir den Ablauf mit dem Makrorekorder auf.
Ich hjoffe, ich konnte Dir weiterhelfen. Ebentuell liege ich mit meiner Beschreibung auch total daneben, weil ich Deine Frage falsch verstanden habe?
Bei Fargen melde Dich wieder.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.