以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助老师,同时导入.xls和.xlsx  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69097)

--  作者:雁过不留痕8
--  发布时间:2015/5/30 10:47:00
--  求助老师,同时导入.xls和.xlsx
如图,导入excel文件,有两种文件后缀,.xls和.xlsx,怎样能两种格式都选择呢,以下代码不能实现,望指导
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls|Excel文件|*.xlsx"

Dim fl As String
If dlg.ShowDialog = DialogResult.OK Then
    fl = dlg.FileName
   

End If

--  作者:Bin
--  发布时间:2015/5/30 10:57:00
--  

dlg.Filter = "Excel文件|*.xls|Excel2007文件|*.xlsx"

或者

dlg.Filter = "Excel文件|*.xls;*.xlsx"



--  作者:qqking
--  发布时间:2015/5/30 11:00:00
--  
dlg.Filter = "Excel文件|*.xls;*.xlsx"