通過(guò)GetOpenFilename方法獲得文件名

通過(guò)GetOpenFilename方法獲得文件名

本文為《別怕，Excel VBA其實(shí)很簡(jiǎn)單（第3版）》隨書(shū)問(wèn)題參-

如果想通過(guò)GetOpenFilename方法獲得一個(gè)或多個(gè)擴(kuò)展名為“Txt”或“Mp3”的文件名稱(chēng)，并將獲得的名稱(chēng)寫(xiě)入A列中，可以將過(guò)程寫(xiě)為：

Sub 獲取文件名() Dim Fil As Variant, Wjlx As String Wjlx = "TXT文本文件,*.txt,MP3音頻文件,*.jpg" Fil = Application.GetOpenFilename(filefilter:=Wjlx, FilterIndex:=2, Title:="選擇", MultiSelect:=True) If TypeName(Fil) <> "Boolean" Then '判斷變量Fil是否為一 個(gè)邏輯值（單擊取消按鈕就返回邏輯值） Range("A1").Resize(UBound(Fil), 1) = Application.WorksheetFunction.Transpose(Fil) End IfEnd Su

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。