VBA中的用户信息交换——Excel之VBA(14)
一、Msgbox与Inputbox
Msgbox |
Inputbox |
1. Msgbox对话框的样式参数 参数: 按钮类型:
2. Msgbox对话框的返回值 参数:
|
1. Inputbox函数
2. Inputbox方法
3. Inputbox方法的类型值
|
二、GetOpenFilename
GetOpenFilename的参数
参数:
GetOpenFilename (文件类型,优先类型,对话框标题,按钮文字,是否支持多选)
示例:
A= Application.GetOpenFilename("新表,*.xlsx,老表,*.xls", 1, "快特么选!", "确定", False)
注意:
这个方法并不会真正打开文件,只是返回文件完整路径!
文件类型参数中,先指定文件类型名,再指定后缀,要成对出现。
优先类型是指文件类型中列出的各种类型,哪种优先显示。
例如:"Excel文件,*.xlsx,老表,*.xls,所有文件,*.*"
Sub test() Dim arr() Dim wb As Workbook arr = Application.GetOpenFilename("Excel文件97-03, *.xls, Excel文件xlsx, *.xlsx", 2, "打开Excel文件", , True) If arr(1) <> "False" Then For i = LBound(arr) To UBound(arr) Set wb = Workbooks.Open(arr(i)) '- - - - - - - - - - - - - - - - - - - - - - '- - - - - - - - - - - - - - - - - - - - - - wb.Close Next End If End Sub 壳子代码 |
三、Dialogs(对话框)
Application.Dialogs
示例:
Application.Dialogs(xlDialogSaveAs).Show
注意:
对话框中所做的操作会真实执行。
附录:
续: