美文网首页
10交互式

10交互式

作者: 沈婷_bbf1 | 来源:发表于2018-05-26 09:39 被阅读16次

    参数:

    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,所有文件,*.*"

    相关文章

      网友评论

          本文标题:10交互式

          本文链接:https://www.haomeiwen.com/subject/rfopjftx.html