|
- Private Sub 打开文件对话框()
- Dim i As Byte
- 可选择的文件 = "记事本文件, *.txt, Excel文件, *.xls, Word文件, *.doc"
- 窗口标题 = "打开文件"
- 被选中的文件 = Application.GetOpenFilename(可选择的文件, 2, 窗口标题, , True) '参数先用变量代替。
- '由于GetOpenFilename函数可能有多个值,需要用数组的表达给msgbox,方能正确显示。
- If TypeName(被选中的文件) = "Boolean" Then
- MsgBox "没法选中文件"
- Exit Sub
- End If
- 'On Error Resume Next
- For i = LBound(被选中的文件) To UBound(被选中的文件)
- msg = msg & 被选中的文件(i) & Chr(13)
- Next
- MsgBox msg, , "被选中的文件"
- End Sub
复制代码 |
|