Saper leggere le righe di Microsoft Excel da un'applicazione Visual Basic.NET può rendere l'applicazione più flessibile . In VB , è possibile creare stringhe SQL e query di fogli di calcolo Excel in base a criteri di evitare di leggere l'intero foglio . Ciò viene realizzato attraverso l' uso di un adattatore dati e l' oggetto set di dati . È possibile utilizzare LINQ per gestire i dati restituiti e manipolare una riga alla volta nel set di dati . Istruzioni
1

lancio di Microsoft Excel e digitare " nome" nella cella " A1 ", "Age " in " B1 ", " Giovanni " a " A2 ", " 10 " a " B2 ", " Susan " a " A3 ", " 15 " a " B3 ", " Tom " in" A4 ", " 10 " a " B4 ", " Bob " in" A5 " e" 10 " a " B5 " . Salvare il foglio di calcolo in " C : \\ " come " . ExcelFile.xlsx " Chiudere Excel .
2

lancio di Microsoft Visual Basic.NET e fare clic su " Nuovo progetto " nel riquadro sinistro dello schermo per avviare la finestra di dialogo "Nuovo progetto" . Fare clic su " Applicazione Windows Form " e fare clic su "OK" per iniziare un nuovo progetto .
3

doppio clic su " ListBox " dal riquadro " Casella degli strumenti " per aggiungere un nuovo controllo casella di riepilogo per la forma . Aggiungere un nuovo pulsante con la stessa tecnica .
4

Fare doppio clic sul form per creare un evento di caricamento form. Aggiungere il codice seguente per definire il percorso del foglio di calcolo Excel che si desidera leggere e creare le variabili oggetto che si intende utilizzare per leggere il file :

Dim connString As String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ ExcelFile.xlsx ; Extended Properties = Excel 12.0 ; "

Dim myConnection Come OleDbConnection = New OleDbConnection

Dim ds As DataSet

Dim da quanto OleDbDataAdapter

Dim strSQL As String
5

definire la stringa SQL per le righe di query dove " Age " è uguale a 10 e di leggere il foglio di calcolo di Excel utilizzando un adattatore dati e un set di dati .

strSQL = "SELECT nome, l'età FROM [ Foglio1 $ ] WHERE Età = 10 "

myConnection.ConnectionString = connString

da = New OleDbDataAdapter ( strSQL , myConnection )

ds = New DataSet

da.Fill ( ds , " dataTable " ) per

myConnection.Close ( ) economici 6

leggere i dati restituiti da impostare i dati e lo immagazzinano nei " ExcelRows " matrice globale per un utilizzo futuro .

Dim ExcelData = ds.Tables ( " dataTable " ) . AsEnumerable ( ) per

Dim rowQuery = da p in ExcelData _

Select p ! NOME , p! AGE

rowCntReturned = rowQuery.Count

ExcelRows = rowQuery.ToArray
7

Aggiungi le seguenti variabili globali di cui sopra l'evento " Form1 Load " :

Dim ExcelRows

Dim rowCntr As Integer Dim

rowCntReturned As Integer
8 Interruttore

torna alla progettazione di moduli e fare doppio clic sul pulsante per creare un evento click . Aggiungere il seguente codice per aggiungere una riga alla volta per il controllo casella di riepilogo .

( RowCntr < rowCntReturned ) Poi

Me.ListBox1.Items.Add ( ExcelRows ( rowCntr ) )

rowCntr + = 1

End If
9

Premere " F5 " per eseguire il programma e fare clic su " Button1 " per aggiungere la prima riga del foglio di calcolo. Fare clic sul pulsante per aggiungere la seconda riga e fare clic su per l'ultima volta di aggiungere la terza fila per il controllo casella di riepilogo .

• Come utilizzare Excel per calcolo del valore attuale 
• Come contare nomi duplicati in Excel