用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

选择打开文件后并没有真实的把它打开。

如何安全地打开Excel文件请参见《高容错性地打开文件》

本文件实例请参见《从任一Excel中批量导出Txt文件》