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

• #30071 Delila_1 veterán Ricardo128 #30070

  Új Válasz 2016-01-08 08:01:28 #30071

  Ú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 Ricardo128 #30070 üzenetére

  Sub MappaLista()
  Dim utvonal As String, sor As Long, FN As String
  
  Sheets("Munka1").Select 'Erre a lapra másoljon *****
  Columns(1) = ""
  utvonal = "C:\Főmappa\AlMappa\AlAlMappa\" 'Ebből a könyvtárból *****
  ChDir utvonal
  sor = 1
  FN = Dir(utvonal)
  Do While FN <> ""
  Cells(sor, 1) = FN
  sor = sor + 1
  FN = Dir()
  Loop
  End Sub

  Ez a makró a "C:\Főmappa\AlMappa\AlAlMappa\" mappából bemásolja a fájlok címét kiterjesztéssel a Munka1 lap A oszlopába. Csillagokkal jelöltem, amit át kell írnod a saját értékeidre (útvonal, lap neve).

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