VB6 open workbooks提示对象‘open’的方法‘workbooks’失败,怎么解决
Private Sub Combo1_Click()
Dim dongexcel As Object
Dim dongbook As Object
Dim dongsheet As Object
Dim filename As String
Set dongexcel = Nothing
Set dongbook = Nothing
Set dongsheet = Nothing
If Combo1.Text = "东阳变" Then
Set dongexcel = CreateObject("Excel.Application")
Set dongbook = dongexcel.Workbooks.open("C:\Users\Administrator\Desktop\QC\东阳变操作任务.xlsx")
'dongexcel.Visible = True
Set dongsheet = dongbook.worksheets("sheet1")
row_count = dongsheet.activesheet.usedrange.rows.Count
Combo2.Clear
For I = 1 To row_count
Combo2.AddItem excel_dong.cells(I, 1).Value
Next I