在vba中，打开文件，提取文件名的命令是什么

dksteycx

在vba中，打开文件，提取文件名的命令是什么

todaynew

拷贝以下代码到公共模块中，然后调用getfolder即可。

Function GetFolder() As String
    Dim dlgOpen As FileDialog
    Dim i As Long, j As Long
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
    i = dlgOpen.SelectedItems.Count
    If i > 0 Then
        GetFolder = ""
        For j = 2 To i
            GetFolder = GetFolder & dlgOpen.SelectedItems(j) & ";"
        Next
        j = 1
        GetFolder = GetFolder & dlgOpen.SelectedItems(j)
    Else
        GetFolder = dlgOpen.InitialFileName '或GetFolder = CurDir() & "\"
    End If
    Set dlgOpen = Nothing
End Function

dksteycx

谢谢啦 太好了 我试试

dksteycx

todaynew 老师：

Dim dlgOpen As FileDialog
执行这一句的时候显示类型未定义，是为什么，是要引入哪个库啊

todaynew

todaynew 老师：

Dim dlgOpen As FileDialog
执行这一句的时候显示类型未定义，是为什么，是要引入哪个库啊
dksteycx 发表于 2009-4-23 19:59

不记得了，你对照这个实例算了：

dksteycx

哦我知道了

dksteycx

原来是要引用
Micosoft Office 1X.0 Object Library

sunwrsun

看看

玉树TMD临风

todaynew 发表于 2009-4-23 19:39
拷贝以下代码到公共模块中，然后调用getfolder即可。

Function GetFolder() As String

已用