Dónde está el error??
Publicado por Alvarettp (1 intervención) el 14/11/2002 18:54:23
Quiero leer datos de Excel desde VB. Al hacer el primer click sobre el botón me muestra el contenido de la celda A1. Al hacer click por segunda vez, en lugar de mostrarme la celda A2 me dice "Error en el método 'Cells' del objeto '_Global"
Alguna idea?
Option Explicit
Dim filas As Long
Private Sub Command1_Click()
Dim appExcel As Excel.Application
Dim wbLibro As Workbook
Dim strRuta As String
Set appExcel = New Excel.Application
'Ruta de un archivo de Excel existente
strRuta = App.Path & "\" & "Prueba1" & ".xls"
'Verificamos que exista el archivo
If Len(Dir(strRuta)) = 0 Then
MsgBox "El archivo no existe"
Else
'Abrimos un libro existente
appExcel.Visible = False
Set wbLibro = appExcel.Workbooks.Open(strRuta)
filas = filas + 1
Text1 = Cells(filas, 1)
wbLibro.Save
wbLibro.Close
End If
appExcel.Quit
Set wbLibro = Nothing
Set appExcel = Nothing
End Sub
Gracias
Alguna idea?
Option Explicit
Dim filas As Long
Private Sub Command1_Click()
Dim appExcel As Excel.Application
Dim wbLibro As Workbook
Dim strRuta As String
Set appExcel = New Excel.Application
'Ruta de un archivo de Excel existente
strRuta = App.Path & "\" & "Prueba1" & ".xls"
'Verificamos que exista el archivo
If Len(Dir(strRuta)) = 0 Then
MsgBox "El archivo no existe"
Else
'Abrimos un libro existente
appExcel.Visible = False
Set wbLibro = appExcel.Workbooks.Open(strRuta)
filas = filas + 1
Text1 = Cells(filas, 1)
wbLibro.Save
wbLibro.Close
End If
appExcel.Quit
Set wbLibro = Nothing
Set appExcel = Nothing
End Sub
Gracias
Valora esta pregunta


0