---

Msgbox函数

Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)
msgbox按下空格后还会弹出以下参数

参数2的说明：

参数2若要选择多项时，直接相加即可，如1 + 16

Msgbox的返回值

借助一个变量接收 -- 记住要加（）

Sub test1()
Dim i As Integer
i = MsgBox("你还好吗？", 4 + 32, "打招呼对话框", "C:/a.chm", 0)
MsgBox i
End Sub

返回值说明

---

Inputbox --分函数和方法

函数

Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引)

方法

Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引，输入类型)

输入类型

Sub test1()
Application.InputBox "请输入年龄", "登陆框", "此处输入", 100, 100, "C:/a.chm", 0, 1
End Sub

Ag

利用方法输入时若输入的不是方法中指定的类型，会弹出无效框

返回值的接收同Msgbox。

---

GetOpenfilename函数

GetOpenFilename (文件类型，优先类型，对话框标题，按钮文字，是否支持多选)
单独输出的值是一个文件的地址
第二个参数是设置打开文件的类型

选取单个文件打开并关闭

Sub test()
Dim str As String
Dim wb As Workbook

str = Application.GetOpenFilename("Excel文件,*.xls*", , "请选择")

'防止不选表的情况，等于False是因为不选表是返回的是False'
If str <> "False" Then
    Set wb = Workbooks.Open(str)

    wb.Close
End If
End Sub

选取打开多个文件并关闭 -- 可作为模版

Sub test1()
Dim arr()
Dim wb As Workbook
'防止用户取消选取'
On Error Resume Next 
arr = Application.GetOpenFilename("Excel文件,*.xls*", , "请选择", , 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

.xla后缀的加载宏