Thema Datum  Von Nutzer Rating
Antwort
22.02.2022 16:56:11 Chris
NotSolved
22.02.2022 17:38:39 ralf_b
NotSolved
Rot Dateiliste + Pfad
 23.02.2022 08:27:09 Gast81127
NotSolved
23.02.2022 20:17:18 ralf_b
NotSolved
02.03.2022 16:38:08 Chris
NotSolved
02.03.2022 16:46:54 Gast65380
NotSolved
23.02.2022 09:12:23 Mase
NotSolved
23.02.2022 12:01:18 Chris
NotSolved

Ansicht des Beitrags:
Von:
Gast81127		 Datum:
23.02.2022 08:27:09		 Views:
499		 Rating:
     
Antwort:
  Ja
Thema:
Dateiliste + Pfad		 
Das ist der Code. Sorry wenn der etwas unsauber sein sollte aber so habe ich mir den zusammenkopiert und erstellt. Bin kein Profi.

'In das Tabellenblatt Dateinamen gehen
Worksheets("Dateinamen").Activate

'Definieren einer String in der, der Dateipfad eingelesen wird
Dim Ordnerpfad As String

'Auswaehlen des Ordners um Dateipfad zu ermitteln

With Application.FileDialog(msoFileDialogFolderPicker)

    .AllowMultiSelect = False
    .Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
    .InitialFileName = ""
    .InitialView = msoFileDialogViewThumbnail
    .ButtonName = "Auswählen"
        
    If .Show = -1 Then
    Ordnerpfad = .SelectedItems(1)
            
    End If
    End With

'Zelle auswaehlen, um Liste einzufügen und Aktivieren des richtigen Tabellenblattes
    Worksheets("Dateinamen").Activate
    Range("A1").Select
    

'Fuegt Liste des ausgewaehlten Ordners ein
    Dim xRow As Long
    Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "C:\"
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
    .InitialFileName = InitialFoldr$
    .Show
    If .SelectedItems.Count <> 0 Then
    xDirect$ = .SelectedItems(1) & "\"
    xFname$ = Dir(xDirect$, 7)
    Do While xFname$ <> ""
    ActiveCell.Offset(xRow) = xFname$
    xRow = xRow + 1
    xFname$ = Dir
    Loop
    End If
    End With

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2022 16:56:11 Chris
NotSolved
22.02.2022 17:38:39 ralf_b
NotSolved
Rot Dateiliste + Pfad
 23.02.2022 08:27:09 Gast81127
NotSolved
23.02.2022 20:17:18 ralf_b
NotSolved
02.03.2022 16:38:08 Chris
NotSolved
02.03.2022 16:46:54 Gast65380
NotSolved
23.02.2022 09:12:23 Mase
NotSolved
23.02.2022 12:01:18 Chris
NotSolved