Office: Mehrere CSV-Dateien öffnen und in einer Tabelle einfügen

sacredlife · 13. Oktober 2010

Vorweg:
Ich habe dieselbe Frage vor ein paar Tagen auf www.office-loesungen.de gestellt und leider keine Antwort bekommen.
Link dazu: http://www.*************************417147_0_0_asc.php

Sollte dort eine hilfreiche Antwort auftauchen, werde ich das hier und dort kennzeichnen.
Ich bitte darum, diesen Crosspost nicht zu löschen - trotz identischen Inhalts.

EDIT:
Tut mir Leid, aber ich verstehe nicht, warum meine Links zensiert werden.
Ich poste nicht in böser Absicht, möglichst schnell eine Lösung zu erhalten... darum bitte ich um Verständnis. Meinen Crosspost findet man auf office-loesungen.de problemlos über den jetzigen Threadtitel.

danke!

***********************************************************

Hallo zusammen *Smilie

Ich schreibe gerade an einem Plugin, welches CSV-Dateien im Stapel öffnen, und auf den Daten basierend Berechnungen anstellen soll.

Sehr geholfen hat mir dieser Thread:
http://www.*************************417147_0_0_asc.php

Beschreibung des Problems:
Ich möchte mehrere CSV-Dateien gleichen Aufbaus aus einem frischen Excel-Dokument heraus im Open-Dialog markieren und öffnen können.
Es wird in der VORHANDENEN Datei eine neue Tabelle erzeugt (oder die vorhandene Tabelle1 genutzt), in der alle Datenreihen untereinander Platz finden.

Momentan sieht das bei mir so aus:
Code:

Sub LargeFileImport()
'Sehr große Dateien importieren
Dim FileName
Dim FileNum As Integer
Dim n As Integer
Dim ResultStr As String

Dim wsSheet As Worksheet
Dim strValues(65536, 1) As String

Dim lngRow As Long
Dim intSheet As Integer
Dim intCounter As Integer

FileName = Application.GetOpenFilename("*.csv Datei (*.csv), *.csv", , "*.csv Datei öffnen", , False)

If FileName = "" Or FileName = "Falsch" Then Exit Sub
FileNum = FreeFile()

Open FileName For Input As #FileNum
Application.ScreenUpdating = False
Workbooks.Add template:=xlWorksheet

lngRow = 1
intSheet = 1

Application.StatusBar = "Blatt " & intSheet & " wird eingelesen"

Do While Seek(FileNum)

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 15. Oktober 2010

Hallo sacredlife,

der Fehler entsteht dadurch, dass die Variable FileName (übrigens kein guter Variablenname, da es sich um ein VBA-Schlüsselwort handelt) nicht nur einen Dateinamen, sondern durch das Multiselect ein Array mit mehreren Dateinamen enthält. Dementsprechend müssen die einzelnen Inhalte der Variablen (des Arrays) über einen Index abgefragt werden.

Ich habe dein Makro (im Großen und Ganzen) mal so beibehalten und rufe dieses Makro aus einem zweiten Makro heraus für jeden gewählten Dateinamen einmal auf:

Sub ChooseFiles()Dim intFiles As IntegervntFileName = Application.GetOpenFilename("*.csv Datei (*.csv), *.csv", , "*.csv Datei öffnen", , True)On Error GoTo FehlerintFiles = UBound(vntFileName)On Error GoTo 0For intFiles = 1 To UBound(vntFileName) LargeFileImport (vntFileName(intFiles))Next 'intFilesExit SubFehler:End SubSub LargeFileImport(vntFileName As Variant)'Sehr große Dateien importierenDim FileNum As IntegerDim n As IntegerDim ResultStr As StringDim wsSheet As WorksheetDim strValues(65536, 1) As StringDim lngRow As LongDim intSheet As IntegerDim intCounter As IntegerFileNum = FreeFile()Open vntFileName For Input As #FileNumApplication.ScreenUpdating = FalseWorkbooks.Add template:=xlWorksheetlngRow = 1intSheet = 1Application.StatusBar = "Blatt " & intSheet & " wird eingelesen"Do While Seek(FileNum) <= LOF(FileNum) Line Input #FileNum, ResultStr If Left(ResultStr, 1) = "=" Then strValues(lngRow, 1) = "'" & ResultStr Else strValues(lngRow, 1) = ResultStr End If If lngRow < 65536 Then lngRow = lngRow + 1 Else ActiveSheet.Range("A1:A65536") = strValues ActiveWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count) lngRow = 1 intSheet = intSheet + 1 Application.StatusBar = "Blatt " & intSheet & " wird eingelesen" End IfLoopCloseActiveSheet.Range("A1:A65536") = strValuesintSheet = 0For Each wsSheet In ActiveWorkbook.Worksheets intSheet = intSheet + 1 Application.StatusBar = "Daten von Blatt " & intSheet _ & " werden bearbeitet" With wsSheet .Range("A:A").TextToColumns Destination:=.Range("A1"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, _ Semicolon:=True, _ Comma:=False, _ Space:=False, _ Other:=False End WithNext wsSheetApplication.ScreenUpdating = TrueApplication.StatusBar = "Fertig"End Sub VBA/HTML - CodeConverter für ExcelforenAddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGiAnbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

sacredlife · 17. Oktober 2010

Leider komme ich erst jetzt zu einer Antwort.
Ich danke dir für deine Mühe! Dieser Ansatz hatte sich mir nicht erschlossen... mir fehlt eben noch viel Übung.

Nach kleineren Modifikationen funktioniert dein Code im Gesamtmakro absolut perfekt.
Danke dass der Thread trotz der Tatsache, dass er ein Crossposting ist, stehengelassen wurde.

Office: Mehrere CSV-Dateien öffnen und in einer Tabelle einfügen

Mehrere CSV-Dateien öffnen und in einer Tabelle einfügen

Mehrere CSV-Dateien öffnen und in einer Tabelle einfügen

Mehrere CSV-Dateien öffnen und in einer Tabelle einfügen - Similar Threads - CSV Dateien öffnen

CSV Datei öffnen und mit Tab statt Komma als Trennzeichen speichern?

CSV Dateien öffnen, Diagramm erstellen und als PDF speichern.

Makro - externe Daten verarbeiten - Datei (csv) öffnen

csv-Dateien in Excel öffnen und bearbeiten

csv-Datei mit VBA öffnen - führende Nullen fehlen

560 MB große csv Datei öffnen

.csv Datei über ein Makro öffnen