Ako čítať riadky Excel vo VB.NET

Vedieť , ako čítať riadky Microsoft Excel z programu Visual Basic.NET aplikácií môže vaše aplikácie pružnejšie . Vo VB , môžete vytvoriť SQL dotazu reťazca a Excel na základe kritérií , aby sa zabránilo čítanie celý list . Toho je dosiahnuté pomocou dátového adaptéra a súboru dát objektu . Môžete použiť LINQ pre správu dát vrátených a manipulovať jeden riadok naraz v sade dát . Pokyny dovolená 1

Spustite program Microsoft Excel a zadajte " Meno " do bunky " A1 " , " Vek " v " B1 " , " John " v " A2 " , " 10 " na " B2 " , " susan " v " A3 " , " 15 " v " B3 " , " Tom " v " A4 " , " 10 " na " B4 " , " Bob " v " A5 " a " 10 " na " B5 " . Uložte tabuľku v " C : \\ " ako " ExcelFile.xlsx . " Ukončite program Excel .
2

Spustite program Microsoft Visual Basic.NET a kliknite na tlačidlo " Nový projekt " v ľavej časti okna na obrazovke na spustenie dialógové okno " New Project " . Kliknite na "Windows Forms " a kliknite na " OK " pre spustenie nového projektu .
3

Double - kliknite na " listbox " z " Toolbox " paneli pridať nový ovládací prvok zoznam na formulár . Pridať nové tlačidlo s použitím rovnakého postupu .
4

Dvakrát kliknite na formulár vytvoriť udalosť Load formulára . Pridajte nasledujúci kód definovať cestu Excel , ktorú chcete čítať a vytvárať premenné objektu , ktoré budete používať pre čítanie súboru :

Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ ExcelFile.xlsx ; Rozšírené vlastnosti = Excel 12,0 " ; klipart

Dim myConnection As OleDbConnection = New OleDbConnection

Dim ds ako DataSet

Dim da As OleDbDataAdapter

Dim strSQL As String
5

Zadajte reťazec SQL dotazu riadky , kde " vek " je rovné 10 a prečítať tabuľku programu Excel pomocou dátového adaptéra a sady dát .

strSQL = " SELECT meno , vek FROM [ Hárok1 $ ] WHERE Vek = 10 "

myConnection.ConnectionString = connString

da = New OleDbDataAdapter ( strSQL , myConnection )

ds = new DataSet

da.Fill ( ds , " DataTable " )

myConnection.Close ( )
6

Prečítajte dát vrátených z nastavenia dátumu a uložiť ich v " ExcelRows " globálne pole pre budúce použitie .

Dim excelData = ds.Tables ( " DataTable " ) . AsEnumerable ( )

Dim rowQuery = z p V excelData _

vyberte p ! NÁZOV , p ! AGE

rowCntReturned = rowQuery.Count

ExcelRows = rowQuery.ToArray
7

Pridať globálne nasledujúce premenné nad " Form1_Load " udalosť : Spojené

Dim ExcelRows

Dim rowCntr As Integer

Dim rowCntReturned As Integer
8

spínač späť na návrhu formulára a poklepaním na toto tlačidlo vytvoríte udalosť click . Pridajte nasledujúci kód pridať jeden riadok naraz na ovládací prvok zoznam .

( RowCntr < rowCntReturned ) Potom

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

rowCntr + = 1

End If
9

Stlačte " F5 " , spustiť program a kliknite na tlačidlo " Button1 " pridať prvý riadok tabuľky . Kliknite na tlačidlo znova pridať druhý riadok a kliknite naň jeden posledný čas pridať tretí riadok na ovládací prvok zoznam .

• Predchádzajúca strana: Ako používať Excel vypočítať súčasnú hodnotu 
• Ďalšia strana: Ako Počet duplicitné názvy v programe Excel