VBA另存指定工作表并改名

最新推荐文章于 2024-05-08 09:28:11 发布

小轩窗Candy

最新推荐文章于 2024-05-08 09:28:11 发布

阅读量4.2k

点赞数

分类专栏： Excel 文章标签： vba

本文链接：https://blog.csdn.net/weixin_43159995/article/details/118724300

版权

Excel 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

这段VBA代码演示了如何将Excel工作簿中的多个工作表复制并另存为独立的工作簿，具体操作是选择'人员档案','明细一','明细二','明细三'这四个工作表进行复制，然后保存为新的工作簿，文件名为'数据备份.xls'，位于当前工作簿的同一目录下。这个功能对于数据管理和备份非常实用。

摘要由CSDN通过智能技术生成

Sub sheet另存为工作簿()
    Sheets(Array("人员档案", "明细一", "明细二", "明细三")).Copy
   Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "/" & "数据备份.xls"
End Sub

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

小轩窗Candy

关注关注

0
点赞
踩
9

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

VBA Excel工作表重命名

BeijixingVBA的博客

04-29

1459

VBA Excel工作表重命名

VBA事件-自动另存重命名.xls

04-07

VBA事件-自动另存重命名.xls

参与评论您还未登录，请先登录后发表或查看评论

用VBA宏从一个工作薄复制内容到另一个工作薄

热门推荐

caz28的专栏

06-19

5万+

我们项目管理有两个工作薄，一个里面有多个表，每天建一个，记录当天项目，另一个工作薄，有多个表，其中一个是所有项目汇总。以前都是第一个工作薄一个表做完，再复制粘贴到第二个工作薄的汇总表中。写了个VBA宏完成这个工作。 Sub CopyToOtherBook() ' ' copyToOtheBook Macro ' 宏由 cuianzhu 录制，时间: 2013-6-18 ' '

VBA 创建一个工作簿

更多资料私我

04-08

4997

一、代码 Sub test() Dim wb As Workbook, sht As Worksheet '定义一个Workbook对象和一个Worksheet对象 Set wb = Workbooks.Add '新建一个工作簿 Set sht = wb.Worksheets(1) With sht .Name = "另存工资表" '修改第一张工作表的标签名称 .R

Excel VBA工作簿与工作表的操作

张博在读

05-13

2406

1.保存当前工作簿Public Sub保存当前工作簿() Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Save Set wb = Nothing End Sub如果是第一次保存工作簿，请使用SaveAs方法为该文件指定文件名Public Sub 另存工作簿() Dim wb As Workbook

【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返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。

将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称

冰封战戟

03-24

4139

将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称用法：打开excel文档，按ALT+F11调出VB编辑器，点插入模块，粘贴代码，按F5运行即可。 Sub saveworkbook() '将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 Dim sht As Worksheet '定义字符变量 Application.ScreenUpd...

工作簿中另存指定工作表并以单元格数据命名

11-01

代码实现的是从一个工作簿中单独保存其中一个工作表，并以单元格数据命名新工作簿名称

Excel Vba 文件移动到新位置，并重命名文件

webmastor的专栏http://www.anymoe.com

06-04

1681

'表格第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 ...

Excel-VBA应用：循环将多个工作表另存为PDF的宏代码

最新发布

06-25

在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，可以让我们自动化许多重复性的任务，例如在本例中的“Excel-VBA应用：循环将多个工作表另存为PDF的宏代码”。这个宏功能允许用户批量将工作...

VBA一键sheet页另存为Excel

07-03

VBA一键sheet页另存为Excel，批量拆分Excel sheet页为单个文档。

excel中的多个sheet自动另存为以sheet名称命名的excel文件(可执行文件)

12-28

excel中的多个sheet自动另存为以sheet名称命名的excel文件，用delphi开发，含源码。

Vba批量删除工作表，批量另存工作表为excel文件

qq_42539251的博客

07-10

2484

工作表的基础操作上一章我们学习了工作表的一些操作，这一章就来学习一下对工作簿的操作工作表和工作簿有什么区别呢？一个excel文件就是一个excel工作簿例如abc.xls，一个工作簿中包含1个到若干个工作表例如sheet1，也就是说工作簿是由工作表组成的。下面我们就来了解一下工作簿的操作打开工作簿 Application.displayAlerts=false//点击保存会有弹...

VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

BeijixingVBA的博客

05-08

956

VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

VBA 基础知识整理(单元格，表，工作簿)

weixin_42578747的博客

05-12

3586

'1、工作簿 ' Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿 ' Workbooks ("工作簿名称") ' ActiveWorkbook 正在操作的工作簿 ' ThisWorkBook '代码所在的工作簿 '2、工作表 ' 'Sheets("工作表名称") ...

打開EXCLE1 修改SHEET1的名字，另存新檔后ECEL2，SHEET1的名字也是被修改后的名字，用VBA如何表達

05-30

您可以使用以下 VBA 代码将 Excel 文件中的第一个工作表（Sheet1）重命名为 "NewName" 并将其另存为新文件： ``` Sub RenameSheetAndSaveAsNewFile() Dim originalFile As String, newFile As String Dim wb As ...

通过VBA将一个工作簿中的多个工作表拆分为多个工作簿,以工作表名称命名工作簿

wanglepingwangleping的博客

07-20

5799

前提：电脑上装有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

1261

【代码】VBA中新建工作部并以实时时间为尾缀命名工作簿和备份到指定位置的工作簿。

excel中用当天日期命名工作表名vba

dkink的专栏

05-30

1万+

excel 2007 abv