Oprettelse, adgang til og tilføje eller slette data i Excel er alt muligt gennem Visual Basic 6 . Nogle korte linjer kode i Visual Basic vil opnå de to første handlinger. Men skiftende Excel-data er mere kompliceret og kræver betydeligt mere forklaring end muligt i denne artikel. Skrive programmer til at gøre dette kan være nyttigt, hvis bygherren nødt til at forenkle brugen af Excel for utrænede brugere. Hjælp af Visual Basic former give mulighed for mere modifikation og instruktion , end kunne være muligt i Excel. Instruktioner
1
Åbn Microsoft Visual Basic 6 -programmet . " Nyt projekt " klik " File" og vælge " Standard.EXE " fra listen over skabeloner. En ny form vil åbne på skærmen , mærket " Projekt 1 - Form1 (formular) . " Double -click tre gange på Command Button ikonet i venstre panel for at tilføje tre knapper til formularen . Gem formularen med et filnavn efter eget valg .
2
Klik på "Vis" og "Egenskaber sider" (dette kan allerede vises i højre panel) , og klik på den første knappen på formularen. I vinduet Egenskaber Skift dobbeltklikke på " Caption ", og ændre teksten til " Open Eksisterende regneark ". Den anden knap billedtekst til "Opret ny Regneark. " Repeat for tredje knap, men ændre dette billedtekst til " Exit ". Træk de første to knapper, så de er modsat hinanden . Placer den tredje under de to andre.
3
Dobbeltklik på " Åbn eksisterende regneark" knappen. Dette ændrer visningen fra " Object " til " Code" og indsætter en ny procedure. Indtast disse linjer , præcis som de vises mellem "Private Sub Command1_Click () " og " End Sub ", som allerede burde være der.
Option ExplicitDim MyExcel Som New Excel.ApplicationDim MyWorkbook Da Excel. WorkbookDim MyWorksheet Som Excel.WorksheetDim filnavn som StringFileName = InputBox ("Indtast fulde navn og placering Excel-fil " ) Indstil MyWorkbook = MyExcel.Workbooks.Open ( FileName ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = Sand
< br > 4
Dobbeltklik på "Opret Nyt regneark ", og skrive disse linjer kode.
Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Ark1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = Sand
5
Afslut koden ved at dobbeltklikke på " Exit" knappen på formularen og skrive disse linjer.
MyExcel.QuitEnd
6
Test programmet ved at trykke på "F5 ". Hvis det ikke virker , skal du gå tilbage og dobbelt-tjekke koden . Det skal være helt nøjagtig. Hvis du får en fejl der siger den eksisterende fil ikke kan findes , kontrollere placeringen og sikre, at du har indtastet det nøjagtigt . Når alt fungerer , klik på " Filer" og derefter "Make " og følg det ved det navn, du har knyttet til projektet i starten. Dette vil skabe en eksekverbar version, du kan køre direkte.