Msgbox函數(shù)

Msgbox(提示文字，按鈕類型，標(biāo)題文字，幫助文件，幫助文件索引)
msgbox按下空格后還會彈出以下參數(shù)

參數(shù)2的說明：

參數(shù)2若要選擇多項時，直接相加即可，如1 + 16

Msgbox的返回值

借助一個變量接收 -- 記住要加（）

Sub test1()
Dim i As Integer
i = MsgBox("你還好嗎？", 4 + 32, "打招呼對話框", "C:/a.chm", 0)
MsgBox i
End Sub

返回值說明

Inputbox --分函數(shù)和方法

函數(shù)

Inputbox(提示文字，標(biāo)題文字，默認(rèn)值，左邊距，上邊距，幫助文件，幫助文件索引)

方法

Inputbox(提示文字，標(biāo)題文字，默認(rèn)值，左邊距，上邊距，幫助文件，幫助文件索引，輸入類型)

輸入類型

Sub test1()
Application.InputBox "請輸入年齡", "登陸框", "此處輸入", 100, 100, "C:/a.chm", 0, 1
End Sub

Ag

利用方法輸入時若輸入的不是方法中指定的類型，會彈出無效框

返回值的接收同Msgbox。

GetOpenfilename函數(shù)

GetOpenFilename (文件類型，優(yōu)先類型，對話框標(biāo)題，按鈕文字，是否支持多選)
單獨輸出的值是一個文件的地址
第二個參數(shù)是設(shè)置打開文件的類型

選取單個文件打開并關(guān)閉

Sub test()
Dim str As String
Dim wb As Workbook

str = Application.GetOpenFilename("Excel文件,*.xls*", , "請選擇")

'防止不選表的情況，等于False是因為不選表是返回的是False'
If str <> "False" Then
    Set wb = Workbooks.Open(str)

    wb.Close
End If
End Sub

選取打開多個文件并關(guān)閉 -- 可作為模版

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))
         '可以作為殼子，中間輸入需操作的內(nèi)容'           
        wb.Close
    Next

End If
End Sub

.xla后綴的加載宏