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

• #13774 Delila_1 veterán Virag.h #13772

  Új Válasz 2012-05-20 13:19:26 #13774

  Ú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 Virag.h #13772 üzenetére

  Excelben A1-től kezdve beírja a kezdő könyvtár tartalmát.

  Sub MappaLista()
  Dim s As String, sor%
  s = Dir("e:\eadat\*.*") 'Kezdő könyvtár
  sor% = 1
  Do While s <> ""
  Cells(sor%, 1) = s
  s = Dir()
  sor% = sor% + 1
  Loop
  End Sub

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