[已解决]400错误如何解决？

yshyw163

ActiveWorkbook.SaveCopyAs "E:\信用表\隆华村\" & Sheets("输入").Range("B1") & ".xls"Sheets("生产经营情况").Range("E21:E26").SelectSelection.ClearContents
运行到第二行的时候，出现400错误，不知如何解决，谢谢！

最佳答案

月排行榜 / 总排行榜

happym8888

2012-1-26 21:41

另外，工作簿中没有“农业概况”，估计是笔误。

跳转到最佳答案楼层

无聊的疯子

来个附件更好!!这样看的话,,,比较难

yshyw163

无聊的疯子 发表于 2012-1-26 20:31
来个附件更好!!这样看的话,,,比较难

上传附件，初学都算不上，各位老师见笑了。

happym8888

1. ActiveWorkbook.SaveCopyAs "E:\信用表\隆华村" & Sheets("输入").Range("B1") & ".xls"
   
2. Sheets("生产经营情况").Range("E21:E26").ClearContents
   
3. Sheets("生产经营情况").Range("j21:j26").ClearContents
   
4. Sheets("生产经营情况").Range("h11:h17").ClearContents
   
5. Sheets("生产经营情况").Range("a3:j6").ClearContents
   
6. Sheets("农业概况").Range("c6").ClearContents
   
7. Sheets("农业概况").Range("g6").ClearContents
   
8. Sheets("农业概况").Range("l6").ClearContents
   
9. Sheets("农业概况").Range("r9").ClearContents
   
10. Sheets("农业概况").Range("u9").ClearContents
    
11. Sheets("农业概况").Range("a18:s27").ClearContents
    
12. Sheets("农业概况").Range("d33:j35").ClearContents
    
13. Sheets("农业概况").Range("o33:t35").ClearContents
    

复制代码

要保证E盘上“E:\信用表\隆华村\”这个文件夹。另外，在所需要删除内容的区域直接ClearContents就可以了。

无聊的疯子

yshyw163 发表于 2012-1-26 20:39
上传附件，初学都算不上，各位老师见笑了。

E:\信用表\隆华村

这个目录不存在导到的,建立好该目录后正常

Sheets("生产经营情况").Range("E21:E26").Select
Selection.ClearContents

由于没有激活对应的 生产经营情况 表,这里会报错误
代码修改成
Sheets("生产经营情况").Range("E21:E26").ClearContents  

其实可以这样
Sheets("生产经营情况").Range("E21:E26,j21:j26,h11:h17,a3:j6").ClearContents  


其它代码自己对照优化吧~~

happym8888

另外，工作簿中没有“农业概况”，估计是笔误。

yshyw163

happym8888 发表于 2012-1-26 21:41
另外，工作簿中没有“农业概况”，估计是笔误。

是的，谢谢，已经OK了！