菜鸟问题!VBA怎么获取文件路径

[tq2cwy1314]

我想知道用VBA怎么得到一个文件的路径,不用CommonDialog实现.请ACCESS高手告诉我下,最好能有代码,谢谢

[OracleRoob]

CommonDialog需要单独引用。

[wwwwb]

详细一点，你要得到什么文件的路径？

[wwwwb]

ACCESS版本？

[tq2cwy1314]

还要说一句,我不是用的VB6,很多控件没有

[tq2cwy1314]

对啊,是ACCESS,就是想点一个按钮的时候弹出一个文件选择框,当我选定文件的时候,文件的全路径要记录在一个TEXT框里

[wwwwb]

ACCESS版本？
2003以下要用控件　OR　API

[tq2cwy1314]

我就是想知道怎么用啊,我用的是ACCESS 2003,

[wwwwb]

Set dlgo = Application.FileDialog(1)
With dlgo
.AllowMultiSelect = False
.Show
End With
If dlgo.SelectedItems.Count > 0 Then
Me![SFile] = dlgo.SelectedItems(1)
End If

[tq2cwy1314]

为什么我在定义一个FileDialog的时候会报错?
dim fd as FileDialog
是否要添加一个引用到库?

[wwwwb]

用我的代码不用引用

[tq2cwy1314]

谢谢,不过不知道是不是我的ACCESS有问题,运行不了.报错在 dlgo =这个位置,由于是日文操作系统,大概的意思是控件或者字段什么不能找到的意思吧....

[tq2cwy1314]

还想问一下
Set fd = Application.FileDialog(1)

Dim vrtSelectedItem As Variant

With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

MsgBox "The path is: " & vrtSelectedItem

Next vrtSelectedItem

Else
End If
End With

Set fd = Nothing
这段代码有问题么?

[tq2cwy1314]

问题已经解决,谢谢.把dlgo定义成一个object类型的变量就可以了