在菜单“工程/引用”中勾选"Microsost XML, v6.0"
先在菜单“工程/引用”中找到Microsost Excel,选中如果定义没有objeXcel语句中没有new 把set objExcel=new Application这条语句放在你的问题语句之前。即有两种定义变量方式Dim x As New Application-------------------------Dim x As ApplicationSet x = New Application