Opprette , åpne og legge til eller slette data i Excel er alt mulig gjennom Visual Basic 6 . Noen korte linjer med kode i Visual Basic vil oppnå de to første handlinger. Imidlertid er skiftende Excel-data mer komplisert og krever betydelig mer forklaring enn mulig i denne artikkelen. Skrive programmer for å gjøre dette kan være nyttig hvis utvikleren trenger å forenkle bruken av Excel for uerfarne personer. Ved hjelp av Visual Basic former tillate mer modifikasjon og instruksjon enn kan være mulig i Excel. Instruksjoner
en

Åpne Microsoft Visual Basic 6 program ; " . Nytt prosjekt " klikk " File " og velg " Standard.EXE " fra listen over maler . En ny form vil åpne på skjermen , merket " Prosjekt 1 - Form1 (skjema ) . " Dobbeltklikk tre ganger på Command Button ikonet i venstre panel for å legge tre knapper til skjemaet. Lagre skjemaet med et filnavn av ditt valg .
2

Klikk på "Vis" og "Egenskaper Pages" ( dette kan allerede være vises i panelet til høyre ) , og klikk på den første knappen på skjemaet . I Egenskaper-vinduet , dobbeltklikk på " Bildetekst " og endre teksten til " Åpne eksisterende regneark . " Endre den andre knappen bildeteksten til "Opprett ny regneark . " Repeat for tredje knapp , men endre denne bildeteksten til " Exit ". Dra de to første knappene slik at de står rett overfor hverandre . Plasser den tredje under de to andre.
3

Dobbeltklikk på "Åpne eksisterende regneark "-knappen . Dette endrer visningen fra « Object " til " Code" og setter inn en ny prosedyre . Skriver disse linjene nøyaktig slik de vises mellom " Private Sub Command1_Click ( )" og "End Sub ", som skal allerede være der.

Option ExplicitDim MyExcel som ny Excel.ApplicationDim MyWorkbook Som Excel. WorkbookDim MyWorksheet Som Excel.WorksheetDim filnavnet som StringFileName = InputBox ("Skriv inn fullt navn og plassering av Excel-fil ") Set MyWorkbook = MyExcel.Workbooks.Open ( FileName ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = sant

4

Dobbeltklikk på "Opprett ny regneark " og skriv inn disse linjene med kode .

Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Ark1 ") Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = sant
5

Fullfør koden ved å dobbeltklikke på "Exit "-knappen på skjemaet og skriv inn disse linjene .

MyExcel.QuitEnd

6

Test programmet ved å trykke "F5 ". Hvis det ikke fungerer , kan du gå tilbake og dobbeltsjekke koden . Det må være nøyaktig. Hvis du får en feilmelding som sier den eksisterende filen ikke kan finnes , sjekk plasseringen og sikre at du skrev det akkurat . Når alt fungerer , klikk på " File " og deretter " Lag " og følg den ved navnet du har gitt til prosjektet i starten. Dette vil skape en kjørbar versjon du kan kjøre direkte.