VBA打开文件选择框、取得文件全路径与文件名

最新推荐文章于 2024-03-22 09:31:44 发布

原创最新推荐文章于 2024-03-22 09:31:44 发布 · 5.2k 阅读

19 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #Excel #编程 #Windows #C

Vba 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码通过打开文件选择对话框来获取Excel文件的完整路径及文件名。示例代码展示了如何使用Application.GetOpenFilename方法，并通过一系列字符串操作来分离并保存文件路径。

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

在VBA编程中我们，常常需要手动打开文件选择框、取得文件全路径与文件名，下载这个例子可以实现这些功能，代码如下：


'VBA打开文件选择框、取得文件全路径与文件名
Sub selectExcelfile()
    Dim fileNameObj As Variant
    Dim aFile As Variant                            '数组，提取文件名fileName时使用

     '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
    Dim fullName As String
    Dim fileName As String                         '从FileName中提取的路径名

    Dim i As Integer

    fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
    '调用Windows打开文件对话框
    If fileNameObj <> False Then                       '如果未按“取消”键
        aFile = Split(fileNameObj, "\")

        fileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
        fullName = aFile(0)
        For i = 1 To UBound(aFile)                 '循环合成全路径
            fullName = fullName & "\" & aFile(i)
        Next

    Else
        MsgBox "请选择文件"
        End
    End If
    '得到Excel全路径
    allExcelFullPath = fullName
    '得到Excel文件名
    workbookName = fileName
End Sub