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進(jìn)行比較。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=大小（OPENFILENAME）ofn.lpstrFilter=“網(wǎng)頁（。HTML）0*。HTML格式**。HTM*0“ofn.lpstrFile=strFileofn.nMaxFile=最大uPATHofn.Flags=OFNuFilemultistatif（GetOpenFilename（&stfile））//strFile獲取用戶選擇的文件的路徑和文件名{pathstrippath（strFile）//strFile獲取文件名}