MsgBox

Sub test()

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

End Sub


Sub test1()
Dim i As Integer

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

Inputbox

Sub test()
'使用inputbox函数
InputBox "请输入姓名", "登陆框", "此处输入", 100, 100, "C:/a.chm", 0

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

End Sub

Sub test2()
'inputbox返回值
Dim i As Integer
i = Application.InputBox("请输入年龄", "登陆框", "此处输入", 100, 100, "C:/a.chm", 0, 1)

End Sub

GetOpenFileName

'打开单个文件并关闭
Sub test()
Dim str As String
Dim wb As Workbook

str = Application.GetOpenFilename("Excel文件,*.xls*", , "请选择")
If str <> "False" Then
    Set wb = Workbooks.Open(str)

'#######################
'这里针对打开的WB进行操作
'#######################

    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进行操作
'#######################
        
        wb.Close
    Next

End If

End Sub

Application.dialogs

Sub test()

  Application.Dialogs(5).Show// [!code focus]

End Sub

更新日志

2025/2/16 23:37

查看所有更新日志

• 0e103-fix:全文搜索样式于 2025/2/16
• 51ebd-docs: 初始版本于 2024/9/22

版权所有

版权归属：passwordgloo

许可证：署名-相同方式共享 4.0 国际 (CC-BY-SA-4.0)