怎么用getopenfilename得到所有的文件名？成功執(zhí)行GetOpenFilename后，可以使用函數(shù)pathstrippath獲取文件名。openfilenameonfcharstrfile[

怎么用getopenfilename得到所有的文件名？

成功執(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獲取文件名}

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

代碼更改

私有子命令按鈕1 Click（）Dim strFile As Stringstrfile=Application.GetOpenFilename（“所有文件（*。*), *. *）如果strFile=“false”，則“strFile定義字符串類型，不能與布爾類型false進(jìn)行比較。Msgbox（“未選擇文檔”）exit sub else“如果strFile為false，則Msgbox（strFile）end IfEnd sub