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

• #8172 Fire/SOUL/CD félisten lackatwo #8171

  Új Válasz 2010-09-17 09:32:13 #8172

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lackatwo #8171 üzenetére

  Hali!

  A DIR-ben teljes útvonalat is megadhatsz, pl ez kilistázza az összes fájlt abból a könyvtárból, ahonnan az excel fájl meg lett nyitva

  Private Sub CommandButton1_Click()
  Fname = Dir(ThisWorkbook.Path & "\*.*")
  Do While Len(Fname) > 0
  MsgBox (Fname)
  Fname = Dir()
  Loop
  End Sub

  Fire.

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