参数:
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,所有文件,*.*"
网友评论