语句可以写，不过一般都会失败，因为默认是不允许访问VBA对象的，示例代码：
Set Wb = Nothing
MyPth = "xxx.xls"
Set Wb = GetObject(MyPth)
With Wb.VBProject.VBComponents.Item("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
End With
Wb.Close True
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024