10交互式

参数：

Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)

示例：

MsgBox

"你还好吗？", 4 + 32, "打招呼对话框", "C:/a.chm", 0

---

A=MsgBox ("你还好吗？", 4 + 32, "打招呼对话框","C:/a.chm", 0)

---

Input box函数样式参数

参数：

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

示例：

Name = InputBox("请输入姓名", "登陆框", "此处输入", 100, 100, "C:/a.chm", 0)

Inputbox方法样式参数  application.inputbox

参数：

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

示例：

A = Application.InputBox("输入金额", "汇率计算", "此处输入", 100, 100, "C:/a.chm", 0, 1)

application.inputbox最后那个参数 值的含义

---

GetOpenFilename的参数

参数：

GetOpenFilename (文件类型，优先类型，对话框标题，按钮文字，是否支持多选)

示例：

A= Application.GetOpenFilename("新表,*.xlsx,老表,*.xls", 1, "快特么选！", "确定", False)

注意：

这个方法并不会真正打开文件，只是返回文件完整路径！

文件类型参数中，先指定文件类型名，再指定后缀，要成对出现。

优先类型是指文件类型中列出的各种类型，哪种优先显示。

Sub ss()

Dim arr()  这里忘记写（）

Dim wb As Workbook

On Error Resume Next  '这一句上课时候没加，加上以后防止点了取消发生的错误

arr =

Application.GetOpenFilename("excel文件,*.xls*",2, , ,True)     特别注意Ture的写法，只有当它变颜色了才写对了

If arr(1) <> "False " Then     注意False的写法，写错了就没有返回值

   For i = LBound(arr) To UBound(arr)

   Set wb = Workbooks.Open(arr(i))    注意open后面有（）不是用连接符是用括号

   wb.Close

   Next

 EndIf

End Sub

例如："Excel文件,*.xlsx,老表,*.xls,所有文件,*.*"