使用vba遍历文件夹，批量修改文件类型

jieru_liu

于 2021-10-09 16:57:00 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/ljr_123/article/details/120674766

本文将介绍如何利用VBA（Visual Basic for Applications）脚本遍历特定文件夹，自动修改其中所有文件的类型。通过这段代码，你可以批量更改指定目录下的文件扩展名，实现自动化处理，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub files_saveas()

	# 定义文件选择框对象
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        If .Show = -1 Then
            selected_path = fd.SelectedItems(1)
        End If
    End With
    
    
	# 定义文件管理器对象
    'Dim fso As Object
    Dim fso As New FileSystemObject
    'Set fso = CreateObject("scripting.filesystemobject")
    Dim dest_folder
    
    dest_folder = selected_path & "\转换后文件\"
    If Not fso