回复 2楼 xzlxzlxzl
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