hola pues bien miren tengo un problema el chiste va asi estoy rgistrando los datos de dos archivos de excel, bueno uno extencion xls y el otro es exp pero igualmente se comporta como un excel el problema es que estos archivos van a llegar cada mes y la longitud de los archivos es variable como puede ke sea de 100 filas o sea de 1000
, asi que el problema reside en que no se como saber donde terminar de leer el archivo, lo de menos es ponerme a leer hasta la celda "A,b,c... .2000" pero es perder mucho tiempo y ya saben ke en esto se necesita velocidad
codigo que he hecho
Código:
Dim varOBJ As Excel.Application
varOBJ = CType(CreateObject("Excel.Application"), Excel.Application)
Dim var As Excel.Worksheet
varOBJ.Workbooks.Open("C:\archivo.exp") 'exp y xls no importa
var = var.ActiveWorkbook.Sheets(1)
Dim lastrow As String
lastrow = var.Rows.End(Excel.XlDirection.xlDown)
MsgBox(lastrow.ToString)
Try
While (var.Range("a" & i).Value.ToString <> " ")
ListBox1.Items.Add(var.Range("a" & i).Value.ToString)
Label1.Text = var.Range("a" & 1).Value.ToString
ListBox2.Items.Add(var.Range("b" & i).Value.ToString)
Label2.Text = var.Range("b" & 1).Value.ToString
ListBox3.Items.Add(varRange("c" & i).Value.ToString)
Label3.Text = var.Range("c" & 1).Value.ToString
ListBox4.Items.Add(var.Range("d" & i).Value.ToString)
Label4.Text = var.Range("d" & 1).Value.ToString
ListBox5.Items.Add(var.Range("e" & i).Value.ToString)
Label5.Text = var.Range("e" & 1).Value.ToString
i += 1
End While
i = 1
Catch ex As Exception
End Try
varOBJ.Visible = False
varOBJ.Quit()
varOBJ = Nothing
lo que hace ahi es leer un archivo excel y llenar varios listbox pero en este archivo deja de leer hasta que encuentra una celda vacia lo que puede no llegar a funcionar ya que si encuentra un espacio vacio antes de que termine el archivo va a quedar incompleto todo el codigo es simple si no se entiende solamente pregunten y pues gracias de antemano
