Question

有一个Excel VBA程序代码请大神帮我写一下

操作文件和需求都在该下载地址，主要是关于复制保存的。里面有一段代码可执行，但是还有很多问题不能满足需求。个人水平有限，只能请大神，帮我重新写一个，或者在原有的基础代码修改满足我的需求。不胜感激！！！
http://pan.baidu.com/s/1c029kXU
q169032920如有疑问可以加Q

Answer 1

Private Sub 刷新_Click()
    Application.Calculate
End Sub

先给你解决刷新的问题，增加一个单词即可。

追问

后面的呢？

追答

后面的正在研究，你的保存很复杂。而且你只给出了需求，没有写明你的疑难在哪里，我只有全面给你调试了。

追问

最后一个说了几个重点疑难。

追答

你试试看是否满意吧

追问

程序怎么样？加q吧

追答

程序已经提交，请试用。

追问

第一页工作表打印区域下方还有隐藏单元格的内容没有清除，第三页工作表O列O1:O23也是打印区域，也被删除了。保存的时候，总是有对话框提示（无法在未启用宏的工作簿中保存一下功能·····），还要点击一次确定，可以不提示吗，默默保存掉就行了。

追答

前两个问题添加或者调整相应的Delete你肯定会的。

最后一个问题的解决方法，在saveas语句前面添加下面一行：
Application.DisplayAlerts = False

但是这有问题，所有的警告都不来了，包括覆盖文件等。如果自己使用，我建议保留警告信息。

追问

大哥，加我Q吧
我还有点疑问

追答

对不起，我用不了QQ。

如果本程序还有问题，请追问，我尽力分析。

如果还有其它问题，请发帖，因为追问了我也可能不懂。

追问

可以邮箱发给你吗？

追答

如果本程序还有问题，请追问，我尽力分析。
如果还有其它问题，请发帖，会有高手回答你，因为我的精力和能力都非常有限。

追问

大哥，收到没

追答

收到什么？

追问

http://pan.baidu.com/s/1sjQ5rkx
这是问题
也是最后一个问题了

追答

我没有做过PERSIONAL的东西，你遇到什么问题了？

追问

这个不管了。就是按要求帮我改成，我单独打开一个文件执行也可以。其他就按照要求就行。

我之前有已经编辑好的表格，还是xlsm文件。和昨晚的例表一样，打印区域已经设置好的。只是区域外还有不需要的内容，还有不要的代码。我打开文件以后，执行我要求的代码，可以删除这些不需要的内容，并另存为xlsx。

追答

程序自己写吧，清除内容可以使用range("a1:a2").clearcontents这样的方法，其它问题请具体追问。

追问

名称引用当前文件名称呢

追答

当前工作薄可以使用activeworkbook表示，代码所有在工作簿可以使用thisworkbook表示。