Object Library . " Klicka på " OK . "
2 Skapa en ny sub förfarande genom att skriva följande :
Private Sub openSpreadsheet ( ) Addera 3
Skapa de variabler som du kommer att använda för att komma åt Excel objekt :
Dim xlsApp som Excel.Application
Dim xlsBook som Excel.Workbook
4
Definiera arbetsboken du vill att öppna genom att tillhandahålla en sökväg och kalkylblad namn med hjälp av följande VBA -kod :
Set xlsBook = Workbooks.Open ( " C : \\ my2007ExcelWorkbook.xlsx " ) katalog
Set xlsApp = xlsBook.Parent
5
visa kalkylbladet genom att skriva följande kod :
xlsApp.Visible = Sant
6
Avsluta proceduren genom att skriva " End Sub " på slutet av förfarandet . Tryck " F5 " för att köra proceduren och öppna kalkylbladet .