access如何利用vba获取选定的文件路径？

forever10r

可能标题描述得不够明确，我把完整的需求发给各位大神帮忙看下我这个需求怎么实现：

1.运行vba时弹出文件选择窗口

2.利用选择窗口选定mdb文件

3.获取选定了的mdb文件的路径及文件名信息

4.在后面的vba操作中调用该信息实现之后的acImport功能

在下新手，1、2、3步百度了好几天也不太知道应该如何实现，请大家帮忙，谢谢！

forever10r

帮帮忙啊~~~~~~谢谢大家！！！

amesman

Sub SelectFile()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        '单选择
        .Filters.Clear

        '清除文件过滤器
        .Filters.Add "Excel Files", "*.mdb;*.accdb"
        .Filters.Add "All Files", "*.*"
        '设置两个文件过滤器
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "提示"
        End If
    End With

End Sub文件名用字符处理函数处理后即可获取。。。。。。