0

好的，我会尽力解释这一点。我有一个 Excel 工作簿，将用作成本表。此工作表的顶部将是提案编号（在单元格 D3 中）、在单元格 D4 中的客户名称）和系统大小（在单元格 D5 中）。因此，假设我的工作表是针对客户上海中午和系统大小 2500 的提案编号 4423。我希望在单击另存为时自动将文件命名为“4423 Shanghai Noon SCR-2500 Tsoc”。有没有办法用宏或任何其他方式做到这一点？任何意见是极大的赞赏。

好的，这是我从录制宏中得到的代码，但它一直说编译错误：预期：语句结束。我不知道如何使它使用“另存为”中这些单元格中的文本。

ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\walkerja\Documents\CU Proposals\Range("D3").Select Range("D4").Select SCR-Range("D5").Select Tsoc.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
4

1 回答 1

3

将您的代码更改为：

Dim part1 As String
Dim part2 as String
Dim part3 as String

part1 = Range("D3").Value
part2 = Range("D4").Value
part3 = Range("D5").Value

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\walkerja\Documents\CU Proposals\" & part1 & " " & part2 & " SCR-" & part3 & " Tsoc.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

您将字符串值与电子表格操作方法混合在一起。您需要先获取单元格的值，然后可以使用这些值为文件名构建字符串。

于 2013-04-12T18:28:40.690 回答