【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

上一篇:【VBA(十三):窗体与控件】【窗体+控件+小结】

Msgbox

第一参数 (对话框内容)

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第二参数(显示样式)

一共有四层显示内容,用+连接
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第三参数(对话框名称)

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第四参数(帮助文档)

添加帮助文档位置

第五、六参数(帮助文档位置和Context)

返回值

【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

设置返回值
代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图(选中中止)
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

Inputbox

基本参数

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第四参数(位置)

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第五、六参数(帮助文档位置和Context)

返回值

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

方法

比函数在结尾多一个参数,输入类型type

Application.Inputbox()

【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
数字和文本类型,1+2即可

GetOpenFilename

返回值为完整路径

打开文件

【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第一、二属性(文件、优先类型)

代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
效果图
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

此时第一个文件类型为优先类型,第二参数为0。
更改第二参数为2。
代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

效果图

【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

返回值

为了避免不选择文件报错
代码
【VBA(十四):VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】

第三参数(对话框标题)

第五参数(是否支持多文件)

True即可多选
此时的变量需要用arr替换str

Workbooks.Open arr(1)

打开多选中的第一文件

小结

概念

Msgbox(提示文字,按钮标题,标题文字,帮助文件,帮助文件索引)
Inputbox(提示文字,标题文字,默认值,左边距,上边距,帮助文件,帮助文件索引,输入类型)
Application.Inputbox
Application.GetOpenFilename