大家来帮一下,打开当前路径.

nzlwc_fsb

本人是大个菜了,大家帮忙修改一下：把该文件自制到某一文件夹下，运行点击“浏览”按健后出现的是当前路径，而不是根路径。

fan0217

这个也许会对你有所帮助的：http://www.office-cn.net/forum.php?mod=viewthread&tid=36741&replyID=&skin=1

fan0217

Function GetFileName() As String  

'需要引用Microsoft Office 11.0 Object Library

Dim dlgOpen As filedialog


Set dlgOpen = Application.FileDialog(4)
    With dlgOpen

        .InitialFileName = CurrentProject.path
        .AllowMultiSelect = False
        .Show


    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""
    End If
Set dlgOpen = Nothing
End Function

[此贴子已经被作者于2006-3-1 12:51:15编辑过]

nzlwc_fsb

3楼的朋友,有问题的,不能.

fan0217

已经修改了，再试试！

需要引用Microsoft Office 11.0 Object Library

nzlwc_fsb

2楼的朋友,

Set dlgOpen = Application.FileDialog(DialogType)

怎样修改?

fan0217

需要引用Microsoft Office 11.0 Object Library

nzlwc_fsb

可我的是2000的,只有Microsoft Office 9.0 Object Library,

能在我的文件里修改一下吗？

skylark

以下是引用nzlwc_fsb在2006-3-1 20:27:00的发言：


可我的是2000的,只有Microsoft Office 9.0 Object Library,

能在我的文件里修改一下吗？

我以为9.0就可以了,朋友你能重新引用这个9.0试一下吗? 谢谢!

nzlwc_fsb

Set dlgOpen = Application.FileDialog(DialogType)

还是这个错误