Copia e incolla il seguente codice per creare una nuova procedura secondaria e di creare le variabili che si intende utilizzare per effettuare la connessione a Excel :
Private Sub displayExcelInDataGrid ( ) Dim rs come ADODB.RecordsetSet rs = New ADODB.RecordsetDim sConn come StringDim sFile As String
2
definire il percorso del foglio di lavoro di Excel e definire le proprietà del recordset :
sFile = " C : \\ Temp \\ myXLFile.xls " rs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimistic
3
Copia e incolla il codice seguente query " Foglio1 " da Excel e visualizzazione attraverso il controllo DataGrid utilizzando il set di record :
sConn = " dRIVER = Microsoft Excel Driver ( *. xls ) " & " DBQ = " & sFilers.Open "SELECT * FROM [ ,"sheet1 $ ] " , sconnSet DataGrid1.DataSource = RSEND Sub
software © www.354353.com