VB开发——打开Excel并使特定的worksheet处于激活状态

Private Sub Command1_Click()
Dim strDestination As String
strDestination = App.Path & "/Excels/20060310.xls"

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
'激活EXCEL应用程序
xlApp.Visible = True
'隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
'打开工作簿，strDestination为一个EXCEL报表文件
Set xlsheet = xlBook.Worksheets("1#高加疏水泄露")
xlsheet.Select
'设定工作表
End Sub