Macro que guarde en ubicaciones distintas en diferentes tiempos en power point
Sera posible que en esta macro se pueda hacer que guarde en ubicaciones distintas en distintos tiempos,
por ejemplo;
Que me guarde un archivo en una ubicación
Y después de media hora guardar el otro archivo en otra ubicación
1 respuesta
H o l a:
Te anexo la macro para guardar cada 30 minutos.
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _
lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim lngTimerID As Long
Dim n As Integer
'
Sub Iniciar()
'Referencia: https://social.msdn.microsoft.com/Forums/en-US/9f6891f2-d0c4-47a6-b63f-48405aae4022/powerpoint-run-macro-on-timer?forum=isvvba
'Por.Dante Amor
n = 0
lngTimerID = SetTimer(0, 0, 300000, AddressOf Guardar)
End Sub
'
Sub Guardar()
'Por.Dante Amor
ubicaiones = Array("c:\trabajo\varios\", "C:\trabajo\diario\", "C:\trabajo\ejemplo\")
ruta = ubicaciones(n)
Application.ActivePresentation.SaveCopyAs ruta & "respaldo"
n = n + 1
If n > UBound(ubicaciones) Then n = 0
MsgBox "Guardado"
End Sub
'
Sub Detener()
'Por.Dante Amor
lngTimerID = KillTimer(0, lngTimerID)
End Sub
Sub HelloTimer()
MsgBox "Hello Timer : " & Now
End SubCambia en esta línea de la macro:
Array("c:\trabajo\varios\", "C:\trabajo\diario\", "C:\trabajo\ejemplo\")
Las ubicaciones que quieras separadas por comas.
hola DANTE
al ejecutar la macro yo le doy en iniciar ,,, pero me saca error te adjunto al imagen del error
una duda , la función de esta macro es que guarda cada 30 minutos en todas las ubicaciones , o cada 30 minutos en una ubicación?, por que si se puede es mejor que guarde en una ubicación cada cierto tiempo
Muchas gracias .... por tu ayuda
Te anexo la macro actualizada:
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _
lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim lngTimerID As Long
Dim n As Integer
'
Sub Iniciar()
'Referencia: https://social.msdn.microsoft.com/Forums/en-US/9f6891f2-d0c4-47a6-b63f-48405aae4022/powerpoint-run-macro-on-timer?forum=isvvba
'Por.Dante Amor
n = 0
lngTimerID = SetTimer(0, 0, 300000, AddressOf Guardar)
End Sub
'
Sub Guardar()
'Por.Dante Amor
ubicaciones = Array("c:\trabajo\varios\", "C:\trabajo\diario\", "C:\trabajo\ejemplo\")
ruta = ubicaciones(n)
Application.ActivePresentation.SaveCopyAs ruta & "respaldo"
n = n + 1
If n > UBound(ubicaciones) Then n = 0
MsgBox "Guardado"
End Sub
'
Sub Detener()
'Por.Dante Amor
lngTimerID = KillTimer(0, lngTimerID)
End Sub
Sub HelloTimer()
MsgBox "Hello Timer : " & Now
End SubGuarda en la primera ubicación, a los 30 minutos guarda en la segunda ubicación, y así con todas las ubicaciones que pongas en este arreglo:
ubicaciones = Array("c:\trabajo\varios\", "C:\trabajo\diario\", "C:\trabajo\ejemplo\")
