简单的VBA：从命令按钮调用模块生成ComboBox对象所需的错误424

Question

我有一个20页的复制命令按钮，所以我想在1个地方编辑代码（一个模块）。我的按钮设置如下：

Public Sub Main()
Set ws = ThisWorkbook.ActiveSheet
sourceFolder = "C:\MyDirectory\" & Month(DateValue("01-" & ComboBox1.Value & "-1900")) & ". " & ComboBox1.Value & " " & Year(Date) & "\"

但是当我点击我的按钮时，我得到一个对象错误424与ComboBox1：

abc_001
abc_002
.
.
.
abc_999

Answer 1

事实证明我必须将其作为对象引用：

Combox1.Value    

更改为：

ws.OLEObjects("ComboBox1").Object.Value

一切正常，我可以从其他工作表/按钮调用此模块