打开文件对话框怎样实现

105037

在VBA窗体中，添加一个按钮，按钮的功能是打开文件对话框，然后查找文件，选定后，返回窗体，得到文件名。(这个文件事先不一定确定，需查找）。在金字塔的VBA中，能出现这个打开文件对话框吗？怎样实现？（用软件说明中Cofficdialog这个提供的方法，好像没反应）

105037

有方法吗

VIP客服01

Sub Test()
    Set openfile = CreateObject("WWSCommon.FileDialogEx")
    openfile.Title = "文件框测试"
    openfile.DisplayMode = TRUE
    openfile.Filter = "全部文件(*.*) |*.*||"

    if openfile.DoModal() <> 1 Then
        Exit Sub
    End If

    strPath = openfile.GetPathName()
    MsgBox strPath

End Sub

你看看这里的范例去执行能否弹出对话框