excel - 打开特定文件夹中的每个文件

Question

我正在为 Excel 编写代码，用于打开特定文件夹中的每个文件。当文件打开时，我喜欢在同一位置为每个文件添加一个按钮。我制作了如下所示的代码。但不知何故我得到了这个错误：

运行时错误“1004”：无法获取 OLEObjects 类的 Add 属性

代码在它说的那一行中断：set addbutton = etc...

有谁知道为什么？

我的代码：

Dim AddButton As OLEObject

Set AddButton = 
Workbooks(ThisWB).Sheets("Planning").OLEObjects.add(ClassType:="Forms.CommandButton.1", Link:=False, 
DisplayAsIcon:=False, Left:=3.52941176470588, Top:=106.764705882353, 
Width:=47.6470588235294, Height:=24.7058823529412)

With AddButton
.Name = "SortPlanner"
.OnAction = "SortPersonalPlanner"

With .Object
    .Caption = "Sorteren"
    .BackColor = &HFFFFFF
End With
End With

标签： excelvba

Answer 1

你可以做这样的事情，使用.Buttons.Add而不是.OLEObjects.add

Set AddButton = Workbooks(ThisWB).Sheets("Planning").Buttons.Add(3.53, 106.76, 47.65, 24.71)

With AddButton
    .Characters.Text = "Sorteren"
    .Font.Bold = True
    .OnAction = "SortPersonalPlanner"
End With