vba更改excel文件名(vba修改)

1. vba修改

'把下面的代码放到任意一个PPT的模块里，按提示做简单修改（变量定义中的2处），运行就可以了。

sub ChgTheme()

'模板名称，及要修改母版的PPT所在的文档

Dim strThemeName As String, strFolder As String

strThemeName = "D:\Program Files\Microsoft Office\Templates\2052\ContemporaryPhotoAlbum.potx" '母版，修改成自己的吧

strFolder = "C:\Users\lx\Desktop\PPTStudy" '要修改的PPT，修改成自己的吧

Dim pres As Presentation

Dim Fs, oFolder, f1, FColloll, s

Set Fs = CreateObject("Scripting.FileSystemObject")

Set oFolder = Fs.GetFolder(strFolder)

Set FColl = oFolder.Files

For Each f1 In FColl

If f1 Like "*.pptx" Or f1 Like "*.pptm" Then '只对pptx文档处理

If ActivePresentation.Name = f1.Name Then '将主题或设计模板应用于当前演示文稿。

ActivePresentation.ApplyTheme strThemeName

ActivePresentation.Save

ElseIf Left(f1.Name, 2) <> "~$" Then '将主题或设计模板应用于指定的演示文稿

Set pres = Presentations.Open(FileName:=f1, WithWindow:=msoFalse)

pres.ApplyTheme strThemeName

pres.Save

pres.Close

End If

End If

Next

Set pres = Nothing

Set FColl = Nothing

Set oFolder = Nothing

Set Fs = Nothing

End Sub

2. vba修改sheet名

vba中 用sheet1,2,3来表示是不保险的，如果将sheet1删除再创建一个表单后，新表单默认叫sheet4，再在VBA中调用sheet1就会出错。请用下面过程选中需要表单： Sub 遍历工作表() Dim a As String, n As Integer For n = 1 To Worksheets.Count a = Sheets(n).Name Sheets(n).Select '当然这里可加上判断语句，根据需要选中sheet Next n End Sub

3. vba 修改文件夹名

1.xls

xls是一个特有的二进制格式，核心结构属于复合型文档类型，是2003版本Office Microsoft Office Excel工作表保存的默认格式。新建Excel表格保存的后缀名为“.xls”。

2.xlsx

xlsx的核心结构是XML类型结构，采用了XML的压缩方式，使其占用的空间更小，xlsx中最后一个x的意义就在于此，它是Excel2007版本的文件。新建Excel表格默认保存的后缀名为“.xlsx”。

3.xlsm

xlsm同xlsx一样是属于07年版本的保存文件。一般情况下Excel不会自动启用“宏”，但是老师们在使用过程中可能会需要用到宏功能，在这个时候文件的格式就需要选择xlsm，这样才能够保存表格中的VBA代码，它的后缀名是“.xlsm”。

4. vba改文件名字

1、桌面上第一章中的每个工作簿名称放置到工作表中。

2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。

3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块。

4、使用do~~loop循环语句，在VBA中输入。

5、返回名为“第一章目录”的工作簿中，按alt+f8组合键，弹出宏对话框。

6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式即可。

5. vba修改文件扩展名

arx 全名 advanced runtime extention，是使用 C++语言结合 MFC 库开发 AutoCAD 应用的 CAD 二次开发方式 比起 Visual Lisp 和 VBA 方式来，他的功能更加强大，代码运行速度最快（代码和 cad 基础代码在同一个层次类运行）适合大程序的开发，但是开发难度可想而知也相对较大。

有这种方法开发的文件就有 arx 的后缀 在 CAD 中可以使用 appload 命令打开对话框加载，使用和 lsp 文件加载之后一样。你必须知道 arx 文件具体定了些什么函数或者 CAD 命令