Visual Basic - Error 1004 En Tiempo De Ejecución VB6

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Error 1004 En Tiempo De Ejecución VB6

Publicado por Alexander Mauricio (1 intervención) el 10/02/2017 15:27:19
buenos días estoy teniendo inconvenientes al generar el archivo de excel con vb6 quien me puede ayudar


Captura


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Set oExcel = New Excel.Application
Set oWBook = oExcel.Workbooks.Add
Set oSheet = oWBook.Worksheets(1)
oExcel.DefaultSaveFormat = xlWorkbookNormal
''oSheet.Unprotect 'Desprodejo la hoja
''oExcel.ScreenUpdating = False ' para no ver el funcionamiento de la macro
oExcel.Visible = False
rs.MoveFirst
iFila = 2
oSheet.Cells(iFila, 3) = "LISTADO DE AFILIADOS"
iFila = 4
oSheet.Cells(iFila, 1) = "Nit: " & LVFacturas.ListItems.Item(J).SubItems(13)
oSheet.Cells(iFila, 3) = LVFacturas.ListItems.Item(J).Text
oSheet.Cells(iFila, 5) = LVFacturas.ListItems.Item(J).SubItems(14)
iFila = 6
For I = 0 To (rs.Fields.Count) - 1
    oSheet.Cells(iFila, I + 1) = rs.Fields(I).Name
Next I
iFila = 6
Do Until rs.EOF
    iFila = iFila + 1
    For I = 0 To rs.Fields.Count - 1
        oSheet.Cells(iFila, I + 1) = rs.Fields(I).Value
    Next I
    rs.MoveNext
    X = X + 1
Loop
Set oWBook = Nothing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Christian
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 En Tiempo De Ejecución VB6

Publicado por Christian (713 intervenciones) el 11/02/2017 07:12:35
Siempre que uses automatización con Excel o Word. Acordate de cerrar primero el libro de excel, eliminar el objeto. Cerrar la aplicación excel y eliminar el objeto excel.

Algo como ...

Worbook.close
Aplicatión.close

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 57
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 En Tiempo De Ejecución VB6

Publicado por Darío (46 intervenciones) el 14/02/2017 15:01:01
Coincido siempre cerra el libro y libera los objetos, usa estas sentencias:


xlBook.Close
xlApp.Quit
Set xlApp = Nothing: Set xlBook = Nothing: Set xlsheet = Nothing

.close cierra la hora
.quit cierra el excel
los SET de abajo blanquea las variables.

Ademas de eso fijate si tenes tildada la referencia, para eso anda al menu "Proyecto" - "Referencias" y fijate si tenes tildado microsoft excel (la version que tengas instalada)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar