【VBA】获取文件名、文件夹名

GY_五年

已于 2022-04-06 09:09:43 修改

阅读量1w

点赞数

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

于 2022-02-15 13:05:50 首次发布

本文链接：https://blog.csdn.net/qq_41127218/article/details/122942133

版权

Excel 专栏收录该内容

6 篇文章 2 订阅

订阅专栏

这段VBA代码定义了三个函数：msoFile、msoFolder和saveFilename，分别用于打开文件选择对话框获取单个文件名、文件夹选择对话框获取文件夹路径以及指定文件类型的保存对话框。这些函数可以方便地在Excel中实现用户交互，选择文件或保存文件到特定位置。

摘要由CSDN通过智能技术生成

获取文件名

Function msoFile(Optional filename)

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .InitialFileName = filename
        .Filters.Add "TXT Files", "*.csv;*.txt"
        .Filters.Add "All Files", "*.*"
        .ButtonName = "OK"
        .Show
    
        FileN = .SelectedItems(1)
        If FileN = "" Then: Exit Function
        msoFile = FileN
        
    End With

End Function

获取文件夹名

Function msoFolder(Optional filename)

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .InitialFileName = filename
        .ButtonName = "OK"
        .Show
    
        FileN = .SelectedItems(1)
        If FileN = "" Then: Exit Function
        msoFolder = FileN
    End With

End Function

指定文件类型保存至文件夹

Function saveFilename(Optional filename)

    FileN = Application.GetSaveAsFilename(filename, filefilter:="Excel Files (*.xlsm), *.xlsm")
    If FileN = "False" Then: Exit Function
    saveFilename= FileN

End Function