Új hozzászólás Aktív témák

• #26644 zhari csendes tag

  Új Válasz 2015-04-23 08:36:14 #26644

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zhari

  csendes tag

  Sziasztok!

  Olyan makróra lenne szükségem ami egy adott mappa (és almappái?) összes Word, Excel (és ha lehet pdf) fájljának a nevét felsorolja egy Excel oszlopban.

  Közben meglett de iderakom hátha másvalaki is tudja használni:

  Szép napot.

  Sub ListAllFiles()
  Dim fs As FileSearch, ws As Worksheet, i As Long
  Set fs = Application.FileSearch
  With fs
  .SearchSubFolders = False ' set to true if you want sub-folders included
  .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
  .LookIn = "C:\" 'modify this to where you want to serach
  If .Execute > 0 Then
  Set ws = Worksheets.Add
  For i = 1 To .FoundFiles.Count
  ws.Cells(i, 1) = .FoundFiles(i)
  Next
  Else
  MsgBox "No files found"
  End If
  End With
  End Sub

Új hozzászólás Aktív témák