Guardar ficheros

Geri
14 de Junio del 2004
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.

sdemingo
14 de Junio del 2004
¿Cómo te creas el objeto excel?