lzth.net
当前位置:首页 >> vBA批量复制工作表并命名 >>

vBA批量复制工作表并命名

1、打开需要改名的工作薄,例如,需要5个工作表,则创建5个工作表.2、按下alt+F11组合键,进入VBA代码窗口.3、写入代码(如图),完成后保存退出.4、在工作表1中操作:工具-宏-宏.5、选择执行的宏名称,执行.则工作表名称全部修改成相应表格中A2单元格内容.6、如果要改成其它名称的话,把Sheets(x).Name = Sheets(x).Range("A2")中的Sheets(x).Range("A2")修改就可以.

放在thisbook的workbook的open方法下.dim n as integerdim namesnames=""for n=1 to worksheets().count-1 if worksheets(n).name like "(2)" then names=names&worksheets(n).name&char(13)next nmsgbox names

Sub yySAVEcopy() ChDrive Left(ThisWorkbook.Path, 1) ChDir ThisWorkbook.Path Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\TEST.xls" Application.DisplayAlerts = True End Sub' 以上是将文件存于当前的工作目录下,"\TEST.xls"即为可自订的[目标文件名称].

ActiveSheet.copy After:=Sheets(Sheets.Count)--------------你可以将要复制的表名放到一个位置程序可以读取这个单元格的文字作为要复制的表名

可以尝试使用excel文件合并拆分能手 4.8版,自动将多个工作簿或工作表合并,可以达到你想要的复制效果.

增加sheet的命令符为sheets.add 完整的表达式为Sheets.Add(Before, After, Count, Type)before或after可分别设置增加的sheet在某个工作表前或表后,一般不用同时指定.如果同时指定则不要造成矛盾.count,指增加的工作表个数.type指增加

下面这段代码是实现将excel表格插入到指定word模板的指定位置.可以参考一下.Sub 插入表格() Dim SS As String Dim wdoc As New Word.Application Dim 当前路径, 导出路径文件名, i, j Dim Str1, Str2, Str3 Dim tarr(1 To 100, 1 To 3)

sub 保存副本() for i=1 to 500 Thisworkbook.Savecopyas thisworkbook.Path & "副本" & i & ".xls" next end sub 将上面的代码复制到你的模块中运行,就会在你的文件所在文件夹中生成500个副本

新建: Sheets.add 重命名:activesheet.name="文件名" 具体的你录一段宏,然后按alt+F11进去看一下代码.不过,录制的宏中的代码重命名是这样的.比如你将sheet1改为:文件1,它的代码为: Sheets("Sheet1").name="文件1", 我用activesheet,表示当前工作表.

打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧需要存放名称的那个Sheet上双击,右侧空白处粘贴下面的代码.关闭VBA窗口.然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”.这样,在该Sheet的A列就会罗列出所有工作表名称.Sub fz() Dim i As Integer For i = 1 To Sheets.Count Range("A" & i).Value = Sheets(i).Name Next End Sub

gsyw.net | lstd.net | 9213.net | fpbl.net | jjdp.net | 网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com