Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Dateien in Userform einlesen

Forumthread: Excel Dateien in Userform einlesen

Excel Dateien in Userform einlesen
31.03.2006 17:30:04
Harald
Hallo im Excel Forum,
ich möchte alle Excel Dateien eines Verzeichnisse ohne Ordnerangaben in eine Listbox in einer Userform einlesen.
Vielen Dank für Eure Hilfe
Gruss Harald
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Dateien in Userform einlesen
31.03.2006 17:35:05
Ramses
Hallo
Alle Files werden in der Listbox1 zur Anzeige gebracht
Private Sub CommandButton2_Click()
    Me.ListBox1.List = FileArray(Me.txtPfad.text, Me.txtExt.text)
End Sub


Function FolderArray(strPath As String, Optional CheckSub As Boolean)
    Dim arrFolder()
    Dim intCounter As Integer
    Dim strDatei As String
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    With Application.FileSearch
        .LookIn = strPath
        .SearchSubFolders = CheckSub
        .fileName = strExt
        If .Execute() > 0 Then
            totFiles = .FoundFiles.count
            Me.lblGefunden = "Total " & totFiles & " Dateien in " & strPath & " gefunden"
            For i = 1 To .FoundFiles.count
                gefFile = .FoundFiles(i)
                intCounter = intCounter + 1
                Redim Preserve arrDateien(1 To intCounter)
                arrDateien(intCounter) = gefFile
            Next i
        End If
        If .Execute <> 0 Then
            FileArray = arrDateien
        End If
    End With
End Function
Gruss Rainer
Anzeige
Bist du dir sicher?
31.03.2006 18:03:09
{Boris}
Hi Rainer,
zumindest mit "Option Explicit" hat Dein Code nicht den Hauch einer Chance ;-))
Grüße Boris
Aber du weisst dir ja zu helfen :-) o.w.T.
31.03.2006 20:41:37
Ramses
...
AW: Excel Dateien in Userform einlesen
31.03.2006 17:41:18
IngGi
Hallo Harald,
das geht zum Beispiel so:

Sub Dateien_einlesen()
Dim strDatei As String
Dim strPfad As String
strPfad = "C:\Temp\" 'anpassen
strDatei = Dir(strPfad)
Do
UserForm1.ListBox1.AddItem strDatei
strDatei = Dir
Loop Until strDatei = ""
UserForm1.Show
End Sub
Gruß Ingolf
Anzeige
AW: Excel Dateien in Userform einlesen
ransi
Hallo
Und noch eine Alternative:


Option Explicit
Private Sub CommandButton1_Click()
Dim fs As Object
Dim fo As Object
Dim datei
ListBox1.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
Set fo = fs.GetFolder("D:Eigene Dateien")
    For Each datei In fo.Files
           ListBox1.AddItem Dir(datei)
    Next
End Sub


ransi
Anzeige
AW: Excel Dateien in Userform einlesen
31.03.2006 17:59:27
Harald
Hallo
an alle drei Helfer ein großes Lob für eure schnelle Hilfe!!!!!!!!!!
Gruß Harald
;

Forumthreads zu verwandten Themen

Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Textdatei mit Tabs in Excel einlesen
TomTom

Hi,
wie kann ich eine Textdatei mit Tabs Trennzeichen per Makro in eine Excel Datei einlesen ? Ich brauche die Möglichkeit, dass das Makro den Öffnen-Dialog nuzt und ich die Textdatei vorher auswählen kann.
Hat vielleicht jemand ein Beispiel dazu, Wäre nett, danke
Tom
05.11.2008 11:54:00
Thread-ID: 1021827
7 Beiträge
Anzeige
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
ComboBox1 Datein Einlesen
Heinz

Hallo Leute
Ich möchte gerne von einer ComboBox1 "UF" die Daten vom Blatt "Umbauplan" A4:A11,A15:A21 die Daten einlesen.
Es handelt sich hierbei um ein Datum, in Form von TTTTT TT MM JJ
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
10.01.2009 15:18:15
Thread-ID: 1038455
3 Beiträge
Textdatei in Excel einlesen
Horst

Hallo Excel-Gemeinde,
Aus der ersten Zeile einer .txt soll ein Wert in die A.xls eingelesen und mit dem in der letzten Zeile der Spalte AA stehenden Betrag einer B.xls multipliziert werden. In Spalte A der B.xls steht zugleich das aktuelle Systemdatum.
Wie kann man dies per VBA lösen?<...
09.02.2009 12:23:40
Thread-ID: 1048612
21 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Text-Datei in Excel einlesen
Jule07

Hallo,
ich brauche eure Hilfe?
Ich würde gern Werte aus einer Text-Datei, welche 2-reihig jeweils 50.000-60.000 Zeilen enthält, in eine bereits geöffnete Arbeitsmappe einfügen. Die 2 Reihen sind durch einen Tab getrennt.
Zudem kommt, dass ich gern die Text-Datei über ein Dialogfe...
21.03.2009 10:54:00
Thread-ID: 1062443
8 Beiträge
Einlesen von Dateien in Schleife
Dateien

Moin,
ich habe eine Frage, warum kommt bei folgendem Code ein Fehler? Ich habe den Einleseteil mit dem Makrorecorder aufgenommen, den Rest selbst gemacht.
Interessanter Weise kommt der Fehler das die Datei tab1.xls nicht existiert. Die Datei existiert ja auch nicht, es soll die TextDat...
23.07.2009 15:16:38
Thread-ID: 1090723
4 Beiträge
Anzeige
Textdatei einlesen
Mandy

Hallo,
ich habe eine Textdatei (kommt aus einem anderen System) , die will ich per Makro in eine Excel einlesen.
Die Textdatei soll als :
GETRENNT (zeichen wie z.B. Kommas oder Tab....)
AUFEINANDERFOLGENDE TRENNZEICHEN ALS EIN ZEICHEN BEHANDELN
LEERZEICHEN
eingelesen we...
03.08.2009 16:08:29
Thread-ID: 1093269
3 Beiträge
Anzeige
*.cvs Datei einlesen
Frank

Hallo alle zusammen,
ich habe heute ein Anliegen, dass ich gerade nicht selbst lösen kann. Ich zeichne ein Makro auf: Excel -> Daten -> aus Text. Dann öffnet sich ein Dialog und ich wähle eine beliebige *.csv Datei aus. Danach öffnet sich der Konvertierungs-Assistent und ich nehme gew...
29.09.2009 20:26:50
Thread-ID: 1106279
9 Beiträge
cvs Datei einlesen
Frank

Hallo Excel/VBA Freunde :-),
ich kämpfe gerade mit dem Import von Daten aus einer csv bzw. mehreren csv Dateien. Es ist so das man sich die Datei aussuchen kann. Dann erfolgt der Import. Als nächstes kommt die Abfrage, ob eine weitere Datei eingelesen wird. Und nun werden die alten Daten ei...
06.10.2009 03:09:37
Thread-ID: 1107379
3 Beiträge
Textdatei einlesen und Dateinamen in Zellen
Pascal

Hallo zusammen,
ich hätte mal eine Frage an euch.
Ich bekomme monatlich ca 20 Textfiles zu einem Thema per Mail geschickt und möchte alle in einer Excel Datei zusammenfassen (DIe Inhalte der Textfiles in einem Excelsheet untereinander schreiben lassen)
Allerdings gibt es eine Besond...
08.10.2009 10:04:40
Thread-ID: 1108100
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige