jw anderson VBA中如何用GetOpenFilename获取到文件名?
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
成功执行GetOpenFilename后,您可以使用函数pathstrippath获取文件名。openfilenameonfcharstrfile[MAX_u2;PATH]memset(&ofn,0,sizeof(OPENFILENAME))memset(strFile,0,sizeof(char)*MAX_2;PATH)ofn.lStructSize=大小(OPENFILENAME)ofn.lpstrFilter=“网页(。HTML)0*。HTML格式**。HTM*0“ofn.lpstrFile=strFileofn.nMaxFile=最大uPATHofn.Flags=OFNuFilemultistatif(GetOpenFilename(&stfile))//strFile获取用户选择的文件的路径和文件名{pathstrippath(strFile)//strFile获取文件名}
jw anderson qt getopenfilename filename函数的用法
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。