vb打开excel

Question

Dim objExcel As Excel.Application 
Dim objWorkBook As Excel.Worksheet Set objExcel = CreateObject("excel.application") 
Set objWorkBook = objExcel.Workbooks.Open("d:\1.xls") 
objExcel.Visible = True '设置活动工作表 
Dim objSheet As Excel.Worksheet 
Set objSheet = objExcel.Worksheets("sheet1") 为什么这一句Set objWorkBook = objExcel.Workbooks.Open("d:\1.xls") 
总是提示类型不匹配 
我想打开已经存在的excel

Answer 1

Dim objWorkBook As Excel.Worksheet 改为:Dim objWorkBook As Excel.WorkBook