Office中国论坛/Access中国论坛

标题: 在vba中，打开文件，提取文件名的命令是什么 [打印本页]

作者: dksteycx 时间: 2009-4-23 19:31
标题: 在vba中，打开文件，提取文件名的命令是什么
在vba中，打开文件，提取文件名的命令是什么

作者: todaynew 时间: 2009-4-23 19:39
拷贝以下代码到公共模块中，然后调用getfolder即可。

Function GetFolder() As String
Dim dlgOpen As FileDialog
Dim i As Long, j As Long
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
      .AllowMultiSelect = True
      .Show
End With
i = dlgOpen.SelectedItems.Count
If i > 0 Then
      GetFolder = ""
      For j = 2 To i
         GetFolder = GetFolder & dlgOpen.SelectedItems(j) & ";"
      Next
      j = 1
      GetFolder = GetFolder & dlgOpen.SelectedItems(j)
Else
      GetFolder = dlgOpen.InitialFileName '或GetFolder = CurDir() & "\"
End If
Set dlgOpen = Nothing
End Function

作者: dksteycx 时间: 2009-4-23 19:50
谢谢啦太好了我试试

作者: dksteycx 时间: 2009-4-23 19:59
todaynew 老师：

Dim dlgOpen As FileDialog
执行这一句的时候显示类型未定义，是为什么，是要引入哪个库啊

作者: todaynew 时间: 2009-4-23 21:11

todaynew 老师：

Dim dlgOpen As FileDialog
执行这一句的时候显示类型未定义，是为什么，是要引入哪个库啊
dksteycx 发表于 2009-4-23 19:59

不记得了，你对照这个实例算了：
[attach]37471[/attach]

作者: dksteycx 时间: 2009-4-23 21:16
哦我知道了

作者: dksteycx 时间: 2009-4-23 21:17
原来是要引用
Micosoft Office 1X.0 Object Library

作者: sunwrsun 时间: 2017-5-30 00:09
看看

作者: 玉树TMD临风 时间: 2022-12-3 20:17

todaynew 发表于 2009-4-23 19:39
拷贝以下代码到公共模块中，然后调用getfolder即可。

Function GetFolder() As String

已用

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