VBS代码
Sub OnClick(Byval Item)
Dim objText
Dim objDialog
Dim strLoadFile

Set objText = ScreenItems("StaticText_FileName")

Set objDialog = CreateObject("MSComDlg.CommonDialog")

'objDialog.CancelError=True

'On Error Goto ErrHandler

objDialog.Filter = Excel文件(*.xls)*.xls"
objDialog.FilterIndex = 1
objDialog.InitDir= "D:"
objDialog.MaxFileSize = 256

objDialog.ShowOpen
'* 对话框不能保证在前

strLoadFile = objDialog.FileName
objText.Text = strLoadFile
HMIRuntime.Trace "Selected File (Full Path) is:" & vbCrLf & strLoadFile & vbCrLf

End Sub