在數據表中插入新行VBA Excel2010 ActiveX

Question

我想在我的數據表中插入一行。當我手動嘗試它（選擇行，插入新行）它工作得很好，但是當我嘗試將它添加到我的宏，這是在一個ActiveX按鈕（！）內它說：「運行時錯誤438：對象不suppoort這方法」。如果我在通常的宏中嘗試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

您不需要選擇。不是用於表格而不是用於行。

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

End Sub