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
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
0