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

• #24540 Delila_1 veterán G@ben #24537

  Új Válasz 2014-12-10 08:34:17 #24540

  Ú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

  

  Delila_1

  veterán

  válasz G@ben #24537 üzenetére

  Másik megoldás a kilistázásra.
  J1-től beírod a listázandó mappák útvonalát. Pl. J1-be C:\Főmappa\,
  J2-be C:\Főmappa\Almappa1\, J3-be C:\Főmappa\Almappa1\Al-Almappa\, stb.

  Sub MappaLista()
  Dim utvonal As String, sor As Long, FN As String, sorMappa As Integer
  
  sor = 1: sorMappa = 1
  Do While Cells(sorMappa, 10) <> ""
  utvonal = Cells(sorMappa, 10)
  ChDir utvonal
  FN = Dir(utvonal)
  Do While FN <> ""
  Cells(sor, 1) = FN
  sor = sor + 1
  FN = Dir()
  Loop
  sorMappa = sorMappa + 1
  Loop
  End Sub

• #24538 lappy őstag G@ben #24537

  Új Válasz 2014-12-10 08:01:28 #24538

  Ú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

  

  lappy

  őstag

  válasz G@ben #24537 üzenetére

  Private Sub CommandButton1_Click()
  
  Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer
  
  Application.ScreenUpdating = False
  
  directory = "c:\test\"
  fileName = Dir(directory & "*.xl??")
  
  Do While fileName <> ""
  i = i + 1
  j = 2
  Cells(i, 1) = fileName
  
  Workbooks.Open (directory & fileName)
  
  For Each sheet In Workbooks(fileName).Worksheets
  Workbooks("files-in-a-directory.xls").Worksheets(1).Cells(i, j).Value = sheet.Name
  j = j + 1
  Next sheet
  
  Workbooks(fileName).Close
  fileName = Dir()
  Loop
  
  Application.ScreenUpdating = True
  
  End Sub

  Ez nem teljesen jó,de ha egy szakértő itt ránéz akkor alapnak jó lesz.
  Amúgy ez csak az adott könyvtárban lévő xl?? kiterjesztésű fájlokat gyűjti a hozzájuk tartozó munkalapok neveivel együtt.

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