Ako otvoriť XLS súborov na formulári vo VBA

Microsoft Office Excel je tabuľkový bežne používaný na analýzu veľkých objemov dát . Microsoft Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných úloh v aplikáciách Microsoft Office . Môžete vytvoriť grafické užívateľské rozhranie ( GUI ) v programe Excel poskytujú väčšiu flexibilitu pre užívateľa . V niekoľkých krokoch môžete napísať kód VBA otvoriť existujúci zošit programu Excel a zobrazí jeho obsah pomocou ovládacieho prvku zoznamu . Pokyny dovolená 1

Spustite program Microsoft Office Excel a zadajte nasledujúci príkaz na " Hárok1 " .
V " B1 "

typu " pole1 " v " A1 " , " pole2 " , a " field3 " v " C1 "

typu " 1 " v " A2 " , " 2.1 " v " B2 " a " 3,5 " na " C2 "

zošit uložiť do " C : \\ " ako " myExcelData.xls . "
2

spustite program Microsoft Office Excel , vyberte" " kartu a potom kliknite na " Developer Visual Basic . " Zvoľte menu " Vložiť " a kliknite na " UserForm . "

Kliknite na " listbox " kontrolu v okne " Toolbox " a kliknite ľavým tlačidlom myši na ľubovoľné miesto na " UserForm1 " na vytvorenie zoznamu . Kliknite na " CommandButton " a kliknite ľavým tlačidlom myši na ľubovoľné miesto na " UserForm1 " vytvoriť nové tlačidlo .
3

Pravým - kliknite na " ListBox1 " na formuláre a zvoľte " Vlastnosti " .

Typ 3 vedľa " stĺpcov " .
4

Double - kliknite na " CommandButton1 " pre otvorenie aplikácie Microsoft Visual Basic .

skopírujte a vložte nižšie uvedený kód do vášho nového modulu .
5

Private Sub CommandButton1_Click ( )

Dim oExcel Ako Excel.Application

Dim XLWbook Ako zošit

Set oExcel = Nové Excel.Application

Set XLWbook = 0 ) = 1 ) = 2 ) = 0 ) = 1 ) = 2 ) = XLWbook.Sheets ( " Hárok1 " ) . Range ( " C2 " ) . Hodnota

XLWbook.Close

End Sub
6

Stlačte " F5 " a kliknite na " CommandButton1 " otvoriť " myExcelData.xls " a zobrazí jeho obsah v zozname .

• Predchádzajúca strana: Ako napísať textového súboru v programe Access a Visual Basic 
• Ďalšia strana: Ako zakázať tlačidlo Zavrieť v jazyku Visual Basic 6