圖771所示。圖STYLEREF3\s77SEQ圖\*ARABIC\s31 使用內(nèi)置對話框獲取選定文件的文件名如果只希望獲取用戶在顯示的內(nèi)置“打開”對話框中選定文件的文件名，而不想真正打開該文件，那么可以使用GetOpenFilename方法，如下面的代碼所示。#001SubOpenFilename()#002DimFilenameAsVariant#003DimmymsgAsInteger#004DimiAsInteger#005Filename=Application.GetOpenFilename(Title:="刪除文件",MultiSelect:=True)#006IfIsArray(Filename)Then#007mymsg=MsgBox("是否刪除所選文件?",vbYesNo,"提示")#008Ifmymsg=vbYesThen#009Fori=1ToUBound(Filename)#010KillFilename(i)#011Next#012EndIf#013EndIf#014EndSub代碼解析：OpenFilename過程使用GetOpenFilename方法顯示標準的內(nèi)置“打開”對話框，獲取用戶選定文件的文件名后使用Kill語句刪除。GetOpenFilename方法顯示標準的內(nèi)置“打開”對話框，獲取文件名，語法如下：expression.GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect)參數(shù)expression是必需的，返回一個Application對象。參數(shù)FileFilter是可選的，指定文件篩選條件的字符串。如果省略，則默認參數(shù)值為“所有文件(*.*)”。參數(shù)FilterIndex是可選的，指定默認文件篩選條件的索引號，取值范圍為1到由FileFilter所指定的篩選條件數(shù)目。如果省略，或者取值大于可用篩選數(shù)目，則采用第一個文件篩選條件。參數(shù)Title是可選的，指定對話框的標題。如果省略，則使用“打開”作為標題。參數(shù)ButtonText是可選的，僅用于Macintosh。參數(shù)MultiSelect是可選的，如果該值為True，則允許選定多個文件名，如果該值為False，則只允許選定單個文件名。默認值為False。第5行代碼顯示標準的“打開”對話框，將對話框的標題設(shè)置為“刪除文件”，將MultiSelect參數(shù)設(shè)置為True，允許選定多個文件。第6行代碼，獲得返回值。當用戶選定文件后，返回的是選定的文件名或用戶輸入的文件名。因為MultiSelect參數(shù)已設(shè)置為True，所以返回值將是一個包含所有選定文件名的數(shù)組（即使僅選定了一個文件名）。如果用戶取消了對話框，則該值為False。第8行到第12行代碼，經(jīng)詢問用戶后使用Kill語句從磁盤中刪除用戶選定的文件。運行OpenFilename過程，顯示標準的內(nèi)置“打開”對話框，刪除用戶選定的文件，如所REF_Ref192250704\h圖772示。圖STYLEREF3\s77SEQ圖\*ARABIC\s32 獲取用戶選定文件的文件名注意VBA中數(shù)組下界默認從0開始，但使用GetOpenFilename方法選擇多個文件時返回的包含選定文件名的數(shù)組下界是從1開始。使用“另存為”對話框在備份文件時可以使用GetSaveAsFilename方法顯示標準的內(nèi)置“另存為”對話框，獲取備份文件的文件名和保存路徑，而無須真正保存任何文件。如下面的代碼所示。#001SubCopyFilename()#002DimNowWorkbookAsWorkbook#003DimFileNameAsString#004OnErrorGoToline#005FileName=Application.GetSaveAsFilename_#006(InitialFileName:="D:\"&Date&""&ThisWorkbook.Name,_#007fileFilter:="Excelfiles(*.xls),*.xls,Allfiles(*.*),*.*",_#008Title:="數(shù)據(jù)備份")#009IfFileName<>"False"Then#010SetNowWorkbook=Workbooks.Add#011WithNowWorkbook#012.SaveAsFileName#013ThisWorkbook.Sheets("Sheet2").UsedRange.Copy_#014.Sheets("Sheet1").Range("A1")#015.Save#016EndWith#017GoToline#018EndIf#019ExitSub#020line:#021ActiveWorkbook.Close#022EndSub代碼解析：CopyFilename過程使用GetSaveAsFilename方法顯示標準的內(nèi)置“另存為”對話框，獲取備份文件的文件名和保存路徑，新建工作簿保存?zhèn)浞輸?shù)據(jù)。第4行代碼，錯誤處理語句。備份過程中，如果已存在同名工作簿，會出現(xiàn)如REF_Ref192269184\h圖773所示的提示，如果選擇了“否”，此時新工作簿已經(jīng)建立，在執(zhí)行第12行代碼時發(fā)生錯誤，使程序中斷，所以使用GoTo語句執(zhí)行第21行代碼，關(guān)閉新建立的工作簿。圖STYLEREF3\s77SEQ圖\*ARABIC\s33 文件已存在提示第5行代碼，使用GetSaveAsFilename方法顯示標準的內(nèi)置“另存為”對話框。GetSaveAsFilename方法的語法如下：expression.GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,Title,ButtonText)參數(shù)expression是必需的，返回一個Application對象。參數(shù)InitialFilename是可選的，指定建議的文件名。如果省略，將活動工作簿的名稱作為建議的文件名。參數(shù)FileFilter是可選的，指定文件篩選條件的字符串。參數(shù)FilterIndex是可選的，指定默認文件篩選條件的索引號，取值范圍為1到FileFilter指定的篩選條件數(shù)目之間。如果省略，或者取值大于可用篩選數(shù)目，則采用第一個文件篩選條件。參數(shù)Title是可選的，指定對話框標題。如果省略，則使用默認標題。參數(shù)ButtonText是可選的，僅用于Macintosh。第6行代碼，設(shè)置對話框的保存路徑為D盤，保存文件名為日期加工作簿名稱。第7行代碼，設(shè)置對話框文件保存類型為Excel文件類型。如果需要設(shè)置為文本類型需設(shè)置為“文本文件(*.txt),*.txt”，而如果是圖片文件則需設(shè)置為“圖片文件(*.bmp;*.jpg),*bmp;*.jpg”。第8行代碼，設(shè)置對話框的標題為“數(shù)據(jù)備份”。第9行代碼，如果用戶沒有取消操作。第10行到第16行代碼，使用Add方法新建工作簿保存到對話框選定的路徑中，將數(shù)據(jù)備份到新工作簿中。第17行代碼，使用GoTo語句執(zhí)行第21行代碼，關(guān)閉新建工作簿和開啟屏幕刷新。運行CopyFilename過程，顯示內(nèi)置“另存為”對話框，供用戶備份工作簿數(shù)據(jù)，如REF_Ref192269588\h圖774所示。圖STYLEREF3\s77SEQ圖\*ARABIC\s34 使用“另存為”對話框備份文件調(diào)用操作系統(tǒng)“關(guān)于”對話框VBA程序開發(fā)完成后，有時需要一個“關(guān)于”對話框，除了使用窗體外，還可以調(diào)用操作系統(tǒng)的“關(guān)于”對話框，顯示自定義的內(nèi)容，如下面的代碼所示。#001PrivateDeclareFunctionShellAboutLib"shell32.dll"Alias"ShellAboutA"(_#002ByValhwndAsLong,ByValszAppAsString,_#003ByValszOtherStuffAsString,ByValhIconAsLong)AsLong#004PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(_#005ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong#006PrivateSubCommandButton1_Click()#007DimApphWndAsLong#008ApphWnd=FindWindow("XLMAIN",Application.Caption)#009ShellAboutA