Question

我在销售办公室工作，目前我们使用所有销售报价的硬拷贝并按字母顺序归档。我已经制作了一个excel版本的报价文书，希望能让一切变得更有效率。不幸的是，我们对办公室计算机技能的每个人都没有信心，因此需要尽可能地使用户友好。

我需要通过vba使用命令按钮，将excel表保存到我们网络上的指定路径上。将副本重命名为指定范围的单元格的单元格内容（如果可以）。

基本上，对于每个报价，如果可能的话，我希望将保存的纸张副本保存为“Doe.John.06.01.2013”。我不知道vba是否存在直到昨天，虽然我觉得它很神奇，它让我内心的书呆子欢呼雀跃，我是一个代码NOOB！...我在网上研究过，一直找不到我需要的东西。如果这里有人可以帮助我，我会永远感激：）

Answer 1

我建议你熟悉Excel中的宏记录器。基本上它允许您将您的操作记录到VBA中。这是学习使用什么代码来完成某些操作的好方法。例如，我刚刚记录了这个：

ActiveWorkbook.SaveAs Filename:="C:\Users\Nemmy\Documents\Book2.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

获取该代码并使其按下按钮运行是一件相当简单的事情。您可以修改它以使用以下内容从几个单元格值中获取文件名：

    Dim sPath as string
    sPath=ActiveSheet.Range("A1").Value & ActiveSheet.Range("A2").Value & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=sPath, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

单元格A1将包含引用目录的基本路径，单元格A2将包含文件的名称。

VBA代码重命名＆amp;保存

1 个答案: