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失敗，求教。謝謝！
uj5u.com熱心網友回復：
關閉UAC、防火墻、殺毒軟體、……以管理員身份運行
uj5u.com熱心網友回復：
我也是東陽人哦，橫店的,QQ2776478814uj5u.com熱心網友回復：
沒有用啊，我試過了，還有其他方法嗎？謝謝！
uj5u.com熱心網友回復：
借用剪貼板？uj5u.com熱心網友回復：
使用剪貼板，在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
謝謝趙老師的回答，查看對應的VBA代碼是為了什么啊？
uj5u.com熱心網友回復：
在VB中照葫蘆畫瓢寫程式。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/52832.html
標籤：VB基礎類