Open_Workbook例程手动但不自动工作

我有下面的代码粘贴到ThisWorkbook对象。 然而，每当我打开工作簿它什么都不做，只要我进入VBA和手动步骤通过它，它的工作和combobox填充？ 我确定它是一个设置或简单的东西，而不是任何复杂的代码，但我完全没有想法，为什么这是失败的。

任何帮助将非常感激

Option Explicit Public bClear As Boolean Private Sub Open_Workbook() With Application .Calculation = xlManual .EnableEvents = False .ScreenUpdating = False End With Dim stSQL As String, rst As ADODB.Recordset, k As Integer, vaData As Variant Dim objConn As ADODB.Connection Dim ConnectionString As String ConnectionString = "Provider=sqloledb.1;data source=SQL-SERVER;Initial catalog=SQL-DB;Integrated Security = SSPI;" Set objConn = New ADODB.Connection stSQL = "EXEC('SELECT NAME FROM TABLE1')" With objConn .CursorLocation = adUseClient .Open ConnectionString Set rst = .Execute(stSQL) End With With rst Set .ActiveConnection = Nothing k = .Fields.Count vaData = .GetRows End With Sheets("Menu").CB_Book.List = Application.Transpose(vaData) objConn.Close Set rst = Nothing Set objConn = Nothing bClear = True With Application .Calculation = xlAutomatic .EnableEvents = True .ScreenUpdating = True End With End Sub 

Answer 1

尝试改变这一点：

 Private Sub Open_Workbook() 

对此：

 Private Sub Workbook_Open()