VBA中的用户信息交换—

VBA中的用户信息交换——Excel之VBA(14)

一、Msgbox与Inputbox

Msgbox

Inputbox

1. Msgbox对话框的样式参数

参数：
Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)
示例：
MsgBox "你还好吗？", 4 + 32, "打招呼对话框", "C:/a.chm", 0

按钮类型：
可使用加号连接

2. Msgbox对话框的返回值

参数：
Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)
示例：
MsgBox "你还好吗？", 4 + 32, "打招呼对话框", "C:/a.chm", 0

1. Inputbox函数

参数：
Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引)
示例：
Name = InputBox("请输入姓名", "登陆框", "此处输入", 100, 100, "C:/a.chm", 0)

2. Inputbox方法

参数：
Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引，输入类型)
示例：
A = Application.InputBox("输入金额", "汇率计算", "此处输入", 100, 100, "C:/a.chm", 0, 1)

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
注意：
对话框中所做的操作会真实执行。

附录：

续：