Das Archiv des Excel-Forums

csv Dateien importieren

nach unten


Betrifft: csv Dateien importieren
von: bene bene

Geschrieben am: 08.09.2019 12:25:52

Guten Tag,
ich hab ein Code und benötige eure Hilfe.
Der Code funktioniert nur nicht, weil ich CSV Dateien importieren möchte.
Ich weiß das ich Local:=True in mein Code hinzufügen soll, aber nicht wo genau.
Könnt ihr mir bitte helfen?

Sub HI()
Dim oTargetBook As Object
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Application.ScreenUpdating = False 'Das "Flackern" ausstellen
Application.DisplayAlerts = False 'Keine Fehlermeldungen anzeigen
'Schritt 1: Arbeitsmappe festlegen, in die die neuen Sheets eingefügt werden...
Set oTargetBook = ActiveWorkbook
'Schritt 2: Schleife über alle Excel Dateien in einem Verzeichnis
sPfad = "C:\Users\PNL\Desktop\BENE\"
sDatei = Dir(CStr(sPfad & "*.csv*")) 'Alle Excel Dateien
Do While sDatei <> ""
'Schritt 3: öffnen der Datei und Datenübertragung
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen
'Es wird immer das erste Tabellenblatt Sheets(1) kopiert!
oSourceBook.Sheets(1).Copy after:=oTargetBook.Sheets(oTargetBook.Sheets.Count)
On Error Resume Next
'Arbeitsblattname wird der Dateiname
oTargetBook.Sheets(oTargetBook.Sheets.Count).Name = sDatei
'Wenn ein Fehler aufgetreten ist, wird dieser resettet
If Err.Number <> 0 Then
Err.Number = 0
Err.Clear
End If
On Error GoTo 0
'Schritt 4: Datei wieder zu machen und nächste Schleifenrunde
oSourceBook.Close False 'nicht speichern
'Nächste Datei
sDatei = Dir()
Loop
Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
Application.DisplayAlerts = True 'Fehlermeldungen wieder anzeigen
'Kleine finale Fertig-Meldung
MsgBox "Fertig!", vbInformation + vbOKOnly, "Hinweis!"
'Variablen aufräumen
Set oTargetBook = Nothing
Set oSourceBook = Nothing
End Sub

Gruß,
Bene

Betrifft: AW: csv Dateien importieren
von: Nepumuk
Geschrieben am: 08.09.2019 18:55:18
Hallo Bene,
so:

Set oSourceBook = Workbooks.Open(Filename:=sPfad & sDatei, ReadOnly:=True, Local:=True)

Das unterdrücken von UpdateLinks ist in CSV-Dateien unnötig da das nur Textdateien sind.
Und hier ist das CStr überflüssig:
sDatei = Dir$(sPfad & "*.csv*")

Gruß
Nepumuk

Excel-Beispiele zum Thema "csv Dateien importieren "

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download Textdatei in Tabellenblatt importieren download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Diagramm exportieren und in Tabellenblatt importieren download
Suchbegriffe in UserForm eingeben, Fundstelle importieren download Benannte Bereich aus mehreren Arbeitsmappen importieren download
Textdatei mit 250.000 Zeilen anlegen und importieren download Name und Vorname suchen, Werte und Fundstellen importieren download
Grafik importieren und in Zelle zentrieren download Arbeitsblatt aus einer anderen Arbeitsmappe importieren download
Textdatei über QueryTables importieren download Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren download
Werte aus Textdatei importieren und umwandeln download Werte aus anderen Arbeitsmappen importieren download