VB CommonDialog控件的用法

VB CommonDialog控件的用法

具体代码如下

Dialogbox.DialogTitle = "选定要打开的Excel文件"

Dialogbox.InitDir = App.Path

Dialogbox.Filter = "Xls文件(*.Xls)|*.Xls"

Dialogbox.ShowOpen

If Dialogbox.FileName = "" Then

MsgBox "请选择EXCEL文件"

Exit Sub

End If

GetExcelName = Dialogbox.FileName

ViewText.Text = GetExcelName

部件中添加 MicroSoft Common Dialog control 6.0