Открытие каждого файла в указанной папке c

Question

Я делаю код для Excel, который открывает каждый файл в указанной папке c. Когда файл открыт, я хочу добавить кнопку для каждого из этих файлов в одном месте. Я сделал этот код, показанный ниже. но каким-то образом я получаю эту ошибку:

Ошибка времени выполнения '1004': невозможно получить свойство Add класса OLEObjects

Код обрывается на строке, где там написано: set addbutton = et c ...

Кто-нибудь знает почему?

Мой код:

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

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