查看: 6960|回复: 5
VBA中如何弹出选择性对话框，急，在线等高手指点（已经解决）
阅读权限20
在线时间 小时
要实现的功能描述：
通过按钮打开目录，用户自己选择EXCEL文件后，获取该选定EXCEL的SHEET页面名称，弹出选择性对话框，让用户选择导入指定的SHEET页面。
目前已经实现：通过按钮打开目录，用户选择EXCEL文件。
如何获取SHEET页面名，弹出对话框呢？
& &&&Filename = Application.GetOpenFilename(Title:=&选择配货清单&, MultiSelect:=False)
& && && && && &
& && &&&If Filename && False Then
& && && && &'mymsg = MsgBox(&导入配货数据?&, vbYesNo, &提示&)
& && && && &Set myOBJ = GetObject(Filename)
& && && && &'获取文件的SHEET页面名，供用户选择
& && && && &For Each Sh In myOBJ.Worksheets
& && && && && & 's = Sh.Name & Chr(13)
& && && && && & shname = Sh.Name
& && && && && & shindex = Sh.Index
& && && && &Next
[ 本帖最后由 sunjice 于
11:10 编辑 ]
阅读权限95
在线时间 小时
你的程序里不是获取了sheet名了吗？关于弹出对话框，你想要什么样的对话框呢？还是用窗体好一些。
阅读权限20
在线时间 小时
最好弹出一个框，里面是一个下拉列表，显示出所有的SHEET页名，用户选择完后，将选择结果SHEET页面的INDEX获取出来
阅读权限10
在线时间 小时
呵呵，懒得写代码了，提供一个思路：
1、建立一个userform
2、添加一个ComboBox
3、读取所有sheet名字放入ComboBox的rows里
阅读权限20
在线时间 小时
Filename = Application.GetOpenFilename(Title:=&选择配货清单&, MultiSelect:=False)
& && &&&'S_name = Split(Mid(Filename, InStrRev(Filename, &\&) + 1), &.&)(0)
& && && && && &
& && &&&If Filename && False Then
& && && && &'mymsg = MsgBox(&导入配货数据?&, vbYesNo, &提示&)
& && && && &Set myOBJ = GetObject(Filename)
& && && && &'获取文件的SHEET页面名，供用户选择
& && && && && & With ComboBox1
& && && && && & For Each Sh In myOBJ.Worksheets
& && && && && && &&&shname = Sh.Name
& && && && && && &&&shindex = Sh.Index
& && && && && && &&&ComboBox1.AddItem(Sh.Index, Sh.Index) = Sh.Name
& && && && && && &&&'ListBox1.AddItem(Sh.Index, Sh.Index) = Sh.Name
& && && && && & Next
& && && && && & End With
& && && && && & UserForm1.Show
运行到上面这句的时候提示错误：
运行时错误'424'
是什么问题啊
阅读权限20
在线时间 小时
已经搞定，一切还是要靠自己啊
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 23981|回复: 9
如何取消 选择集这个对话框？ 急
主题帖子积分
工程师, 积分 729, 距离下一级还需 271 积分
工程师, 积分 729, 距离下一级还需 271 积分
选择.jpg (25 KB, 下载次数: 0)
08:49 上传
选择几条线段的交线，总是出这个对话框，怎么样设置 才能不弹出这个对话框啊？
主题帖子积分
工程师, 积分 729, 距离下一级还需 271 积分
工程师, 积分 729, 距离下一级还需 271 积分
有没有人能来帮我解决这个问题啊？
主题帖子积分
工程师, 积分 729, 距离下一级还需 271 积分
工程师, 积分 729, 距离下一级还需 271 积分
这个问题很难么？为啥没人帮我解答一下啊？&&急用啊~~~~
主题帖子积分
技工, 积分 0, 距离下一级还需 300 积分
技工, 积分 0, 距离下一级还需 300 积分
再点下就可以 了？？？
哥来之未来
主题帖子积分
学徒工, 积分 3, 距离下一级还需 97 积分
学徒工, 积分 3, 距离下一级还需 97 积分
未命名.jpg (5 KB, 下载次数: 0)
17:35 上传
CTRL+w 可以搞定
主题帖子积分
技工, 积分 169, 距离下一级还需 131 积分
技工, 积分 169, 距离下一级还需 131 积分
下面一行最后那个按钮关掉就可以，快捷键ctrl+shift+p
主题帖子积分
工程师, 积分 729, 距离下一级还需 271 积分
工程师, 积分 729, 距离下一级还需 271 积分
引用第5楼zhuo117于 17:35发表的&&:
CTRL+w 可以搞定原来是这样啊，呵呵，非常感谢~~~
主题帖子积分
限制会员, 积分 -19, 距离下一级还需 19 积分
限制会员, 积分 -19, 距离下一级还需 19 积分
用的是2010吧！总是觉得这个没有2008好用！
主题帖子积分
工程师, 积分 729, 距离下一级还需 271 积分
工程师, 积分 729, 距离下一级还需 271 积分
引用第8楼cxp-10-21 09:10发表的&&:
用的是2010吧！总是觉得这个没有2008好用！
不是啊，用的是2011 正版的噢~呵呵~
主题帖子积分
中级工程师, 积分 7, 距离下一级还需 4993 积分
中级工程师, 积分 7, 距离下一级还需 4993 积分
唉，，原来是2011版，我还以为是2010版呢，，呵呵，没用过这么高的版本，不实用。
主题帖子积分
助工, 积分 320, 距离下一级还需 280 积分
助工, 积分 320, 距离下一级还需 280 积分
很强大，我用的2012也出现了这种情况。可能是某次误点打开了吧。
Powered by后使用快捷导航没有帐号？
查看: 1634|回复: 7
最后登录QQ

, 积分 1040, 距离下一级还需 160 积分
打AMD XP CPU补丁 升级下DX9 就能解决了！
最后登录QQ

QQ土人 , 积分 438, 距离下一级还需 162 积分
TX真的是没有人才在了！无语了！！！就我们几个人全出现这毛病又用WIN7的 有XP的 有2003的 全国出现这种事情的人肯定很多 ，四处询问无人解答！难道是解决不了么？
最后登录注册时间阅读权限200精华3积分239593帖子
如果我不曾为你我的未来努力，那我拿什么证明我爱着你？
黄金骑士, 积分 239593, 距离下一级还需 10407 积分
本帖最后由 慵懒 于
20:25 编辑
我就是你那意思- -所以才让你发Q，才能看到表情那里原来是啥字符，难道把表情符号弄出来，然后再替换表情= =~
我表达能力真是很差么~
最后登录QQ

QQ土人 , 积分 438, 距离下一级还需 162 积分
请给个下载地址呗！！！谢谢了
经常帮助其他会员答疑
Powered by