Programación General > Visual Basic 6.0 e inferiores

 Error en guardar libro excel con VB

(1/1)

manuelroin:
Hola, estoy intentando guardar un libro de excel con visual basic y me sale este error: Error de automatizacion

este es mi codigo , ya hice la referencia a Microsoft excel 11.0 object library

Option Explicit

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Cells(1, 1).Value = "Celda 1,1"


xlBook.SaveAs ("C:Documents and SettingsAdministradorEscritorio123.xls")

xlBook.Close
Set xlBook = Nothing

xlApp.Quit
Set xlApp = Nothing

End Sub

No se cual puede ser el error en la ayuda de visual basic dice que esa es la manera

manuelroin:
lo he solucionado , muchas gracias!!!

    Dim aplicacion As Excel.Application
    Dim libro As Excel.Workbook
    Dim hoja As Excel.Worksheet
   
    Set aplicacion = New Excel.Application
    Set libro = aplicacion.Workbooks.Add
    Set hoja = libro.Worksheets.Add
   
    hoja.Name = "Primera Hoja"
   
    hoja.Cells(1, 1) = "FRENOS"
   
    ActiveWorkbook.SaveAs ("" & Ruta_Fichero & "")
   
    libro.Close
    Set libro = Nothing
   
    aplicacion.Quit
    Set aplicacion = Nothing

manuelroin:
Una Pregunta, porque este mismo codigo que escribi antes me lanza un error en una version de office 2003 usando la referencia
Microsoft Excel 11.0 Object Library

el error me lo marca cuando le doy en Libro.SaveAs("  ruta de archivo  ")
y me dice error de automatizacion

Y cuando uso office 2000 y uso la referencia Microsoft Excel 9.0 Object Library se ejecuta sin problemas

manuelroin:
lo he solucionado amigos, al parecer el problema es con el 2003 q se debe instanciar como un objeto y crearlo

Dim aplicacion As Object
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet

Set aplicacion = CreateObject("Excel.Application")
Set libro = aplicacion.Workbooks.Add
Set hoja = libro.Worksheets.Add

hoja.Name = "Primera Hoja"

hoja.Cells(1, 1) = "FRENOS"

ActiveWorkbook.SaveAs ("E:librito.xls")

libro.Close
Set libro = Nothing

aplicacion.Quit
Set aplicacion = Nothing

Navegación

[0] Índice de Mensajes