Ayuda con common dialog
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
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
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
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