7

我试图搜索并整理代码以符合我的目的。

Sub save()
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\ck.xls", FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
  , CreateBackup:=False
End Sub

如何将其编辑为：不是将保存的文件命名为 ck.xls，而是从工作表单元格 C5 和 C8 生成文件名，中间有一个空格。

4

2 回答 2

9

尝试

Sub save()
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\" & Range("C5").Text & chr(32) & Range("C8").Text &".xls", FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
End Sub

如果要使用宏保存工作簿，请使用以下代码

Sub save()
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _
    ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

如果您想保存没有宏且没有弹出窗口的工作簿，请使用此

Sub save()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xls", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub
于 2013-08-29T10:14:23.190 回答
2

好的，当时在朋友的帮助下完成了它，代码如下所示。

Sub Saving()

Dim part1 As String

Dim part2 As String


part1 = Range("C5").Value

part2 = Range("C8").Value


ActiveWorkbook.SaveAs Filename:= _

"C:\-docs\cmat\Desktop\pieteikumi\" & part1 & " " & part2 & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

如何编辑此部分（文件格式：= _ xlOpenXMLWorkbookMacroEnabled）以将其另存为 Excel 97-2013 工作簿，尝试了几种变体但均未成功。谢谢

似乎，我找到了解决方案，但我的想法是有缺陷的。通过执行此 FileFormat:= _ xlOpenXMLWorkbook，它会弹出一个弹出窗口，提示您无法将此工作簿保存为未启用宏的文件。那么，这不可能吗？

于 2013-09-12T08:58:35.027 回答