⽤ExcelVBA选择⽂件、打开⽂件介绍如何⽤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⽂件请参见《》
本⽂件实例请参见《》