Het creëren van , toegang tot en het toevoegen of verwijderen van gegevens in Excel is allemaal mogelijk door middel van Visual Basic 6 . Enkele korte regels code in Visual Basic worden de eerste twee acties te verwezenlijken . De veranderende Excel data is ingewikkeld en vereist aanzienlijk meer toelichting dan mogelijk in dit artikel . Het schrijven van programma's om dit te doen kan nuttig zijn als de ontwikkelaar nodig heeft om het gebruik van Excel voor ongeoefende gebruikers te vereenvoudigen . Met behulp van Visual Basic vormen zorgen voor meer wijziging en instructie dan wellicht mogelijk in Excel . Instructies 1 Open de Microsoft Visual Basic 6 -programma ; " . New Project " klik " File " en kies " Standard.exe " uit de lijst met sjablonen . Een nieuw formulier wordt geopend op het scherm , het label " Project 1 - Form1 ( Formulier ) . " Double - click drie keer op de Command Button-pictogram in het linkervenster om drie knoppen toevoegen aan het formulier . Sla het formulier met een bestandsnaam van uw keuze . Klik 2 op "View " en "Eigenschappen Pages" ( dit kan al worden weergegeven in het rechter paneel ) , en klik op de eerste knop op het formulier . In het venster Eigenschappen , dubbelklik op " Caption " en verander de tekst in ' Bestaand werkblad openen . " Op de tweede knop bijschrift wijzigen naar " Create New werkblad . " Herhaal dit voor de derde knop , maar deze titel te wijzigen in " Exit ". Sleep de eerste twee toetsen zodat ze tegenover elkaar . Plaats de derde een onder de andere twee . 3 Dubbelklik op de " Spreadsheet Open Bestaand " knop . Dit verandert het uitzicht van " object " op "Code" en voegt een nieuwe procedure . Typ deze lijnen precies zoals ze verschijnen tussen de " Private Sub Command1_Click ( ) " en " End Sub ", die er al moeten zijn . Optie ExplicitDim MyExcel Als Nieuw Excel.ApplicationDim MyWorkbook als Excel . WorkbookDim MyWorksheet Zoals Excel.WorksheetDim FileName Zoals StringFileName = InputBox ( " Geef volledige naam en locatie van het Excel -bestand " ) Set MyWorkbook = MyExcel.Workbooks.Open ( bestandsnaam ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True < br > 4 Dubbelklik op de "Create New Worksheet " en typ de volgende regels code . Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Blad1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True 5 Beëindig de code door dubbel te klikken op de "Exit " knop op het formulier en voer deze lijnen . MyExcel.QuitEnd Test 6 het programma door op " F5 . " Als het niet werkt , ga terug en double-check de code . Het moet precies te zijn. Als u een fout zeggend het bestaande bestand niet kan worden gevonden krijgen , controleer dan de locatie en je het precies ingevoerd verzekeren . Als alles werkt , klik op " File " en vervolgens " maken" en volg het door de naam die u hebt toegewezen aan het project bij de start . Dit zal een uitvoerbaar versie kunt u direct uit te voeren creëren.
|