Object Library . " Klik op "OK . " Kopen van 2 Maak een nieuwe sub- procedure door het volgende te typen :
Private Sub openSpreadsheet
( )
3
Maken de variabelen die u zult gebruiken om toegang tot de Excel objecten :
Dim xlsApp
Zoals Excel.Application
Dim xlsBook
Zoals Excel.Workbook
4
Definieer de werkmap die u wilt te openen door middel van een pad en naam van het werkblad met de volgende VBA- code :
Set xlsBook = Workbooks.Open
( " C : \\ my2007ExcelWorkbook.xlsx " )
Set
xlsApp = xlsBook.Parent < br >
5
Geef het werkblad door de volgende code :
xlsApp.Visible = True
End of 6 van de procedure door het intikken van " End Sub " bij de einde van de procedure . Druk op " F5 " om de procedure uit te voeren en open de spreadsheet .