看了论坛的置顶贴，重新来过.

各位大侠帮我看一看我用下面的代码运行但没有打开excel表，谢谢！

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Label1_Change()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("D:\1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
End Sub