Guardar ficheros
Estoy intentando crear una funci贸n para mostrar una ventana para que el usuario me diga donde quiere guardar los ficheros y con qu茅 nombre. Lo he hecho con un CommonDialog, pero me da un error. El codigo es:
Public Sub guardar()
Dim cd_guardar As CommonDialog
cd_guardar.InitDir = "C:"
cd_guardar.ShowSave
xlBook.SaveAs (cd_guardar.FileName)
xlApp.Quit
End Sub
Y el error que me da es:
Run-time error '91':
Object variable or With b lock variable not set
No s茅 qu茅 pasa. Si alguien me pudiese ayudar estaria muy agradecido.
Public Sub guardar()
Dim cd_guardar As CommonDialog
cd_guardar.InitDir = "C:"
cd_guardar.ShowSave
xlBook.SaveAs (cd_guardar.FileName)
xlApp.Quit
End Sub
Y el error que me da es:
Run-time error '91':
Object variable or With b lock variable not set
No s茅 qu茅 pasa. Si alguien me pudiese ayudar estaria muy agradecido.
