ComboBox控件在VBA中的代码如下：
Combo1.RowSource = "操作员!A3:A" & Sheets("操作员").[A65536].End(xlUp).Row
如果工作簿已打开，此代码在VB6.0中该怎样的？

vb6里无此功能，需要通过循环和addnew方法逐个添加进去。

On Error Resume Next
 谢谢提醒，搞定：
 Dim xlApp     As Excel.Application
  Dim xlbook    As Excel.Workbook
  Dim xlsheet   As Excel.Worksheet
    Set xlApp = GetObject(, "Excel.Application")
  xlApp.Workbooks(1).Close SaveChanges:=True
  xlApp.Quit
  Set xlApp = New Excel.Application
  Set xlbook = xlApp.Workbooks.Open("d:\ayqh.xls")
  Excel.Application.Visible = False
Dim l As Long
Dim i As Long
Set xlsheet = xlApp.Worksheets("操作员")
l = xlsheet.Range("A65536").End(xlUp).Row
For i = 3 To l
 Combo1.AddItem (xlsheet.Cells(i, 1))
  Next