单看代码是没什么问题的，你检查下excel有没有安装正确，手动打开一个excel表试下：
也可以尝试这样： Set xlApp = New Excel.Application
1、安装office
2、没有引用
“工程”菜单----》“引用”，选取项目中的“Microsoft Excel 11.0 object library”项
试试：
Option Explicit
Dim xlApp As object
Dim xlBook as object
Dim xlsheet As object
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024