Crear libro nuevo en server
Estimado experto:
Estoy trabajando en una empresa donde hay un server.
El programa lo tengo instalado en el server en "I".
Cuando quiero ejecutar esta macro no la ejecuta.
Si en lugar de "I" pongo "C" que es mi propia PC, funciona perfectamente.
Cual es el problema. No lo puedo solucionar.
Te pido que me ayudes.
Ricardo
Private Sub CommandButton2_Click()
'crear obra nueva
On Error Resume Next
'el codigo anterior impide que se abra el cuadro de depurar
ChDir "I:\Costos"
Application.ScreenUpdating = False 'no abre la hoja
Workbooks.Open Filename:="I:\Costos\Resumen.xls"
ActiveWorkbook.SaveAs Filename:=Range("C11").Value
Application.DisplayAlerts = False 'no muestra el aviso de grabar
ActiveWorkbook.Close
Application.DisplayAlerts = True 'repone el aviso
End Sub
Estoy trabajando en una empresa donde hay un server.
El programa lo tengo instalado en el server en "I".
Cuando quiero ejecutar esta macro no la ejecuta.
Si en lugar de "I" pongo "C" que es mi propia PC, funciona perfectamente.
Cual es el problema. No lo puedo solucionar.
Te pido que me ayudes.
Ricardo
Private Sub CommandButton2_Click()
'crear obra nueva
On Error Resume Next
'el codigo anterior impide que se abra el cuadro de depurar
ChDir "I:\Costos"
Application.ScreenUpdating = False 'no abre la hoja
Workbooks.Open Filename:="I:\Costos\Resumen.xls"
ActiveWorkbook.SaveAs Filename:=Range("C11").Value
Application.DisplayAlerts = False 'no muestra el aviso de grabar
ActiveWorkbook.Close
Application.DisplayAlerts = True 'repone el aviso
End Sub
1 respuesta
Respuesta de Orlando Collarte
1