Ako kopírovať políčka text z DataGridView Excel

Export dát z vašej kontrolou DataGridView do aplikácie Microsoft Excel môžete ušetriť čas tým , že eliminuje kroky , keď potrebujete skopírovať dáta do aplikácie Excel . V aplikácii Visual Basic , môžete použiť objektovej knižnice Microsoft Excel exportovať dáta z aplikácie . Ovládanie DataGridView poskytuje prispôsobiteľnou tabuľku pre zobrazovanie dát . Ovládanie môže byť naplnená manuálne , alebo môžete zobraziť údaje z databáz a iných dátových zdrojov pomocou " DataSource " vlastnosť . Pokyny dovolená 1

Spustite program Microsoft Visual Basic Express . Kliknite na tlačidlo " Nový projekt ... " V ľavej table na obrazovke , a vyberte "Windows Forms . " Kliknite na tlačidlo " OK " pre vytvorenie nového projektu .
2

Double - kliknite na " DataGridView " na " Toolbox " paneli pridať ovládací prvok na formulári . Pridanie tlačidla rovnakou technikou .
3

Kliknite na menu " Project " a zvoľte " Vlastnosti . " Kliknite na " Referencie " , potom vyberte " Pridať " . Vyberte " COM " . Kliknite na " Microsoft Excel objektovej knižnice . " Kliknite na tlačidlo " OK " .
4

Dvakrát kliknite na formulár pre vytvorenie postupu " Form1_Load " . Zadajte nasledujúci kód pridať dáta do ovládacieho prvku zobrazenie dát mriežky : ...

S DataGridView1

RowHeadersVisible = False

Columns ( 0 ) Name = " ExcelValue "

End With

Dim rast As String ( ) = { " 1 " }

Dim gRow2 As String ( ) = { " 2 " }

S Me.DataGridView1.Rows

. Pridať ( rast )

. Pridať ( gRow2 )

End With
5

Double - click " Button1 " vytvoriť procedúru udalosti kliknite na tlačidlo na tlačidlo . Zadajte nasledujúci kód v prvom riadku module importovať menný Microsoft Office :

Dovoz Microsoft.Office.Interop
6

zadajte nasledujúci kód pod " Button1_Click " vytvoriť premenné použité na otvorenie programu Excel :

Dim ExcelApp ako New Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = TRUE

Dim ExcelWks ako Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk ako Excel.Workbook = ExcelWks.Add

Dim ExcelShts ako Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht ako Excel.Worksheet = ExcelShts ( " Hárok1 " )
7

Pridajte nasledujúci kód prechádzať riadky a pridať dáta bunky do nového zošita programu Excel : klipart

pre každý riadok As DataGridViewRow V DataGridView1.Rows

ExcelSht.Range ( " a " a xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Hodnota

xCntr + = 1

Ďalšie
8

Uložte zošit pridaním nasledujúci kód : Spojené

ExcelSht.SaveAs ( " C : \\ ExcelFile.xlsx " )
9

Stlačením tlačidla " F5 " pre spustenie programu . Kliknite na " Button1 " pridať dáta do aplikácie Excel .

• Predchádzajúca strana: Formy na programe Excel 2007 
• Ďalšia strana: Ako odviesť kus práce v programe Excel 2007