Nwlapcug.com


Come utilizzare caratteri jolly con Excel Visual Basic



Imparare a utilizzare i caratteri jolly nella lettura dei dati di Microsoft Excel dall'applicazione Visual Basic può fare l'importazione dei dati molto più veloce della lettura di una riga alla volta. È possibile utilizzare l'asterisco (*) come carattere jolly in un'istruzione SQL per leggere un foglio di calcolo in Excel e importarlo in memoria utilizzando la classe "DataSet". Una volta che i dati sono in memoria, quindi si può facilmente visualizzare usando controlli ad esempio un oggetto DataGridView.

Istruzioni

1

Avviare Microsoft Visual Basic Express, fare clic su "Nuovo progetto" nel riquadro sinistro dello schermo del computer e fare doppio clic su "Microsoft Windows Form" per creare un nuovo progetto.

2

Fare doppio clic su "DataGridView" per aggiungere un nuovo controllo al form. Fare doppio clic sul "Pulsante" per aggiungere un nuovo pulsante al form.

3

Fare doppio clic su "Button1" per creare un pulsante fare clic su evento. Aggiungere il codice seguente per creare la connessione al file Excel:

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

4

Modificare "C:\ExcelFile.xlsx" nel passaggio precedente e digitare il percorso e il nome del file di Excel.

5

Creare le variabili di oggetto che si utilizzerà per leggere il file di Excel:

Dim myConnection As OleDbConnection = New OleDbConnection

Dim ds As DataSet

Dim da As OleDbDataAdapter

Dim strSQL As String6

Uso il "*" carattere selvaggio nell'istruzione SQL seguente per leggere tutti i dati in "Sheet1" del foglio di calcolo:

strSQL = "SELECT * FROM [Sheet1$] "7

Leggere il file utilizzando un DataAdapter e riempire un DataSet con i dati:

myConnection.ConnectionString = connString

da = New OleDbDataAdapter(strSQL, myConnection)

ds = New DataSet

da.Fill(ds, "table")8

Chiudere la connessione e visualizzare i dati nel DataSet mediante il controllo DataGridView:

myConnection.Close()

DataGridView1.DataSource = ds.Tables("table")9

Premere "F5" per eseguire il programma e fare clic su "Button1" per leggere il file di Excel.