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

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