我的代码：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
'假设要调用的控件名称是CommandButton1
xlSheet.Shapes("commandbutton1").DrawingObject.object.Value = True '单击控件
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

在Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象这一句提示类型不匹配。
请高手指教，谢谢！

我们的代码都是这样写的，

检查：1、是否安装了 OFFICE ，是否包含了 EXCEL 。
      2、如果未安装 OFFICE ，是否安装了 WPS OFFICE 。如果仅安装了WPS OFFICE ，检查设置是否兼容 OFFICE 。

这是一个早些时候写的代码，提供手动选择 WPS 或 EXCE 的。
    If Option1.Value Then
        Set excel1 = GetObject(, "Excel.Application")
        '是否有错误
        If Err.Number <> 0 Then
            Err.Clear
            Set excel1 = CreateObject("Excel.Application")
            If Err.Number > 0 Then
                '错误，提示，结束过程
                MsgBox "打开 Excel 失败，请确认你安装了 Excel 。", vbCritical, "错误"
                End
            End If
        End If
    Else
        Set excel1 = GetObject(, "et.Application")
        '是否有错误
        If Err.Number <> 0 Then
            Err.Clear
            Set excel1 = CreateObject("et.Application")
            If Err.Number > 0 Then
                '错误，提示，结束过程
                MsgBox "打开 WPS 表格(Et) 失败，请确认你安装了 WPS 表格(Et) 。", vbCritical, "错误"
                End
            End If
        End If
    End If

估计是没有引用 Excel，没有引用 Excel 就会出现 “类型不匹配”错误。

【工程】-【引用】对话框中选择 Excel 的引用就可以了。

[此贴子已经被作者于2018-11-9 18:31编辑过]

我引用了的。

代码复制到我的电脑上运行正常

createobject方法创建excel对象，代码也没问题，什么原因错误不晓得，知识有限  

你用NEW关键字创建excel对象试试

Set xlApp = CreateObject("Excel.Application")    这一行出错，应该是引用问题，再看看引用是否正确。
在我的电脑复制你的代码运行没有一点错误，能够打开 e:\data.xls 文件。

[此贴子已经被作者于2018-11-11 12:10编辑过]