VB怎么动态的删除Excel表中的一列

VB如何动态的删除Excel表中的一列
我是这样写的 
Dim xlsApp As Object


Set xlsApp = CreateObject("Excel.Application")
..
..
将数据库内的数据导出到excel表中
..
..
xlsApp.ActiveSheet.Columns [1].Delete


运行时总说 xlsApp.ActiveSheet.Columns [1].Delete 要求对象，怎么回事呢？

[解决办法]