|
今天我們從一個(gè)十分常見的問題說起。無論是一個(gè)什么樣的程序，我們從用戶的角度出發(fā)，當(dāng)然希望能與系統(tǒng)進(jìn)行友好的交互。之前我們介紹了兩個(gè)交互方法： MsgBox和InputBox，但這兩個(gè)方法更多的是與系統(tǒng)進(jìn)行信息交互，并且是簡(jiǎn)單的交互。 對(duì)于一些復(fù)雜的情況，我們需要調(diào)用一些更高級(jí)的交互方法。比如，如果我要用VBA來合并工作表，首先我得讓系統(tǒng)知道我要合并哪些表吧？這個(gè)我可不能一個(gè)一個(gè)往InputBox里面輸入。這太不人道了?。?！ 其實(shí)這些需求微軟的開發(fā)人員都替我們想好了。一個(gè)比較簡(jiǎn)答的方法是，直接把選擇文件的對(duì)話框提供給我們，這也就是我們今天要講的：FileDialog FileDialog實(shí)際上是Application對(duì)象的一個(gè)屬性。調(diào)用起來十分簡(jiǎn)單，直接使用： Application.FileDialog(fileDialogType)fileDialogType參數(shù)，表示要調(diào)用的對(duì)話框類型。系統(tǒng)可以提供的有4種，對(duì)應(yīng)的參數(shù)分別是：
詳見：https://msdn.microsoft.com/en-us/library/office/ff836226.aspx 這些參數(shù)這么長(zhǎng)，大家不用怕記不住，在VBE里輸入時(shí)，系統(tǒng)會(huì)有自動(dòng)提示的。 FileDialog只有兩個(gè)方法，我們先來看Show方法。 ShowFileDialog的Show方法根據(jù)對(duì)話框狀態(tài)返回一個(gè)布爾值，如果用戶選擇好了文件，程序繼續(xù)進(jìn)行，那么返回True，在立即窗口打印的話，可以看到返回的是-1。如果用戶點(diǎn)擊了取消，就會(huì)返回False，立即窗口打印顯示0。 Show方法實(shí)際上并不會(huì)直接打開所選中的文件，他只是把選中的文件放置了文件名和路徑。如果我們要直接執(zhí)行，應(yīng)該怎么處理呢？ Execute對(duì)于類型為msoFileDialogOpen和msoFileDialogSaveAs的對(duì)話框來說，可以直接使用Execute方法來執(zhí)行打開或者保存的動(dòng)作，而不需要先把選中文件的絕對(duì)路徑存起來。 下面這段是一個(gè)Execute方法的小例子,當(dāng)然也用上了Show方法 Sub EmployFileDialog()
Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogOpen)
With FD
If Not .Show Then
Exit Sub
Else
.Execute
End If
End With
End Sub前面我們說了，Show方法只是把文件路徑保存起來了，那么這些路徑放在哪里了？我們應(yīng)該怎么索引呢？這就會(huì)用到FileDialogSelectedItems屬性。 SelectedItemsShow方法選中的文件的絕對(duì)路徑其實(shí)放在了SelectedItems里。 可以使用For循環(huán)來遍歷SelectedItems，獲得選中文件的絕對(duì)路徑。 Sub EmployFileDialog()
Dim FD As FileDialog, iCount%
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
.AllowMultiSelect = True
If Not .Show Then
Exit Sub
Else
For iCount = 1 To .SelectedItems.Count
Debug.Print .SelectedItems(iCount)
Next
End If
End With
End Sub
總結(jié)一下
|
|
|
