Just nu i M3-nätverket
Jump to content

Långsamt makro


Dezon1

Recommended Posts

Hej!

 

När jag bytte till Excel 2007 blev plötsligt den här körningen betydligt långsammare.

Detta trots att jag upplever att 2007 sparar arbetsböcker snabbare än 2000 gjorde.

 

Kan man snabba upp detta makro?

 

 

Sub Ta_bort_spara()

' © 2010-03-05 Dante Erickzon

   ActiveWindow.SelectedSheets.Delete
   Application.Run "JOB.xls!spara_under_uppfolj"
       MsgBox ("T A   B O R T / S P A R A    K L A R.")
End Sub


Sub spara_under_uppfolj()

' © 2009-10-21 av Dante Erickzon

Application.ScreenUpdating = False

Workbooks("JOB.xls").Save
Workbooks("Uppföljning Laser.xls").Save
Workbooks("Planering.xls").Save

Application.ScreenUpdating = True
End Sub

Link to comment
Share on other sites

Om du sparar dessa böcker förhand, går det snabbare då?

ditt anrop

Application.Run "JOB.xls!spara_under_uppfolj"

är det ett anrop till kodsnutt inom samma arbetsbok? Då torde ett direkt anrop vara snabbare, dvs skriv bara skriva Spara_under_uppfolj

 

Application.ScreenUpdatring torde inte påverka tiden det tar att spara. Det jag kan tänka mig påverkar är om böckerna inte är beräknade utan Excel räknar igenom dem innan de sparas. Testa slå av automatisk beräkning tillfälligt när du ska spara..

 

Du kan ju även, om du har Excel 2007, spara i ett Excel 2007-format istället och se hur det går.

 

Teorier bara, jag vet inte.

Link to comment
Share on other sites

Monshi...

 

Du är blixtersnabb. :-)

 

Jag har inte testat att spara dem manuellt. Men jag skall göra det.

 

Och angående att spara i 2007-format är bekymret att massor av makron/formler öppnar/hämtar i .xls så jag kommer att få tillbringa många timmar med att peka om.

 

Det kommer jag att göra också, men tills det är klart så får jag köra i kompabilitetsläge.

 

Jag skall testa direkt anrop. Jag vet att jag provade det i 2000 en gång utan framgång.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...