Autosave in Excel 2010

[PerK]

Hallo,

Momenteel heb ik een Excel workbook die om de 30 minuten nieuwe data binnenhaald uit Exact. Als ik het werkboek opsla, dan worden er meerdere Webpages geRepublished naar de server. Een aantal TV schermen displayen deze webpages door de pagina om de x aantal minuten te refreshen.

Het werkboek zelf staat altijd open. Om te zorgen dat de webpages altijd de nieuwste data displayen na het refreshen vraag ik me af of het mogelijk is om een Autosave functie in te stellen binnen Excel (die het republishen van de webpages niet vergeet).

Er zit een functie in Excel genaamd: AutoRecover. Deze staat aan, maar slaat hem niet op als het bestand zelf(volgens mij als temp. file??)

Is het misschien mogelijk om in VBA een code te zetten die door middel van een interval het complete werkboek opslaat?

Alvast bedankt

[Mad Marty]

Ik zie direct een stapel voorbeelden op Google.

Wat heb je zelf geprobeerd en wat lukte er niet precies?

[PerK]

Ik kan anders nergens de oplossing vinden? Ik heb een vba code nodig die hem saved om de 10 minuten bijv.

[ Voor 20% gewijzigd door PerK op 11-10-2013 07:04 ]

[Rupie]

De link die Mad Marty geeft biedt geen oplossing voor je? Ik kom namelijk met een paar tellen http://www.ozgrid.com/forum/showthread.php?t=126722 tegen, daarmee kan je ook niet uit de voeten?

[PerK]

Rupie schreef op vrijdag 11 oktober 2013 @ 07:38:
De link die Mad Marty geeft biedt geen oplossing voor je? Ik kom namelijk met een paar tellen http://www.ozgrid.com/forum/showthread.php?t=126722 tegen, daarmee kan je ook niet uit de voeten?

Ik begrijp niet helemaal wat ze bedoelen met de standard Module en de ThisWorkbook module.

Als ik 1 van de 2 code's invoeg in excel en ik verander de interval tijd en de file pad, zie ik niet het balkje gaan dat hij opslaat.. Hij word niet opgeslagen


EDIT:


Ik heb nu in ThisWorkbook:

Private Sub Workbook_Open()
Call Tempo
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Limpa
End Sub

En een module aangemaakt met de code:

Public vartimer As Variant
Const TimeOut = 5 'in minutes

Sub Salva()
ActiveWorkbook.Save
Call Tempo
End Sub

Sub Tempo()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application.OnTime TimeValue(vartimer), "Salva"
End Sub

Sub Limpa()
On Error Resume Next
Application.OnTime earliesttime:=vartimer, _
procedure:="Salva", schedule:=False
On Error GoTo 0
End Sub


Hij lijkt nu te werken!

EDIT: is deze code goed (naast dat hij het resultaat geeft wat ik wil)?

[ Voor 44% gewijzigd door PerK op 11-10-2013 09:31 ]

[Rupie]

En toen je dat invoerde bij google kwam je niet uit bij http://www.mrexcel.com/fo...sworkbook-vs-modules.html? We willen met alle plezier helpen Perkerssens maar we verwachten daarbij wel dat je zelf ook op zoek gaat naar oplossingen

Edit: Zo te zien heb je dat inmiddels gedaan

[ Voor 8% gewijzigd door Rupie op 11-10-2013 09:26 ]

[PerK]

.

[ Voor 125% gewijzigd door PerK op 14-10-2013 03:27 ]

[PerK]

Als ik de AutoRepublish(webpages worden op de server opgeslagen) instel op een pc en het workbook opsla. En vervolgens het workbook open op een andere pc en hem opsla, dan krijg ik de error: