Cómo mostrar datos en Excel hoja de cálculo a un control de Visual Basic 6 Datagrid

Viendo los datos de Excel a un control básico de Visual Basic 6.0 cuadrícula de datos puede hacer que sus aplicaciones VB6 más fácil de usar por ser capaz de mostrar datos de Excel. VB6 es un lenguaje de programación desarrollado por Microsoft. VB6 ha sido reemplazado por Visual Basic.NET (VB.NET), que utiliza la plataforma .NET. Un control de cuadrícula de datos se utiliza para mostrar los datos en un formato tabular similar a una tabla de base de datos. Utilizar ADO para realizar la conexión a Excel y consultar la hoja de cálculo utilizando un "Seleccionar" instrucción SQL. Una vez que realice la conexión a Excel, puede utilizar un conjunto de registros para acceder a los datos.

Instrucciones

1 Copia y pega el código siguiente para crear un nuevo procedimiento sub y crear las variables que va a utilizar para realizar la conexión a Excel:

Private Sub displayExcelInDataGrid ()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
Dim sFile As String

2 Definir la ruta de acceso a la hoja de cálculo Excel y definir las propiedades de conjunto de registros:

sFile = "C:\Temp\myXLFile.xls"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

3 Copia y pega el código siguiente consulta "Hoja1" de Excel y mostrarlo a través del control DataGrid mediante el conjunto de registros:

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set DataGrid1.DataSource = rs

End Sub