VBA中如何弹出选择性对话框，急，在线等高手指点（已经解决）

sunjice

要实现的功能描述：
通过按钮打开目录，用户自己选择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 于 2010-1-1 11:10 编辑 ]

cflood

你的程序里不是获取了sheet名了吗？关于弹出对话框，你想要什么样的对话框呢？还是用窗体好一些。

sunjice

最好弹出一个框，里面是一个下拉列表，显示出所有的SHEET页名，用户选择完后，将选择结果SHEET页面的INDEX获取出来

johncool8888

呵呵，懒得写代码了，提供一个思路：

1、建立一个userform
2、添加一个ComboBox
3、读取所有sheet名字放入ComboBox的rows里

sunjice

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'
要求对象

是什么问题啊

sunjice

已经搞定，一切还是要靠自己啊

cczjw

sunjice 发表于 2010-1-1 11:09
已经搞定，一切还是要靠自己啊

听起来不地道。

flyfairy

来说说后续,我也有类似的需求.需要弹出一个对话框,里面有两三个选项,然后根据用户选择的内容不同,再执行下面的程序.

602104023

sunjice 发表于 2010-1-1 11:09
已经搞定，一切还是要靠自己啊

能不能分享一下。