Ako získať prístup Excel Spreadsheets S Visual Basic 6

Tvorba , prístup a pridanie alebo zmazanie dát v programe Excel všetko je možné pomocou Visual Basic 6. Niektoré krátke riadky kódu v jazyku Visual Basic bude plniť prvé dve akcie . Avšak , zmena údajov programu Excel je zložitejšie a vyžaduje podstatne viac vysvetlenie , ako je to možné v tomto článku . Písanie programov , ako to urobiť , môže byť užitočné , ak developer potrebuje zjednodušiť používanie aplikácie Excel pre nekvalifikovanej obsluhy . Pomocou jazyka Visual Basic formuláre umožňujú väčšie úpravy a poučenie , než by bolo možné v programe Excel . Pokyny dovolená 1

Otvorte Visual Basic 6 programu Microsoft , kliknite na tlačidlo " Súbor " a zvoľte " Standard.exe " zo zoznamu šablón " Nový projekt . " . Nový formulár sa otvorí na obrazovke , označené " Projekt 1 - . Form1 ( formulár ) " Double - kliknite trikrát na ikonu príkazového tlačidla v ľavom paneli pridať tri tlačidlá do formulára . Uložte formulár s názvom súboru podľa svojho výberu .
2

Kliknite na " Zobraziť " a " Vlastnosti stránky " ( tento môže byť už vykazujú v pravom paneli ) , a kliknite na prvý tlačidlá na formulári . V okne Vlastnosti , dvakrát kliknite na " Titulok " a zmeňte text " otvoriť existujúci zošit . " Zmeniť druhý označenie tlačidla na " Vytvoriť nový list . " Opakujte pre tretie tlačidlo , ale zmeniť titulok " Koniec . " Drag prvé dve tlačidlá tak , aby boli proti sebe . Umiestnite tretí pod sebou dva .
3

Double - kliknite na tlačidlo " Otvoriť existujúcej tabuľky " . Tým sa zmení zobrazenie z " objektu " na " Code " a vloží nový postup . Zadajte nasledujúce riadky presne tak , ako sa objavujú medzi " Private Sub Command1_Click ( ) " a " End Sub " , ktorý by mal už byť tam .

Option ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Ako Excel . WorkbookDim MyWorksheet ako Excel.WorksheetDim názov súboru , ako StringFileName = InputBox ( " Zadajte úplný názov a umiestnenie súboru Excel " ) Set MyWorkbook = MyExcel.Workbooks.Open ( fileName ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = TRUE

4

Dvakrát kliknite na " Vytvoriť nový list" a zadajte tieto riadky kódu .

Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Hárok1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = TRUE
5

Dokončiť kód dvojitým kliknutím na tlačidlo " Exit " na formulári a napíšte tieto riadky .

MyExcel.QuitEnd
praha 6

Otestujte program stlačením tlačidla " F5 " . Ak to nefunguje , vráťte sa späť a skontrolujte kód . Musí to byť presné . Ak sa chybové hlásenie , že existujúci súbor nemožno nájsť, skontrolujte umiestnenie a zaistiť ju zadať presne . Keď všetko funguje , kliknite na " Súbor " a potom " Make " a sledovať ho podľa názvu ste priradili k projektu na začiatku . Tým sa vytvorí spustiteľný verzii môžete spustiť priamo .

• Predchádzajúca strana: Nevýhody elektronických Spreadsheets 
• Ďalšia strana: Ako vyplňte náklady na poistenie list