VBA另存指定工作表并改名

最新推荐文章于 2024-04-29 20:21:42 发布
最新推荐文章于 2024-04-29 20:21:42 发布
阅读量4k 收藏 8
点赞数
分类专栏： Excel 文章标签： vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43159995/article/details/118724300
版权 
Sub sheet另存为工作簿()
    Sheets(Array("人员档案", "明细一", "明细二", "明细三")).Copy
   Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "/" & "数据备份.xls"
End Sub
小轩窗Candy
关注
  • 0
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【VBA研究】 另存为自动命名
03-12
公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。 公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。
工作簿中另存指定工作表并以单元格数据命名
11-01
代码实现的是从一个工作簿中单独保存其中一个工作表，并以单元格数据命名新工作簿名称
VBA 复制文件 并修改文件
晓月坠、宿云微~
03-26 1169
msgBoxAnswer = MsgBox(Prompt:="目标位置文件已经存在." & vbNewLine & _wkbk.Worksheets("辞書").Range("M14").Value = "ddd"Set wkbk = Workbooks.Open(file.Path) '先打开要复制的文件。", Buttons:=vbYesNo, Title:="复制文件")wkbk.Worksheets("辞書").Activate。'判断文件夹不为当前文件夹和其父文件夹。'复制文件夹下的所有文件。
【无标题】
最新发布
BeijixingVBA的博客
04-29 503
VBA批量复制Excel工作表。
将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称
冰封 战戟
03-24 3959
将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 用法：打开excel文档，按ALT+F11调出VB编辑器，点插入模块，粘贴代码，按F5运行即可。 Sub saveworkbook() '将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 Dim sht As Worksheet '定义字符变量 Application.ScreenUpd...
VBA事件-自动另存重命名.xls
04-07
VBA事件-自动另存重命名.xls
Excel Vba 文件移动到新位置，并重命名文件
webmastor的专栏http://www.anymoe.com
06-04 1586
'表格第1列为企业盲号，第二列为产品盲号，第三列是源文件地址，第4类用于存放生成的文件地址，第1行为标题行 Sub CopyStdFiles() Dim outPutFolder As String Dim filePath As String Dim companyFolder As String Dim productId As String Dim companyId As String Dim sourceFilePath As String ...
另存所有工作表为工作簿vba
06-20
"另存所有工作表为工作簿VBA"这个标题所描述的功能，就是通过编写VBA宏来实现这样的自动化操作。这不仅可以大大提高工作效率，减少手动操作的时间，而且确保了文件命名和保存的一致性。 以下是对这个VBA代码的详细...
EXcelVBA另存之后删除按钮及宏代码
08-09
EXcelVBA另存之后删除按钮及宏代码
通过VBA将一个工作簿中的多个工作表拆分为多个工作簿,以工作表名称命名工作簿
wanglepingwangleping的博客
07-20 5584
前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然后通过execl里面的开发工具， 输入以下运行代码，执行就行（拆分的工作簿在你设置的路径下）： Sub cfb() Dim m As Integer Dim sht, sht1 As Worksheet '按照需要将分出来的表分成多个工作簿 n = InputBox(“请输入excel的
VBA中新建工作部并以实时时间为尾缀命名工作簿和备份到指定位置的工作簿
qq_22836667的博客
09-01 1171
【代码】VBA中新建工作部并以实时时间为尾缀命名工作簿和备份到指定位置的工作簿。
VBA一键sheet页另存为Excel
07-03
VBA一键sheet页另存为Excel，批量拆分Excel sheet页为单个文档。
excel中的多个sheet自动另存为以sheet名称命名的excel文件(可执行文件)
12-28
excel中的多个sheet自动另存为以sheet名称命名的excel文件，用delphi开发，含源码。
excel中用当天日期命名工作表名vba
热门推荐
dkink的专栏
05-30 1万+
excel 2007 abv
vba：EXCEL按照空行分割工作表并保存为独立工作簿后按照指定表名重命名
wj的博客
05-09 1175
参考原代码： Sub 插入() On Error GoTo errHandler Dim i As Long '按照标题插入空行 For i = 2 To Range("A1").CurrentRegion.Count - 1 Selection.End(xlDown).Select Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(1, 0).Range("A1").Select Nex
Excel·VBA文件重命名、移动
hhhhh_51的博客
12-13 6745
获取文件夹下所有文件名，并重命名；按顺序重命名；文件夹下所有文件名繁体转简体；批量移动文件；批量创建文件夹
调试经验——联合使用批处理、VBA完成文件的自动重命名(Renaming files with batch and VBA)
预见未来to50的专栏
08-13 1012
今天花了大半天时间完成了一个自动化业务：文件的自动重命名。 本程序启动前，Windows批处理将提取工作文件夹下的所有source文件，并将文件名保存在Source_File_List.xls中。 然后，Windows批处理程序将启动本程序所在的工作簿。启动后执行以下操作： 1. 将Source_File_List.xls中的文件名复制到A列 2. 将公式模板行中的公式自动填充到所有行 3. 筛...
VBA 保存文件名和储存
feixiaoniu987的博客
07-08 2685
Sub 保存文件名() Range("A1:J20").Select aa = Mid(ActiveWorkbook.Name, 1, 22) '切片文件名字符 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\excel-HONG\" & aa & ".pdf" _ , Quality:=xlQualityStandard, ...
Excel VBA:将多个工作表保存为新文件
WHYbeHERE的博客
07-25 2880
Excel VBA:将多个工作表保存为新文件
vba合并指定工作表
08-13
VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office桌面应用程序的编程语言。要合并指定的工作表，我们可以使用VBA编写一个宏来实现。 首先，在Excel中打开Visual Basic编辑器，点击“开发工具”选项卡中的“宏”按钮，然后选择“宏录制器”来开始录制宏。 接下来，选择要被合并的工作表。例如，我们选择“Sheet1”和“Sheet2”这两个工作表。 然后，回到宏录制器窗口，点击“停止录制”按钮，以停止录制宏。 现在，我们可以在VBA编辑器中查看刚刚录制的宏代码。在宏代码的开头，VBA记录了当前活动的工作簿对象，以及选定的工作表对象。 要合并指定的工作表，我们可以通过将选定工作表的内容复制到活动工作表中来实现。我们可以使用“PasteSpecial”方法将合并的数据以值的形式粘贴到活动工作表的指定位置。 下面是一个示例代码的伪代码，用于合并名为“Sheet1”和“Sheet2”的两个工作表到名为“MasterSheet”的工作表中。 Sub MergeWorksheets() Dim ws As Worksheet Dim masterSheet As Worksheet '设置活动工作簿和工作表对象 Set masterSheet = ThisWorkbook.Sheets("MasterSheet") '将Sheet1的内容复制到MasterSheet Set ws = ThisWorkbook.Sheets("Sheet1") ws.UsedRange.Copy masterSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues '将Sheet2的内容复制到MasterSheet Set ws = ThisWorkbook.Sheets("Sheet2") ws.UsedRange.Copy masterSheet.Cells(ws.UsedRange.Cells(1, 1).Row, 1).PasteSpecial Paste:=xlPasteValues '清除剪贴板 Application.CutCopyMode = False End Sub 通过运行上述宏代码，我们可以将名为“Sheet1”和“Sheet2”的工作表中的数据合并到名为“MasterSheet”的工作表中。 注意，在实际使用中，您可能需要更改代码以满足您的具体需求，例如更改工作表的名称或目标合并单元格的位置。 希望以上内容对您有所帮助！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值