Visual Basic para Aplicaciones - Dónde está el error??

Life is soft - evento anual de software empresarial
 
Vista:

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

RE:Dónde está el error??

Publicado por Mauricio Baeza (262 intervenciones) el 19/11/2002 06:54:25
Solo puedes hacer referencia al objeto Cells si lo haces desde el objeto Application

Text1 = Cells(filas, 1)

La linea anterior la puedes usar si lo haces desde Excel, desde VB tienes que anteponer el objeto Application

Text1.Text = appExcel.Cells(filas,1)

pero tiene el inconveniente que haces referencia a la hoja activa que tal vez no sea la que requieres, para garantizar que lees los datos correcots, hazlo sobre el objeto Worksheet

Text1.Text = wbLibro.Worksheets(1).Cells(filas,1)

o

Text1.Text = wbLibro.Worksheets("Mi Hoja").Cells(filas,1)

ten cuidado con el nombre de las hojas, recuerda que los usuarios pueden cambiarlo, claro, si tu se lo permites...
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