Leer una columna de datos en excel en vb
Agrega el menú de elementos Referencias a este objeto -> Buscar referencias para Microsoft Scripting Runtime.
Referencia a la biblioteca de objetos de Microsoft Excel 14.0
'
Atenúe elApp como Excel. Aplicación
Convierte libros electrónicos a formato Excel. Libro de ejercicios
Convierte ekSheet a formato Excel. Hoja de trabajo
' Dim TblMap_Card 'Crea una variable.
Subcomando privado 1_Click()
Marcar I como un número entero
openEl
Establecer dic = CreateObject("Scripting. Dictionary》)
MsgBox ekSheet.cells(rows.count, 1).
Para i = 2 a ekSheet .end(3).row. >si dic.exists(ekSheet.cell(I,2).value) entonces
dic(ekSheet.cell(I,1). Valor) = dic(ekSheet.Cell(I,1). Valor) + ekSheet.Cell(I,2).Value
dic(ekSheet.Cell Cell(I, 1). Valor) = ekSheet Valor
Finalizar si...
ekSheet.range("H:J").clear
Eksheet.Resize(1,2)
p>ekSheet.resize(dic.count ,1) = aplicación.transpose(dic.key)
ekSheet ).resize(dic.count,1) = aplicación.transpose(dic.item)
end_join
private subopenEl()
Mostrar mi ruta como una cadena
myPath = "\week.xlsx "
Establecer elApp = CreateObject(" Excel.App")
Establecer elBooks = elApp.Workbooks.Open(Application.Path.myPath)
Establecer ekSheet = elBooks.Sheet("Hoja1")
Establecer ekSheet = elBooks.Table (1)
Visible=True
Conector final
Zhang: VB6 tiene solo un botón en la interfaz.