Skapa , komma åt och lägga till eller radera data i Excel är allt möjligt genom Visual Basic 6 . Några korta rader kod i Visual Basic kommer att uppnå de två första åtgärderna . Att ändra Excel-data mer komplicerat och kräver betydligt mer förklaring än möjligt i den här artikeln . Skriva program för att göra detta kan vara till hjälp om utvecklaren behöver för att förenkla användningen av Excel för ovana användare . Hjälp av Visual Basic former möjliggöra mer modifiering och undervisning än vad som vore möjligt i Excel . Instruktioner
1
Öppna Microsoft Visual Basic 6 program , " . Nytt projekt " klick " File " och välj " Standard.EXE " från listan med mallar . En ny form öppnas på skärmen , märkt " Projekt 1 - Form1 ( Form ) . " Dubbelklicka på tre gånger på kommandoknappen ikonen i den vänstra panelen för att lägga tre knappar i formuläret . Spara formuläret med ett filnamn som du väljer .
2
Klicka på " Visa " och "Egenskaper Pages " ( detta kanske redan visas i den högra panelen ) , och klicka på den första knappen i formuläret . I fönstret Egenskaper , dubbelklicka på " Caption " och ändra texten till " Öppna befintligt kalkylblad . " Ändra den andra knappen bildtext till " Skapa Nytt kalkylblad . " Upprepa för den tredje knappen , men ändra bildtext till " Exit ". Dra de första två knapparna så att de är mitt emot varandra. Placera den tredje under de andra två .
3
Dubbelklicka på " Öppna befintligt kalkylblad " -knappen . Det här ändrar vyn från " Objekt " till " Code " och infogar ett nytt förfarande . Skriva dessa rader exakt som de visas mellan " Private Sub Command1_Click ( ) " och " Sub End ", som redan borde vara där .
Option ExplicitDim MyExcel Som New Excel.ApplicationDim MyWorkbook Som Excel . WorkbookDim MyWorksheet Som Excel.WorksheetDim filnamnet som StringFileName = InputBox ( " Ange fullständigt namn och plats för Excel -filen " ) Set MyWorkbook = MyExcel.Workbooks.Open (filename ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = Sant
4
Dubbelklicka på " Skapa Nytt kalkylblad " och skriver dessa rader kod.
Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Blad1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = Sant
5
Avsluta koden genom att dubbelklicka på " Exit " knappen i formuläret och skriver dessa rader .
MyExcel.QuitEnd
6
Testa programmet genom att trycka på " F5 ". Om det inte fungerar , gå tillbaka och dubbelkolla koden . Det måste vara exakt . Om du får ett felmeddelande som säger den befintliga filen inte kan hittas , kontrollera platsen och se till att du skrev det exakt . När allt fungerar , klicka på " File" och sedan " Gör " och följ den med det namn du valt till projektet vid starten . Detta kommer att skapa en körbar version du kan köra direkt .
