用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文件》