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 Como ADODB.RecordsetSet rs = New ADODB.RecordsetDim sConn Como StringDim sFile As String
2
Defina la ruta de acceso a la hoja de cálculo Excel y definir las propiedades de registros :
sFile = "C : \\ temp \\ myXLFile.xls " rs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimistic
3
Copia y pega el siguiente código consulta " Sheet1 "de Excel y visualización a través de el control DataGrid mediante el uso de registros :
sConn = " DRIVER = Microsoft Excel Driver ( * . xls )," y " DBQ =" & sFilers.Open "SELECT * FROM [ ,"Hoja1 $] " , sconnSet DataGrid1.DataSource = rsEnd Sub