Hallo,
ich würde gern in einer user-Form mehrere *csv Dateien auf einmal markieren können und diese dann in ein Tabellenblatt einfügen.
Bisher habe ich nur immer eine Datei auswählen können…!
Vielen Dank im Vorraus…
ich würde gern in einer user-Form mehrere *csv Dateien auf
einmal markieren können und diese dann in ein Tabellenblatt
einfügen.
Bisher habe ich nur immer eine Datei auswählen können…!
Hi Stephan,
genauer bitte, wie wählst du denn aus?
Gruß
Reinhard
Hallo,
ich habe mehrere *csv Dateien, die in Excel eingelesen werden sollen. (Das sind Protokolldateien - pro Tag eine Datei). Es sollen aber auch alle Dateien einer kompletten Woche eingelesen werden können. Das soll mit einer normalen open()-Fkt funktionieren. Mit dieser Open()-Fkt kann ich aber immer nur eine Datei öffnen.
Wie kann ich also mehrere Dateien auf einmal auswählen (markieren) und diese dann auf ein Tabellenblatt bringen?
- ich hoffe, diese Erkläreung macht die Sache ein wenig deutlicher -
Danke
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
habe einen Teil der Aufgabe selbst geschafft.
In der GetOpenFilename()-Fkt muss nur die Eigenschaft MultiSelect auf True gesetzt werden.
Hier der Code:
filetoopen() = Application.GetOpenFilename("*.csv Datei (*.csv), *.csv", , „*.csv Datei öffnen“, , True)
allerdings weiss ich jetzt nicht genau, wie die Dateinamen der Mehrfachaswahl in ein Array geschrieben werden kann (Anzahl der Arrays weiss niemand genau)… ???
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
habe einen Teil der Aufgabe selbst geschafft.
In der GetOpenFilename()-Fkt muss nur die Eigenschaft
MultiSelect auf True gesetzt werden.Hier der Code:
filetoopen() = Application.GetOpenFilename("*.csv Datei
(*.csv), *.csv", , „*.csv Datei öffnen“, , True)
allerdings weiss ich jetzt nicht genau, wie die Dateinamen der
Mehrfachaswahl in ein Array geschrieben werden kann (Anzahl
der Arrays weiss niemand genau)… ???
hi,
na da kann dir doch geholfen werden
Sub test()
filetoopen = Application.GetOpenFilename("*.csv Datei (*.csv), *.csv", , „*.csv Datei öffnen“, , True)
For i = LBound(filetoopen) To UBound(filetoopen)
Debug.Print filetoopen(i)
Next
End Sub
cu Micha
Danke,
klappt sehr gut.
Allerdings:
wie kann ich diese csv-Dateien (sind LogFiles von jedem Tag - daher immer gleiche Aufbau) untereinander in ein Tabellenblatt bringen?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
filetoopen() = Application.GetOpenFilename("*.csv Datei
(*.csv), *.csv", , „*.csv Datei öffnen“, , True)
allerdings weiss ich jetzt nicht genau, wie die Dateinamen der
Mehrfachaswahl in ein Array geschrieben werden kann (Anzahl
der Arrays weiss niemand genau)… ???
Hi Stepha,
Option Explicit
Sub tt()
Dim filetoopen, n As Integer
ChDrive "C"
ChDir "c:\download"
filetoopen = Application.GetOpenFilename("\*.csv Datei (\*.xls), \*.xls", , "\*.xls Datei öffnen", , True)
For n = 1 To UBound(filetoopen)
MsgBox filetoopen(n)
'workbooks.open filetoopen(n)
Next n
End Sub
Gruß
Reinhard
wie kann ich diese csv-Dateien (sind LogFiles von jedem Tag -
daher immer gleiche Aufbau) untereinander in ein Tabellenblatt
bringen?
Hi Stephan,
Option Explicit
Sub tt()
Dim filetoopen, n As Integer, zei As Long, f As Integer
ChDrive "C"
ChDir "c:\download"
filetoopen = Application.GetOpenFilename("\*.csv Datei (\*.csv), \*.csv", , "\*.csv Datei öffnen", , True)
For n = 1 To UBound(filetoopen)
f = FreeFile
Open filetoopen(n) For Input As #FreeFile
While Not EOF(f)
Input #f, Satz ' oder Line Input #f, Satz
zei = zei + 1
Range("A" & zei) = Satz
Wend
Close #1
Next n
End Sub
Gruß
Reinhard
ot
Danke,
klappt sehr gut.
Allerdings:
wie kann ich diese csv-Dateien (sind LogFiles von jedem Tag -
daher immer gleiche Aufbau) untereinander in ein Tabellenblatt
bringen?
Hi!
Um logfile-analysen machen zu können wäre ein einlesen in ACCESS
sinnvoller (welche Meldungen kommen, häufigkeit, letztes Auftreten,…)
Und mehr als 65.000 Zeilen könntest Du auch befüllen.
Gruß
Gerald