怎样引用工作表数据做一个ComboBox下拉列表

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