VBA中如何用GetOpenFilename獲取到文件名？Private sub CommandButtonuclick（）Dim strfile As String strfile=Applicat

VBA中如何用GetOpenFilename獲取到文件名？

Private sub CommandButtonuclick（）Dim strfile As String strfile=Application.GetOpenFilename（“所有文件（*。*), *. *）如果strFile=“false”，則“strFile定義字符串類型，不能與布爾類型false進行比較。Msgbox（“no document selected”）exit sub else“如果strFile為false，則Msgbox（strFile）end IfEnd sub

成功執(zhí)行GetOpenFilename后，您可以使用函數(shù)pathstrippath獲取文件名。openfilenameonfcharstrfile[MAX_u2;PATH]memset（&ofn，0，sizeof（OPENFILENAME））memset（strFile，0，sizeof（char）*MAX_2;PATH）ofn.lStructSize=大?。∣PENFILENAME）ofn.lpstrFilter=“網(wǎng)頁（。HTML）0*。HTML格式**。HTM*0“ofn.lpstrFile=strFileofn.nMaxFile=最大uPATHofn.Flags=OFNufilemultistif（GetOpenFilename（&stfile））//strFile獲取用戶所選文件的路徑和文件名{pathstrippath（strFile）//strFile獲取文件名}

因為使用了錯誤的函數(shù)tkFileDialog.ask目錄它是用來獲得目錄tkFileDialog.askopenfilename文件名用于獲取文件的完整路徑tkFileDialog.askopenfilenames文件名它用于獲取多個文件的路徑

這次我們使用TK下的tkfiledialog模塊，它是GUI編程下的一個模塊。我們使用askopenfilename函數(shù)

你使用什么版本的Python？另外，你會發(fā)布錯誤信息嗎？Python2.7選擇文件并獲取路徑：#！/usr/bin/env Python#-*-編碼：UTF-8-*-從tkfiledialog導(dǎo)入Tkinter作為TK從TkFileName類demo（object）：def?ini。。。