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

各位大侠帮我看一看我用下面的代码运行但没有打开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

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

xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open("D:\1.xls") '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets("Sheet1$")) '设置活动工作表
xlApp.Visible = True '设置EXCEL对象可见（或不可见）

还是不行

现在行了，多谢！