标题：CofficeDialog怎么用?

1楼

550074 发表于：2017/3/6 16:09:44

怎么用CofficeDialog选择文件? 能给个样例吗?

2楼

王锋发表于：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

共2 条记录, 每页显示 10 条, 页签: [1]