vba将文件另存为指定文件夹，VBA秘籍，轻松实现文件另存为指定文件夹，告别繁琐操作！

本文目录导读：

1. VBA代码实现文件另存为指定文件夹
2. VBA代码解析

在日常工作与学习中，我们经常需要将文件另存为指定文件夹，以便于管理和查找，手动进行这一操作往往既耗时又费力，别担心，今天我要向大家分享一个VBA秘籍，轻松实现文件另存为指定文件夹，让你告别繁琐操作，提高工作效率！

图片来源于网络，如有侵权联系删除

VBA代码实现文件另存为指定文件夹

1、打开Excel，按下“Alt + F11”键，打开VBA编辑器。

2、在VBA编辑器中，找到“插入”菜单，选择“模块”，创建一个新模块。

3、在新模块中，复制并粘贴以下VBA代码：

Sub SaveAsSpecificFolder()
    Dim myPath As String
    Dim myFile As String
    Dim myExtension As String
    Dim myFullFile As String
    
    ' 指定文件夹路径
    myPath = "D:我的文件夹"
    
    ' 指定文件名
    myFile = "我的文件名"
    
    ' 指定文件扩展名
    myExtension = ".xlsx"
    
    ' 构建完整的文件路径
    myFullFile = myPath & myFile & myExtension
    
    ' 使用GetSaveAsFilename函数获取保存路径
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel 文件", "*.xlsx"
        .Show
        If .SelectedItems.Count > 0 Then
            ' 如果用户选择了保存路径，则另存为指定文件夹
            myFullFile = .SelectedItems(1)
        Else
            ' 如果用户取消了操作，则退出宏
            Exit Sub
        End If
    End With
    
    ' 另存为指定文件夹
    ActiveWorkbook.SaveAs Filename:=myFullFile
End Sub

4、保存并关闭VBA编辑器。

5、在Excel中，按下“Alt + F8”键，选择“SaveAsSpecificFolder”宏，运行即可实现文件另存为指定文件夹。

图片来源于网络，如有侵权联系删除

VBA代码解析

1、myPath变量用于存储指定文件夹的路径。

2、myFile变量用于存储文件名。

3、myExtension变量用于存储文件扩展名。

4、myFullFile变量用于构建完整的文件路径。

5、使用Application.FileDialog函数创建一个保存对话框，允许用户选择保存路径。

图片来源于网络，如有侵权联系删除

6、使用SelectedItems(1)获取用户选择的保存路径。

7、使用ActiveWorkbook.SaveAs方法将文件另存为指定文件夹。

通过以上VBA秘籍，你可以在Excel中轻松实现文件另存为指定文件夹，大大提高工作效率，赶快动手试试吧！

标签： #vba另存为指定文件名