目测代码应该没有问题，请在程序中按F9设置断点，按F8逐句运行调试，看看问题出在哪里。
基本上，是你的文件不存在。
请用 ?App.Path & "\temp\jingqi1.xls" 查看路径名是否与预期的一致。
先把On Error那句用'引去，看看在哪一句出错以及报什么错。估计是创建对象失败。另外，你这是在VB中的代码，还是VBA?
VB中用APP对象，而VBA中是APPLICAITON对象。
App.Path & "\temp\jingqi1.xls"这里App是没有定义的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024