在数据中插入新行 table VBA Excel2010 ActiveX

Question

我想在我的数据中插入一行 table。当我手动尝试时（select 行，插入新行）它工作得很好，但是当我尝试将它添加到我的宏中时，它位于 ActiveX 按钮 (!) 内，它显示 "Runtime error 438: Object does not suppoort this method"。如果我在普通的宏中而不是在按钮内尝试 mecro，它也能正常工作。

我怎样才能摆脱这个问题？

Set wsd = Sheets("Data")
wsd.Select                      
With wsd
.Rows("5:5").Select
.Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Here appears the error
End With

非常感谢您的帮助。提前致谢！

Answer 1

您不需要 Select。不适用于 sheet 且不适用于该行。

Sub test()
Set wsd = Sheets("Data")
With wsd
    .Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
End With

End Sub

在数据中插入新行 table VBA Excel2010 ActiveX

Insert new row in data table VBA Excel2010 ActiveX

excel

vba

activex

newrow