Excel 请问怎样用VBA重命名文件
作者&投稿:赖池 (若有异议请与网页底部的电邮联系)
name a & b as a & c
不改变原始表格数据,打印时自动添加打印日期。
1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Sub rename()() Name "<工作簿路径>\<旧名称>.xls" As "<工作簿路径>\<新名称>.xls"End Sub。
3、我们知道在excel中保存一个文件为另一个文件时可以重新命名,save as 就是本例中as 代码的作用。name是命名函数,所以name as 就是将文件重命名。
4、不过需要注意的是,name改名修改的文件是未打开文件,如果是打开的文件直接运行代码的话,程序会报错。
5、文件的名称需要使用双引号包括起来,需要填写完整的路径和文件名称,包括文件的后缀名。大家需要注意文件的后缀名是需要通过系统设置来显示的。
6、最后,使用name重命名文件只要是符合未打开这一要素,就可以改名任何文件,包括但不限于excel的文件。当然后缀也可以修改,但是会以默认的关联程序打开。
Sub 修改文件名()
On Error Resume Next
原文件名 = "D:\成绩\高一第一学期成绩.xls"
新文件名 = "D:\成绩\高中学期成绩.xls"
Name 原文件名 As 新文件名
MsgBox "文件修改成功"
End Sub
'已测试通过'
'说明:本例是将D盘根目录下的 成绩文件夹中 的 高一第一学期成绩.xls名 修改成 高中学期成绩.xls.
'对于其它格式的文件同样适用'
拔宰整蛋: 1、首先打开一个工作样表作为例子. 2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Sub rename() Name "<工作簿路径>\<旧名称>.xls" As "<工作簿路径>\<新名称>.xls"End Sub. 3、在excel中...
兴平市15734422445: Excel 请帮助,怎么VBA批量更改文件名 - ?
拔宰整蛋: 附件 VBA 递归算法 批量提取 & 修改文件名 代码如下:点击选择文件夹 按钮 选择文件夹, 在C 列输入新文件名后, 点击 重命名按钮 批量重命名1234567891011121314151617181920212223242526272829303132333435363738394...
兴平市15734422445: excel 工作表标签批量改名 怎么操作? - ?
拔宰整蛋: 方法一、打开excel表格,找到下面的工作表sheet1、sheet2、sheet3栏,选择要改名的工作表.比如sheet1,单击“格式→工作表→重命名”命令.这时工作表的标签上名字将被反白显示.然后在标签上输入新的表名即可.方法二、或者你直接...
兴平市15734422445: VBA如何新建一个excel,并复制进去内容,并对sheet、excel进行命名? - ?
拔宰整蛋: 新建: Sheets.add 重命名:activesheet.name="文件名" 具体的你录一段宏,然后按alt+F11进去看一下代码.不过,录制的宏中的代码重命名是这样的.比如你将sheet1改为:文件1,它的代码为: Sheets("Sheet1").name="文件1", 我用activesheet,表示当前工作表.
兴平市15734422445: 如何用excel的VBA来修改工作表名称 - ?
拔宰整蛋: Sub test() For i = 1 To ThisWorkbook.Worksheets.Count Sheets(i).Name = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "【") - 1) Next End Sub 这个通过验证,可以实现了.
兴平市15734422445: VBA 如何修改Excel工作表的名称! - ?
拔宰整蛋: Sheets("Sheet1").Name="工作表1" Sheets("Sheet2").Name="工作表2" Sheets("Sheet3").Name="工作表3" 不明白可以再问
兴平市15734422445: 如何批量修改多张Excel表中的sheet名? - ?
拔宰整蛋: '近要求运行下面VBA代码. Sub ReNameSheet() Dim f Dim wb As Workbook '先在桌面建立一个名为EXCEL文件的文件夹,将要修改表名的EXCEL都放到这个文件夹中. f = Dir("c:\documents and settings\administrator\桌面\EXCEL文件\*.xls...
兴平市15734422445: 用vba新建的excel文档如何重命名两个sheet名 - ?
拔宰整蛋: sheets(1).name = "A" sheets(2).name = "B
兴平市15734422445: VBA 如何修改Excel工作表的名称! - ?
拔宰整蛋: 那是因为你的整个表格的名字里面有字符啦.你把你的表格的名字里的字符去掉了后.就不会出现上面的情况了啦.
兴平市15734422445: excel vba单元格命名 - ?
拔宰整蛋: 选中该区域,在左上角,即A列上面那个命名框输入名字,回车,OK