以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  CofficeDialog怎么用?  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=148694)
--  作者：550074
--  发布时间：2017/3/6 16:09:44
--  CofficeDialog怎么用?
怎么用CofficeDialog选择文件?  能给个样例吗?
--  作者：王锋
--  发布时间：2017/3/6 21:05:29
--  

Sub Test()
   Set openfile = CreateObject("WWSCommon.FileDialogEx")
   openfile.Title = "文件框测试"
 openfile.DisplayMode = TRUE
 openfile.Filter = "全部文件(*.*) |*.*||"
 
 if openfile.DoModal() <> 1 Then
  Exit Sub
 End If 
 
 strPath = openfile.GetPathName()
 MsgBox strPath

End Sub