请教各位老师在用DLL封装的vba登陆代码怎么出错呢，在Office2003 Excel中可以运行，封装后显示对象不支持该属性，希望有老师能给与帮助，谢谢

看了一下，不懂这个方面。

改用Add-in吧，那样方便得多。而且安装、卸载也方便，只要注册一次，就可以直接在Excel程序中使用，并且文档本身不用写任何代码。

谢谢Joforn版主， Add-in我不会用，上面的问题自己解决了一部分了，就是下面加载用户清单时，搞不定：
Private Sub Form_Load()
'加载用户清单

Dim xlApp As Object, xlbok As Object, xlsht1 As Object
    Set xlApp = GetObject(, "Excel.Application")  '取得Excel实例
    Set xlbok = xlApp.ActiveWorkbook              '取得Excel实例下活动工作簿
    Set xlsht1 = xlbok.Worksheets("pw")              '取得Excel实例下活动工作簿的第x表格

    With xlsht1
    = .Range("A2:" & .Range("A65536").End(xlUp).Address).Address(External:=True)
    End With
End Sub
vb中没有RowSource属性呢，不知道怎么变通，工作表Sheets("pw")内的用户清单，不随窗体的启动加载。

你的意思是要把A列中的用户名添加到Combo1中吧？你用Combo1.AddItem一行行添加就行了。要不然就用ADO,然后再用DataSource,不过应该这个方法比前一个方式要复杂一些。

谢谢Joforn版主,搞定了，呵呵。

Private Sub Form_Load()
    Dim xlApp As Object, xlbok As Object, xlsht1 As Object
    Set xlApp = GetObject(, "Excel.Application")  '取得Excel实例
    Set xlbok = xlApp.ActiveWorkbook              '取得Excel实例下活动工作簿
    Set xlsht1 = xlbok.Worksheets("pw")              '取得Excel实例下活动工作簿的第x表格
 xlApp.DisplayAlerts = False
With xlsht1
    Dim i As Long
    For i = 2 To xlsht1.Range("a65536").End(xlUp).Row     '从第2行 至 从最末行向上查找第一个非空值行的行号
    If xlsht1.Cells(i, 1).Text <> "" Then     '判断当 Sheets("系统用户")的A列行号不为空值时
    Combo1.AddItem xlsht1.Cells(i, 1).Text     '组合框1的下拉选项条 为 Sheets("系统用户")的A列不含空值的行
    End If
    Next
End With
 xlApp.DisplayAlerts = True
End Sub