Office中国论坛/Access中国论坛

标题: VBA For Excel 中如何建立一个文件打开对话框 [打印本页]

作者: mlqxj35674 时间: 2006-3-9 22:22
标题: VBA For Excel 中如何建立一个文件打开对话框
如何建立一个文件打开对话框FileDialog，顺便问下，如何给解决问题的人给分，今天第1次来这里

[此贴子已经被作者于2006-3-9 14:28:50编辑过]

作者: mlqxj35674 时间: 2006-3-9 23:59
人气不旺，晚上再来

作者: mlqxj35674 时间: 2006-3-10 06:45
问题已经解决

作者: NARYA 时间: 2006-4-28 01:55
拿来交流一下啊

作者: boboy 时间: 2006-5-8 18:20
dingdingding

作者: leung 时间: 2006-5-9 01:08
怎么解决的？

作者: BOREQAS 时间: 2007-6-30 22:05
小弟刚来，不知这贴是哪年的了，先顶一下再说：

Sub aTest()
  Dim fdg As FileDialog
  Dim filename$
  Set fdg = Application.FileDialog(msoFileDialogOpen)
  With fdg
.Filters.Clear
.Filters.Add "EXCEL文件", "*.XLS"
filename = .Show
For Each CC In .SelectedItems
MsgBox CC
Next
  End With
End Sub

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