Combo1中读取的excel表格如何传递到Combo2中
Private Sub Combo1_Click()
'Dim dongexcel As Object
'Dim dongbook As Object
'Dim dongsheet As Object
Dim dongexcel As New Excel.Application
Dim dongbook As Excel.Workbook
Dim dongsheet As Excel.Worksheet
Dim J As Integer
If Combo1.Text = "东阳变" Or Combo1.Text = "桐鹤变" Or Combo1.Text = "石金变" Or Combo1.Text = "深泽变" Then
'Set dongexcel = CreateObject("Excel.Application")
Set dongbook = dongexcel.Application.Workbooks.Open("C:\Users\Administrator\Desktop\QC\东阳运维班操作任务.xlsx", ReadOnly:=False)
dongbook.Close True
'Set dongbook = GetObject("C:\Users\Administrator\Desktop\QC\东阳运维班操作任务.xlsx")
'dongexcel.Visible = True
'Set dongbook = dongexcel.Workbooks.Open("C:\Users\Administrator\Desktop\QC\东阳运维班操作任务.xlsx")
'dongexcel.Visible = False
Set dongsheet = dongbook.Worksheets(Combo1.Text)
Combo2.Clear
'读取间隔名称
I = dongsheet.UsedRange.Rows.Count
Combo2.AddItem dongsheet.Cells(1, 1).Value
For J = 2 To I
If dongsheet.Cells(J, 1) <> dongsheet.Cells(J - 1, 1) Then
Combo2.AddItem dongsheet.Cells(J, 1).Value
End If
Next
Else
Combo2.Clear
MsgBox "请选择变电站!"
End If
End Sub
Private Sub Combo2_Change()
Dim V2 As String
Dim II As Integer
V2 = Combo2.Text
For II = 0 To Combo2.ListCount - 1
If UCase(Combo2.List(II)) Like V2 & "*" Then
Combo2.Text = Combo2.List(II):
Combo2.SelStart = Len(V2):
Combo2.SelLength = Len(Combo2.Text) - Len(V2):
End If
Next
End Sub
Private Sub Combo2_Click()
Combo3.Clear
J = 1
Dim cdcd As String
cdcd = dongsheet.Cells(J, 1).Value
For J = 1 To I
If dongsheet.Cells(J, 1).Value = Combo2.Text Then
Combo3.AddItem dongsheet.Cells(J, 2).Value
End If
Next
'Combo3.Clear
'MsgBox "请选择操作任务!"
'End If
End Sub
dongsheet这个还要在combo1中已经读取完成,在combo2中有办法直接引用吗?还有在执行Set dongbook = dongexcel.Application.Workbooks.Open("C:\Users\Administrator\Desktop\QC\东阳运维班操作任务.xlsx", ReadOnly:=False)为什么会提示Open的对象workbook失败,求教。谢谢!