在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
執(zhí)行這一句的時候顯示類型未定義，是為什么，是要引入哪個庫啊

todaynew

todaynew 老師：

Dim dlgOpen As FileDialog
執(zhí)行這一句的時候顯示類型未定義，是為什么，是要引入哪個庫啊
dksteycx 發(fā)表于 2009-4-23 19:59

不記得了，你對照這個實例算了：

dksteycx

哦我知道了

dksteycx

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

sunwrsun

看看

玉樹TMD臨風

todaynew 發(fā)表于 2009-4-23 19:39
拷貝以下代碼到公共模塊中，然后調用getfolder即可。

Function GetFolder() As String

已用