Office中国论坛/Access中国论坛

标题: 为什么我用FileDialog选择文件，可单击文件，在文件名文本框中不会显示文件名? [打印本页]

作者: 网络蜘蛛 时间: 2013-4-22 09:10
标题: 为什么我用FileDialog选择文件，可单击文件，在文件名文本框中不会显示文件名?
本帖最后由网络蜘蛛于 2013-4-22 09:15 编辑

Dim fd As FileDialog
Dim vrtSelectedItem As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)

   With fd
'如果还要增加则继续用Add，把顺序，即最后一个参数加上去即可。
      .Filters.Add "Excel文件", "*.xlsm", 1
         If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                  Me.txtFile = vrtSelectedItem
            Next vrtSelectedItem
......

运行程序弹出对话框后单击文件，可在文本框中不会显示文件名，双击才能正常运行程序，请问是怎么回事？

作者: t小宝 时间: 2013-4-22 09:37
确实不显示，但是确定后能返回结果，参数为 msoFileDialogSaveAs 时显示

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)