[已解决]Application.GetOpenFilename 方法 如何设置文件类型

爱疯

1. Sub test()
   
2. 
   
3.     '文件类型，是所有Excel支持打开的文件类型
   
4.     Application.Dialogs(xlDialogOpen).Show
   
5. 
   
6.     '除逐一列举，怎样让文件类型也是显示出所有Excel
   
7.     Application.GetOpenFilename "xls,*.xls,xlsx,*.xlsx,xlsm,*.xlsm"
   
8. 
   
9. End Sub

复制代码

谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-8-3 10:18

1.     Dim flt As FileDialogFilter
   
2.     For Each flt In Application.FileDialog(msoFileDialogOpen).Filters
   
3.         Debug.Print flt.Description, flt.Extensions
   
4.     Next

复制代码

这样可以获取默认支持的所有格式。

跳转到最佳答案楼层

hwc2ycy

如果是打开文件，可以调用系统的打开文件对话框，这样应该会有那些扩展名可选了。
Application.Dialogs(xlDialogOpen).Show

爱疯

hwc2ycy 发表于 2013-7-27 10:32
如果是打开文件，可以调用系统的打开文件对话框，这样应该会有那些扩展名可选了。
Application.Dialogs(xl ...

谢谢烟花！

1）动态选择文件
2）需要文件路径
3）不判断是不是EXCEL所支持打开的文件类型

不知要满足这几点，有没有好法子

开辆小富康

Application.GetOpenFilename "xls,*.xls*"

爱疯

开辆小富康 发表于 2013-7-27 16:28
Application.GetOpenFilename "xls,*.xls*"

谢谢小富康！

op = Application.GetOpenFilename("Excel常用类型,*.xl*")
这样，都是只有几种，远不如Application.Dialogs(xlDialogOpen).Show 属性支持的多。
所以，想知道能不能设置什么后，像Application.Dialogs(xlDialogOpen).Show 属性支持的那么多。

maicao1986

同求

hwc2ycy

1.     Dim flt As FileDialogFilter
   
2.     For Each flt In Application.FileDialog(msoFileDialogOpen).Filters
   
3.         Debug.Print flt.Description, flt.Extensions
   
4.     Next

复制代码

这样可以获取默认支持的所有格式。