Note: The other languages of the website are Google-translated. Back to English
登录 注册

如何用单元格值保存Excel文件？

使用工作簿时，您是否曾考虑过根据单元格内容保存Excel文件？ 例如，您在单元格A1中具有“销售价格”，并且您想要将工作簿保存为名称“销售价格”。 当然，您可以在“另存为”对话框中键入名称，然后将其保存。 但这将是您工作量低下的一种方法。 今天，我将讨论解决该问题的快速技巧。

使用VBA代码以特定的单元格值保存Excel文件

Office选项卡在Office中启用选项卡式编辑和浏览，并使您的工作更加轻松...
Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％
  • 重用任何东西： 将最常用或最复杂的公式，图表等添加到您的收藏夹中，并在将来快速重用它们。
  • 超过20种文字功能： 从文本字符串中提取数字； 提取或删除部分文字； 将数字和货币转换为英文单词。
  • 合并工具：将多个工作簿和工作表合二为一； 合并多个单元格/行/列，而不会丢失数据； 合并重复的行和总和。
  • 分割工具：根据价值将数据分割成多个工作表； 一本工作簿可转换为多个Excel，PDF或CSV文件； 一列到多列。
  • 跳过粘贴 隐藏/过滤的行； 计数与求和 按背景色; 向多个收件人批量发送个性化电子邮件。
  • 超级过滤器： 创建高级过滤方案并应用于任何工作表； 排序 按星期，日期，频率等 筛选器 用粗体，公式，注释...
  • 超过300种强大的功能； 适用于 Office 2007-2021 和 365； 支持所有语言； 在您的企业或组织中轻松部署。

箭头蓝色右气泡 使用VBA代码以特定的单元格值保存Excel文件

以下VBA代码可以帮助您保存具有指定单元格值的工作簿，请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：使用特定的单元格值保存Excel文件

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3。 然后按 F5 键执行代码，您的工作簿已被命名为单元格A1的单元格内容。 看截图：

doc储存单元格值1

笔记：

1.您可以通过将A1修改为上述代码中的其他单元格引用来指定任何单元格值作为文件名。

2.您的活动工作簿将保存到以下文件夹中 C：\ Users \ dt \ Desktop \ my information \ （将位置粘贴到该位置时，必须保留最后一个斜杠），您可以根据需要更改路径。

相关文章：

如何在Excel中使用日期和时间保存文件？

如何在Excel的标题栏或工具栏中显示文件路径？

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

  • 重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西； 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 （轻松编辑多行文本和公式）； 阅读版式 （轻松读取和编辑大量单元格）； 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据； 拆分单元格内容； 合并重复的行/列...防止细胞重复； 比较范围...
  • 选择重复或唯一 行; 选择空白行 （所有单元格都是空的）； 超级查找和模糊查找 在许多工作簿中； 随机选择...
  • 确切的副本 多个单元格，无需更改公式参考； 自动创建参考 到多张纸； 插入项目符号，复选框等...
  • 提取文字，添加文本，按位置删除， 删除空间; 创建和打印分页小计； 在单元格内容和注释之间转换...
  • 超级滤镜 （将过滤方案保存并应用于其他工作表）； 高级排序 按月/周/日，频率及更多； 特殊过滤器 用粗体，斜体...
  • 结合工作簿和工作表; 根据关键列合并表； 将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

  • 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50％，并减少数百次鼠标单击！
officetab底部
按评论排序
最旧的
最新的
注释 (33)
还没有评分。 成为第一位评论！
克里斯
克里斯
该评论由网站上的主持人最小化
模块不保存在 .XlsX 中； 认为它与第 7 行有关；； “.xls”，文件格式：=xlNormal； 另外，如何修改以从连接的 3 个不同单元格中获取值？ 例如：名字、姓氏、日期； 在代码的第 6 行？
回复
0
0
肖恩
肖恩     克里斯
该评论由网站上的主持人最小化
将文件名变暗为字符串
将文件名 1 作为字符串变暗
将文件名 2 作为字符串变暗

路径 = "C:\Users\dt\Desktop\我的信息\"
文件名 = 范围（“A1”）
文件名 1 = 范围（“A2”）
文件名 2 = 范围（“A3”）
ActiveWorkbook.SaveAs 文件名:=路径 & 文件名 & "-" & 文件名1 & "-" & 文件名2 ".xls", FileFormat:=xlNormal
回复
0
0
担
担
该评论由网站上的主持人最小化
克里斯。 您可以将其连接到一个单独的单元格中，然后将该单元格引用为您的文件名值。
回复
0
0
阿拉纳
阿拉纳
该评论由网站上的主持人最小化
嗨，我的只会保存为路径和文件名。 我只希望从单元格中引用的文件名仅保存。 你能帮我么？
回复
0
0
格雷格
格雷格
该评论由网站上的主持人最小化
这很酷......但似乎有一个我不知道如何纠正的错误。 我在启用宏的模板中使用它。 我打开模板，进行更改/更新，按 F5 运行宏……然后……弹出“转到”对话框，希望我键入“参考”。但是，如果我按 ALT F11，然后按 F5，新的 .xls 文件按预期保存。 我总是需要打开 Visual Basic 模块来运行这个“保存”过程吗？
回复
0
0
肯·盖恩斯
肯·盖恩斯
该评论由网站上的主持人最小化
我有一个不想被覆盖的模板，因此要求用户将按日期命名的文件保存到其中一个字段中。 我不希望用户必须打开工具然后选择/运行宏。 他们也可以输入文件名。
回复
0
0
马丁小号
马丁小号     肯·盖恩斯
该评论由网站上的主持人最小化
您可以将 =NOW() 作为参数添加到单元格中的文件名中，然后再将其提取到宏中（并且还可以在页面的角落放置一个标准按钮，这样员工就不必打开任何工具
回复
0
0
离子D
离子D
该评论由网站上的主持人最小化
你们是救生员。 谢谢！
回复
0
0
开
开
该评论由网站上的主持人最小化
我需要另存为 .csv 文件。 我将如何更改它以使其另存为 .csv 文件？ Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim Filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub 提前感谢您的帮助！
回复
0
0
乔治
乔治     开
该评论由网站上的主持人最小化
我想我在这里做错了什么......

它在 Sheets("shitname").Select 行中给了我一个错误

当我将“shitname”命名为单元格 K10 时，可能我做错了什么

我想将工作表更改为另一个与单元格 K10 完全相同的工作表


' gicsel 宏
'
' 键盘快捷键：Ctrl+Shift+C
'
选择.复制
表（“debagat”）。选择
行（“8：8”）。选择
ActiveSheet.Paste
将路径变暗为字符串
路径 = "C:\cgxml\"
将文件名变暗为字符串
文件名 = 范围（“A8”）
Dim shitname 作为字符串
狗屎名 = 范围（“K10”）
Sheets("shitname").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filename:=Path & filename & ".xml", FileFormat:=xltxt, CreateBackup:=False
工作表（“总计”）。选择
ActiveCell.Offset(1, 0).EntireRow.Select
END SUB
回复
0
0
克里斯
克里斯
该评论由网站上的主持人最小化
这很好用......谢谢，但我需要另存为PDF......有什么想法吗？

谢谢

克里斯
回复
0
0
马丁小号
马丁小号     克里斯
该评论由网站上的主持人最小化
与上述相同，但将 ActiveWorkbook.SaveAs 替换为： "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=真
回复
0
0
瓦尔德马尔·佩尼亚
瓦尔德马尔·佩尼亚     马丁小号
该评论由网站上的主持人最小化
感谢您的反馈，对我帮助很大。
回复
0
0
基南
基南
该评论由网站上的主持人最小化
嗨，
如果我想保存活动工作表但使用工作表 1 单元格值，我应该添加什么？
回复
0
0
燕姿
燕姿
该评论由网站上的主持人最小化
请帮助...我已经设法做所有事情。 但它将文档保存到我的文档而不是指定的服务器中......



私有子 CommandButton1_Click()
将路径变暗为字符串
将 FileName1 调暗为字符串
将 FileName2 调暗为字符串
将 FileName3 调暗为字符串
将 FileName4 调暗为字符串
将 FileName5 调暗为字符串
路径 = "J:\Protection Services\Documents\Booysendal 安全"
文件名 1 = 范围（“A2”）
文件名 2 = 范围（“B2”）
文件名 3 = 范围（“C2”）
文件名 4 = 范围（“D2”）
文件名 5 = 范围（“E2”）
ActiveWorkbook.SaveAs 文件名:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
END SUB
回复
0
0
迈克尔·Z
迈克尔·Z     燕姿
该评论由网站上的主持人最小化
在安全之后和引号之前添加反斜杠... ...security\"
回复
0
0
珍妮丝·伯比奇
珍妮丝·伯比奇
该评论由网站上的主持人最小化
如果您只想定义文件名但每次保存时都可以选择文件路径怎么办？

您还可以为文件名指定多个单元格。 单元格也被合并。

每次保存到不同的文件路径

使用多个单元格作为文件名
回复
0
0
布鲁斯·麦金太尔
布鲁斯·麦金太尔
该评论由网站上的主持人最小化
好的，所以我使用工作表中的按钮让这个工作正常。 现在我希望它在初始另存为后正常保存。 这可以做到吗？ 使用相同的保存按钮？
谢谢布鲁斯
回复
0
0
拉吉夫
拉吉夫
该评论由网站上的主持人最小化
如何创建一个宏以将多个工作表与其单元格值保存为文件名
谢谢，
拉吉夫
回复
0
0
rad
rad
该评论由网站上的主持人最小化
大家好！

如何使用宏将重复输入保存在相同的单元格中，在其他单元格中？

在 sheet1 中，我在 A1、B1、C1 中输入数据，一天 n 次。 在 sheet2 中，我需要将所有这些记录保存在 A2、B2、C2、A3、B3、C3 等中。Tnx！
回复
0
0
艾哈迈德
艾哈迈德
该评论由网站上的主持人最小化
喜的朋友，
我有问题，如果有人可以帮助我，我会很高兴
我在驱动器“F”和文件夹“ABS”中有一个文件 - 我的文件名是“Listdata”
在我桌面上的 Excel 文件中，我希望单元格（4,4）从“ABS”表（1）和单元格（2,2）中检索数据
下面的代码
子宏1()
activesheet.Cells(4, 4).Value = "F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
END SUB
但它不能正常工作
谢谢朋友
回复
0
0
Tim
Tim
该评论由网站上的主持人最小化
嗨，我正在尝试使用此代码，但是当我尝试执行时，出现运行时 1004 错误，并将第 7 行突出显示为无效：ActiveWorkbook.SaveAs 文件名：=路径和文件名和“.xls”，文件格式：=xlNormal
我该如何解决这个问题？ 我用的是office 365
回复
0
0
布鲁纳
布鲁纳
该评论由网站上的主持人最小化
Se a célula de referencia estiver em uma outra planilha já aberta？ 科莫脸？
回复
0
0
耶洗别
耶洗别
该评论由网站上的主持人最小化
你好。 我很高兴它可以工作，但对我来说，它说“BASIC 运行时错误。Sob-procedure 或函数过程未定义。” 和箭头指示第 6 行。我该怎么办？
回复
0
0
莫雷纳
莫雷纳
该评论由网站上的主持人最小化
我有一个控制按钮，用于将具有特定名称的 PDF 保存到已经工作的特定位置，但我想修改代码，因为文件名是活动工作表的名称加上另一个工作表中特定单元格的值。 我怎么做？ 这就是我保存为 PDF 的内容：


私有子 CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 类型：=xlTypePDF，_
文件名：="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish：=否
Application.ScreenUpdating =真
END SUB

谢谢！
回复
报告
0
0
法亚兹
法亚兹
该评论由网站上的主持人最小化
谁能帮忙解决一下，如果单元格不为空白，我已经设法正确获得输出

私人子 Saveas()

暗淡的路径作为字符串

将文件名 1 作为字符串变暗



路径 = "C:\User\Compwork\"



filename1 = 路径 & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.关闭



END SUB



但是，我的问题是，如果单元格值为 NULL，我想保存文件名而不留空格，例如，如果 G6 值为空白，那么我喜欢输出“G4-H7 VTError”。
有没有办法解决这个问题？


谢谢。
回复
0
0
这里还没有评论
加载更多
留下你的意见
客人
以访客身份发帖
登录
×
评价此帖子：
重设
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护