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

• #4648 Fehér Mancs tag rtom #4644

  Új Válasz 2009-03-13 11:52:46 #4648

  Ú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

  

  Fehér Mancs

  tag

  válasz rtom #4644 üzenetére

  Ha valami ciklust használsz, akkor bizonyos ciklusnál (minden 1000-dik esetben) be lehet iktatni a ActiveWorkbook.Save -et.

  Másik lehetőség, ha bizonyos időközönként akasz menteni, a Timer használata (bár ehhez is folyton vissza kell térni -> cilus kell hozzá):

  Start = Timer
  SaveSecond= 60*60 ' óránkénti mentés
  
  cilus kezdete
  
  if Start > Timer+SaveSecond then
  ActiveWorkbook.Save
  Start = Timer
  endif
  
  cilus vége

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