Office中国论坛/Access中国论坛

标题: 【Excel VBA】FileDialog 用法之 打开对话框获得文件夹路径 [打印本页]
作者: 盗梦    时间: 2013-7-26 11:24
标题: 【Excel VBA】FileDialog 用法之 打开对话框获得文件夹路径
本帖最后由 盗梦 于 2013-7-26 11:32 编辑

【Excel VBA】FileDialog 用法之 打开对话框获得文件夹路径

FileDialog 可以根据后面的参数，打开通用对话框

  2. Dim strPath As String
  3. Dim MyFileDialog As FileDialog
  4. Set MyFileDialog = Application.FileDialog(msoFileDialogFolderPicker)

  6.     If MyFileDialog.Show = -1 Then
  7.             '使用循环显示选取文件的路径和名称
  8.         For Each vrtSelectedItem In MyFileDialog.SelectedItems
  9.             strPath = vrtSelectedItem
  10.         Next
  11.     End If

  13. MsgBox strPath
复制代码
这段代码，可以打开一个对话框，选择文件夹，获得选择的文件夹的路径




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3