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

• #23535 zhari csendes tag

  Új Válasz 2014-10-03 13:32:09 #23535

  Ú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

  

  zhari

  csendes tag

  Sziasztok!

  Egy adott mappában lévő Excel táblák képlet számítási beállítását szeretném makróval átállítani automatikusra.

  Az addig oké, hogy makrót futtatok egy adott mappa összes xls-én. De hogy tudom a képlet újra számítást automatikusra állítani?
  Sub LoopThroughFiles()

  FolderName = "C:\...\"
  If Right(FolderName, 1) <> Application.PathSeparator Then FolderName = FolderName & Application.PathSeparator
  Fname = Dir(FolderName & "*.xls")

  'loop through the files
  Do While Len(Fname)

  With Workbooks.Open(FolderName & Fname)

  ' here comes the code for the operations on every file the code finds

  'HERE if you want to execute the second macro for every file in the loop

  'ide kéne a beállítás

  End With

  ' go to the next file in the folder
  Fname = Dir

  Loop

  End Sub

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