用Excel VBA选择文件、打开文件

50 阅读 0 评论 33 点赞

我是靠谱客的博主懵懂外套，最近开发中收集的这篇文章主要介绍用Excel VBA选择文件、打开文件，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

介绍如何用 VBA选择文件和用 VBA打开文件。
点击打开文件会弹出一个windows文件打开对话框，在EXCEL中VBA怎么实现这个功能？

复制内容到剪贴板

代码:


Sub SelectFile()
    Dim FileName As Variant                        
     '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
    Dim sFileName As String                         '从FileName中提取的文件名
    Dim sPathName As String                         '从FileName中提取的路径名
    Dim aFile As Variant                            '数组，提取文件名sFileName时使用
    Dim ws As Worksheet                             '存储文件路径名和文件名的工作表
    Set ws = Worksheets("Sheet1")                   '设置工作表
    FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
    '调用Windows打开文件对话框
    If FileName <> False Then                       '如果未按“取消”键
        aFile = Split(FileName, "/")                '在全路径中，以“/”为分隔符，分成数据
        sPathName = aFile(0)                        '取盘符
        For i = 1 To UBound(aFile) - 1              '循环合成路径名
            sPathName = sPathName & "/" & aFile(i)
        Next
        sFileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
        ws.Cells(1, 2).Value = sPathName            '保存路径名
        ws.Cells(2, 2).Value = sFileName            '保存文件名
    End If
End Sub