Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

300 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
*.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
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
4
2
20
5
7
3
2
8
2
3
6
6
1
1
5
1
7
2
5
4
1
3
7