『求教』如何在EXCEL文件里编写一段宏可以在工作表里插入一行！

[llpdev]

我看OFFICE 里的帮助，，照抄如下代码，可是总是在

Set objList = wrksht.ListObjects(1) 这行代码位置提示下标越界，我上网查了，关于这方面的资料实在太少了，，哪位大侠可以帮忙啊？

Function ActivateInsertRow() As Boolean

Dim wrksht As Worksheet
Dim objList As ListObject
Dim objListRng As Range

Set wrksht = ActiveWorkbook.Worksheets(1)
Set objList = wrksht.ListObjects(1)
Set objListRng = objList.InsertRowRange

If objListRng Is Nothing Then
ActivateInsertRow = False
Else
objListRng.Activate
ActivateInsertRow = True
End If

End Function

[ynsmcn]

Dim wrksht As Worksheet
Set wrksht = ActiveWorkbook.Worksheets(1)

wrksht.Rows(1).Insert Shift:=xlDown

这样就可以了。
还是录制一段宏看代码快一点。

[iamyuqing]

同意楼上，简单并且是实际可行的操作，最好是录制宏后再查看源代码，然后修改后添加到需要的功能模块。

[Lonelywolf1899]

还是先录制宏，再稍作修改就OK了

[llpdev]

哈哈，，，谢谢楼上二位了，，，，我其他的都是用录制宏，再修改，就是这插入行一直没想到，，谢谢二位了。

[ynsmcn]

倒分贴？