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
uj5u.com熱心網友回復：
關閉UAC、防火墻、殺毒軟體、……以管理員身份運行
uj5u.com熱心網友回復：
還是不行啊，還是打不開，好像一定要dongexcel.Visible = True（設為可見后）才能打開那個excel，這是為什么啊？uj5u.com熱心網友回復：
啟動EXCEL ，錄制宏，手動操作， 完了編輯宏，看到的全是VBA代碼uj5u.com熱心網友回復：
什么意思啊？請教uj5u.com熱心網友回復：
沒人回答嗎？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/82937.html
標籤：進程/線程/DLL