vb lee datos de Excel

Coloque un control CommonDialog1 para seleccionar archivos de Excel

Private Sub Command1_Click()

Dim i As Long

Dim Sum1, Sum2 As Long

Atenuar VBExcel como aplicación

Atenuar xlbook como Excel.Workbook

Atenuar xlssheet como Excel.Workheet

Establecer VBExcel = CreateObject("Excel.Application")

CommonDialog1.Nombre de archivo = " ". FileName = "" Luego

Salir de Sub

De lo contrario

Establecer xlbook = VBExcel.Workbooks.Open(CommonDialog1.FileName)

Establecer xlssheet = xlbook.Worksheets(1)

VBExcel.Visible = True

Para i = 2 a 35535

Si xlssheet.Cells(i, 1) = "Li Si" Entonces

Sum2 = Sum2 xlssheet.Cells(i, 2)

Finalizar si

Texto1.Texto = Suma1

Texto2.Texto = Suma2

Finalizar si

Texto1. Texto = Suma2

Texto2.Text = Suma3

Fin si

Texto2.Text = Suma3Text2.Text = Suma2

xlbook.Close (Verdadero)

Establecer xlssheet = Nada

Establecer xlbook = Nada

Establecer VBExcel = Nada

End Sub

Fin del subtítulo