http://topic.csdn.net/t/20050606/09/4061737.html
用Excel VBA选择文件、打开文件
介绍如何用
VBA选择
文件和用
VBA打开
文件。
点击打开文件会弹出一个windows文件打开对话框,在EXCEL中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