Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2135|回复: 4

[已解决]求助将单元格的内容另存为工作薄名称的VBA代码

[复制链接]
发表于 2017-4-8 08:20 | 显示全部楼层 |阅读模式
本帖最后由 安全网 于 2017-4-12 12:28 编辑

求助将B2&F2单元个的内容作为另存为新的工作薄的名称,并且直接存到指定的文件夹内的VBA代码
最佳答案
2017-4-12 12:01
将thisworkbook.path改成你需要保存的路径。
  1. Sub aaa()
  2. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & [b2] & [f2] & ".xls"
  3. End Sub
复制代码

工作簿1.rar

1.72 KB, 下载次数: 1

发表于 2017-4-8 08:52 | 显示全部楼层
activeworkbook.saveas filename:=path&"/"&工作表1内的A3单元格
回复

使用道具 举报

 楼主| 发表于 2017-4-8 10:03 | 显示全部楼层
Excel学徒123 发表于 2017-4-8 08:52
activeworkbook.saveas filename:=path&"/"&工作表1内的A3单元格

好像是不行啊

回复

使用道具 举报

发表于 2017-4-12 12:01 | 显示全部楼层    本楼为最佳答案   
将thisworkbook.path改成你需要保存的路径。
  1. Sub aaa()
  2. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & [b2] & [f2] & ".xls"
  3. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-4-12 12:27 | 显示全部楼层
大灰狼1976 发表于 2017-4-12 12:01
将thisworkbook.path改成你需要保存的路径。

谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-19 06:28 , Processed in 0.310216 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表