Ayuda con common dialog

perroverde
20 de Diciembre del 2005
Hola,

Mi problema es el siguiente,estoy creando una aplicación que abre un fichero excel con un commonDialog e inserta datos en el fichero.Si el fichero excel ya existe no hay problema pero si quiero crear un nuevo fichero me da error y no me deja guardar los datos.Lo que quiero es evitar tener que crear el fichero con el boton derecho y directamente poniendo el nombre en el commonDialog que lo use.Os pego como abro el fichero excel,espero que me puedan ayudar.

Dim xlsFicheroOrigen As Object
Dim Libro As Object

Set xlsFicheroOrigen = CreateObject("Excel.Application")

Set Libro = xlsFicheroOrigen.Workbooks.Open(ruta)

La ruta es un string que lo obtiene del commonDialog.
Hay alguna manera de comprobar si existe la ruta que le paso
y sino existe crear un nuevo excel con ella.

Gracias anticipadas y saludos

mvallejos
20 de Diciembre del 2005
El método open solo sirve para archivos existentes, para crear un nuevo libro debes crearlo, colocarle los datos y grabarlo.

Set xlsFicheroOrigen = CreateObject("Excel.Application")
xlsFicheroOrigen.WorkBooks.Add

Set Hoja = xlsFicheroOrigen.ActiveWorkbook.ActiveSheet
< acá le traspasas los datos al ActiveSheet>


Luego lo grabas

xlsFicheroOrigen.ActiveWorkbook.SaveAs Filename := ruta

xlsFicheroOrigen.Quit
Set xlsFicheroOrigen = Nothing

Espero que te sirva

Saludos