Ú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.

• #8168 Fire/SOUL/CD félisten lackatwo #8167

  Új Válasz 2010-09-16 21:17:44 #8168

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

  Hali!

  ThisWorkbook.Path vagy
  ActiveWorkbook.Path

  Egy üres és még el nem mentett munkafüzetnél a PATH is üres természetesen...

  Fire.

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