将文件保存为以某一单元格中的值为文件名的宏怎么写

如题所述

推荐答案 2015-05-25

假设你要以Sheet1的A1单元格中的值为文件名保存，则应用命令： ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls" A1是文本串的话，使用这条命令： ActiveWorkbook.SaveAs Range("A1") & ".xls" 。当然，如果你的A1是路径，F1是文件名的话，可以这样写： ActiveWorkbook.SaveAs Range("A1") & Range("F1") & ".xls"

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/UvDx2isiDDU9Ui9ip9i.html

相似回答

Excel怎么以自己某一单元格内容自动保存并重命名文件?答：如果仅仅需要按A1的内容重命名表格的话，可以这样:创建宏-开始录制-选择单元格所在的表格-文件-另存为-xxx.xlsx-停止录制-查看宏-把("xxx")改成(a1).value即可。

EXCEL 怎么把其中的一个单元格设为保存的文件名答：在单元格中输入“=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)”，回车；如下图即可得到excel的文件名。

打开一个工作簿后,要将这个工作簿另存为以某一单元格的值为文件名的新...答：您可以采用录制宏的方法解决，具体方法：工具->宏->录制宏，然后按您的操作步骤操作一次，再停止录制宏，即可得到您需要的代码

excel自动以单元格为文件名将特定工作表保存到新的工作簿答：回答：'你按ALT+F11打开VBA窗口,创建一个模块,将下面的代码复制到模块中,保存,激活要另存的工作表,运行宏,就能将当前工作表另存为以SHEET1 A1单元格的内容为文件名的新工作薄.Sub 另存()ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=Sheet1.[A1] & ".xls"End Sub

保存excel文档的时候,自动以某一单元格内的内容命名并自动保存在指定的...答：1. 你可以先新建一个Excel表格名称：A.xlsx 2. 在A中点击查看宏，输入宏的名称（如：另存为），点击创建 3. 在跳出的VB窗口中，将下面代码复制进去，然后关闭VB窗口 Sub 另存为()Dim wb As WorkbookDim s As WorksheetFor Each wb In Workbooks If wb.Name <> "A.xlsx" Then Set s ...

EXCEL,另存为时,如何用最简单的方法,指定某个单元格的内容作为文件名...答：alt+f11打开vba编辑器点插入模块容纳后复制粘贴如下代码 Sub 根据单元格另存表名()ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Selection & ".xls", FileFormat:= _xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=False End Sub...