para - ejecutar macro automaticamente al abrir excel

Excel VBA Abrir el libro de trabajo, realizar acciones, guardar como, cerrar

Question

Esta pregunta ha sido editada debido a los extensos comentarios y actualizaciones de las respuestas propuestas.

Como se solicita aquí, está el módulo 13;

Sub SaveInFormat()
Application.DisplayAlerts = False
Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:/Documents and Settings/jammil/Desktop/AutoFinance/ProjectControl/Data/" & Format(Date, "yyyymm") & "DB" & ".xlsx", leFormat:=51
Application.DisplayAlerts = True
End Sub

También hay problemas con el manejo de errores, sé que me he equivocado con él, pero estoy más interesado en arreglar la función de cierre en el momento antes de entrar en ella. Aquí está el código de manejo de errores que necesita un poco de trabajo

Sub test()
Dim wk As String, yr As String, fname As String, fpath As String
Dim owb As Workbook
wk = ComboBox1.Value
yr = ComboBox2.Value
fname = yr & "W" & wk
fpath = "C:/Documents and Settings/jammil/Desktop/AutoFinance/ProjectControl/Data"
owb = Application.Workbooks.Open(fpath & "/" & fname)
On Error GoTo ErrorHandler:
ErrorHandler:
If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then Exit Sub Else Call Clear
''Do Some Stuff
Call Module13.SaveInFormat
owb.Close

este es su código de prueba más mi cambio de la ruta y el nombre del archivo

Answer 1

Después de la discusión publicando la respuesta actualizada:

Option Explicit
Sub test()
Dim wk As String, yr As String
Dim fname As String, fpath As String
Dim owb As Workbook
With Application
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
End With
wk = ComboBox1.Value
yr = ComboBox2.Value
fname = yr & "W" & wk
fpath = "C:/Documents and Settings/jammil/Desktop/AutoFinance/ProjectControl/Data"
On Error GoTo ErrorHandler
Set owb = Application.Workbooks.Open(fpath & "/" & fname)
''Do Some Stuff
With owb
.SaveAs fpath & Format(Date, "yyyymm") & "DB" & ".xlsx", 51
.Close
End With
With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
End With
Exit Sub
ErrorHandler: If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then
Else: Call Clear
End Sub

Manejo de errores:

Podría intentar algo como esto para detectar un error específico:

 On Error Resume Next
Set owb = Application.Workbooks.Open(fpath & "/" & fname)
If Err.Number = 1004 Then
GoTo FileNotFound
Else
End If
...
Exit Sub
FileNotFound: If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then
Else: Call Clear

Answer 2

Trataré de responder varias cosas diferentes, sin embargo, es posible que mi contribución no cubra todas sus preguntas. Tal vez varios de nosotros podemos tomar diferentes partes de esto. Sin embargo, esta información debería ser útil para usted. Aquí vamos..

Abrir un archivo separado:

ChDir "[Path here]" ''get into the right folder here
Workbooks.Open Filename:= "[Path here]" ''include the filename in this path
''copy data into current workbook or whatever you want here
ActiveWindow.Close ''closes out the file

Apertura de un archivo con fecha especificada si existe:

No estoy seguro de cómo buscar en su directorio para ver si existe un archivo, pero en mi caso no me molestaría en buscarlo, solo trataría de abrirlo y poner a prueba algún error para que, si no lo hace ''t exist entonces mostrar este mensaje o hacer xyz.

Algunas declaraciones de comprobación de errores comunes:

On Error Resume Next ''if error occurs continues on to the next line (ignores it)
ChDir "[Path here]"
Workbooks.Open Filename:= "[Path here]" ''try to open file here

O (mejor opción):

si no existe, muestre un cuadro de mensaje o un cuadro de diálogo para decir "el archivo no existe, ¿le gustaría crear uno nuevo?

lo más probable es que desee utilizar el GoTo ErrorHandler muestra a continuación para lograr esto

On Error GoTo ErrorHandler:
ChDir "[Path here]"
Workbooks.Open Filename:= "[Path here]" ''try to open file here
ErrorHandler:
''Display error message or any code you want to run on error here

Mucha más información sobre el manejo de errores aquí: http://www.cpearson.com/excel/errorhandling.htm

Además, si desea obtener más información o necesita saber más en general en VBA, recomendaría el sitio de Siddharth Rout, tiene muchos tutoriales y códigos de ejemplo aquí: http://www.siddharthrout.com/vb-dot-net-and- sobresalir/

¡Espero que esto ayude!

El ejemplo sobre cómo asegurar el código de error no se ejecuta TODAS LAS veces:

Si depura a través del código sin la Exit Sub ANTES del manejador de errores, pronto se dará cuenta de que el controlador de errores se ejecutará cada vez que ocurra, si hay un error o no. El enlace debajo del código muestra una respuesta previa a esta pregunta.

 Sub Macro
On Error GoTo ErrorHandler:
ChDir "[Path here]"
Workbooks.Open Filename:= "[Path here]" ''try to open file here
Exit Sub ''Code will exit BEFORE ErrorHandler if everything goes smoothly
''Otherwise, on error, ErrorHandler will be run
ErrorHandler:
''Display error message or any code you want to run on error here
End Sub

Además, mira esta otra pregunta en la que necesitas más referencia sobre cómo funciona esto: el bloque goto no funciona VBA