¿Cómo consultar datos en una tabla EXCEL y agregar los mismos datos en VB?
k?=?App.Path?amp;?"\1.xlsx"' La ruta aquí puede ser modificada por usted mismo
Set?Excelapp?=?CreateObject("Excel.Application")
Set?oBook?=?Excelapp.Workbooks.Open(k,?missing,?True) Set?XlsSheet?=?oBook.Worksheets(1)?Aquí "1" es la primera hoja de trabajo. Si no, puede cambiar nr?=?XlsSheet.UsedRange.Rows.Count usted mismo For?I?=?2?To?nr
If?XlsSheet.Cells(I,?1)?= ?Text1.Text?Entonces
Texto2?=?Text2? ?XlsSheet.Cells(I,?2)
Texto3?=?Text3? 3 )
¿Fin? Debes cambiar el código fuente adjunto.