gracias en si tu codigo me ayudo un poco minimo ya puedo ver hasta que fila leer y hasta que columna muchas gracias javiercapi
ahora otra cuestion tengo un campo en el documento que tiene una fecha 07:26:26 a.m. al leer el campo pues deberia salir 07:26:26 a.m. pero no, me sale .31####### ya intente pasandolo a una variable de tipo datetime pero nada alguien alguna ayuda????
por cierto me arroja un error cuando encuentra una celda nula alguien sabe como kitar este error??? pensaba en tratarla como un espacio en blanco pero mi programa me manda la excepcion al momento en ke la encuentra y no sigue leyendo mas
dejo codigo ke llevo hasta ahora:
Código:
Dim varOBJ AsNew Excel.Application
varOBJ = CType(CreateObject("Excel.Application"), Excel.Application)
Dim var AsNew Excel.Worksheet
var.Workbooks.Open("C:\123.xls")
var = VAROBJ.ActiveWorkbook.Sheets(1)
MsgBox("Filas: " & var.UsedRange.Rows.Count & " Columnas: " & VAR.UsedRange.Columns.Count)
Try
Label1.Text = (var.Range("a" & 1).Value).Date & " " & (var.Range("b" & 1).Value).Time
Label2.Text = var.Range("a" & 5).Value.ToString
Label3.Text = var.Range("a" & 9).Value.ToString
Label4.Text = var.Range("a" & 11).Value.ToString
Label5.Text = var.Range("a" & 15).Value.ToString
Label6.Text = var.Range("a" & 16).Value.ToString & ", " & var.Range("b" & 16).Value.ToString
Label7.Text = var.Range("a" & 17).Value.ToString
Label8.Text = var.Range("a" & 2).Value.ToString ' si pasa esta linea todas las demas deben de salir
Catch ex As Exception
MsgBox(ex.Message)
EndTry
varOBJ.Quit()
varOBJ = Nothing
EndSub