Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Messdaten einlesen

Messdaten einlesen
01.03.2006 11:33:42
Thomas
Hallo Leute
Ich möchte Excel verwenden um meine Messdaten zu importieren.
Meine Messungen generieren verschiedene Messfiles.
Messfiles:
Agilent_01.xls
Agilent_02.xls
....
Durchfluss_01.xls
usw.
Ich hab mir nun eine Vorlage generiert, die ich in den Ordner mit den Messfiles kopiere. Das Einlesen ist jetzt nicht das Problem, sondern:
Ich möchte dass die Vorlage automatisch erkennt was und wie viele Files von einem Typ (z.B Agilent) in dem Ordner sind und sie in einer Textbox zur kontrolle anzeigt bzw. die Anzahl der vorhandenen Messfiles eines Typs zählt.
Im nächsten schritt sollen dann die erkannten Messfiles in die Vorlage importiert werden, damit sie nachbearbeitet werden können.
Meine Frage ist nun ob das überhaupt möglich ist.
Für Ansätze, Anregungen oder sogar ne kleine Vorlage wäre ich sehr dankbar
Gruß
Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Messdaten einlesen
01.03.2006 12:14:25
Harald
Hi Thomas,
ich hab diesen Code auf der Excel-CD von Herber gefunden und etwas nachgearbeitet.
Der zählt dir z.B. alle Agilent irgendwas.xls im angegebenen Ordner (bitte anpassen), gibt dir die Anzahl als MsgBox aus und öffnet die gefundenen Dateien.

Sub SearchFile()
Dim i As Integer
With Application.FileSearch
.Filename = "Agilent" & "*" & ".xls"
.LookIn = "C:\Eigene Dateien\MeinOrdner\"
.SearchSubFolders = False 'keine Suche in Unterverzeichnissen
.Execute
If .FoundFiles.Count = 0 Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
MsgBox " Es befinden sich " & .FoundFiles.Count & " Agilent-Dateien im Ordner"
End If
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=(.FoundFiles(i))
Next i
End With
End Sub

Gruss Harald
Anzeige
AW: Messdaten einlesen
01.03.2006 12:30:48
Thomas
Cool Danke.
Ist ja gar nicht so kompliziert wie ich dachte
gruß
Danke für die Rückmeldung..
01.03.2006 12:34:57
Harald
...wenngleich der Hauptdank für den Quellcode natürlich H. Herber gebührt
Gruss Harald

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige