EXCEL VBA 中另存为代码如何表示

以下为之前搜索到的另存为代码，但是运行的时候出现变量未定义错误，请大神帮忙调整。（另存为出来后文件名自动为以下内容("新配方" & Format(Now, "YYYY-MM-DD-HHmmSS") &".xls")）

Private Sub CommandButton4_Click() '单独输出配方表
fileSaveName =Application.GetSaveAsFilename("新配方" & Format(Now, "YYYY-MM-DD-HHmmSS") &".xls") '以标签名+日期命名
If fileSaveName <> False Then
Sheet1.Activate
ActiveSheet.Copy
ActiveWorkbook.CloseSaveChanges:=True, Filename:=fileSaveName & ".xls" '新表关闭
Sheet1.Select
End If
End Sub
调试的时候还是变量未定义问题

举报该问题

其他回答

第1个回答 2015-05-21

Private Sub CommandButton4_Click() '单独输出配方表
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= _
"新配方" & Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub本回答被网友采纳

第2个回答推荐于2018-03-11

"ActiveWorkbook.Close SaveChanges:=True" 这句，CLOSE 和SaveChanges之间应该要有个空格把本回答被网友采纳

相似回答

Excel中,如何用vba实现另存为工作表?(去掉公式)答：1、首先，找到要进行操作的Excel表格，右键单击Excel图标，然后在弹出的右键菜单中选择打开命令。2、从打开的工作簿左下角的工作表标签可知，该工作簿默认生成工作表为一个。3、按下组合键Alt+F11，即可快速调出VBA窗口。4、在VBA界面中单击菜单栏中的插入，选择模块命令，此时会弹出一个另存为的模块窗...

用EXCEL中VBA代码,做一个另存为文件?答：set st=activesheet with workbooks.add for each t in ("a1:b5", "d1:f5")range(t)=st.range(t)next t .saveas "c:\aaa.xlsx"msgbox "已经保存:" & .name .close end with end sub

excel 中,怎么利用vba把文件另存为另一个文件名?答：1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中，如下图所示，然后进入下一步。2、其次，完成上述步骤后，创建一个新的工作簿，将其命名为“第一章目录”，然后按“alt + f11”组合键打开“宏”界面，如下图所示，然后进入下一步。3、接着，完成上述步骤后，在VBA中，单击“插入”...

如何用VBA实现将Excel 关闭后直接另存到一个指定的路径,并在另存文件...答：Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next ThisWorkbook.Save'保存本文件 Application.DisplayAlerts = False ThisWorkbook.SaveAs "D:\ff\测试" & Format(Now, "yyyy年m月d日 h时m分s秒") & ".xls"'另存为其它文件，这里弄成你自己的路径和文件名...

EXCEL 怎么使用VBA代码写将当前选定单元格内容另存为指定单元格的代码...答：Value 另存为某工作簿的方法：ThisWorkbook.SaveAs Filename = "d:\" + [i2]如果只把当前工作表另存为，那么需要把这个工作表复制到一个新的工作簿中：ActiveSheet.Copy 上面的当前工作簿、当前工作表、以及Sheet1这些只是一个例子，事实上可以用任何方法表示的工作簿、工作表都是可以执行的。

求VBA高手帮忙,想在Excel 宏A运行完成后自动另存为整个workbook,另存...答：你试试在“workbook"的 Private Sub Workbook_BeforeClose(Cancel As Boolean) 中加入如下句子：myNowTime = Format(Now, "yymmdd" &"-" & "hhmmss")ActiveWorkbook.SaveAs Filename:=currPath & myNowTime &".xls", AddToMru:=False ‘（”currPath“为你的路径及文件名称）...

Excel 如何用VBA实现把工作表另存为PDF答：例子代码：Sub test() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Administrator\桌面\test.pdf"End Sub

大家正在搜

EXCEL表格VBA代码解释器 VBA 表格的隐藏代码 EXCEL用VBA增加行 VBA代码 accessVBA代码 excel VBA 提示 EXCEL 宏 Excel代码 EXCEL