将Access的表内数据生成一张EXCEL报表 总说无法创建怎么处理

将Access的表内数据生成一张EXCEL报表 总说无法创建怎么办
我自己用VB做了一个数据采集界面，数据存在Access内 现在想要把采集到数据生成一张EXCEL表格
我参照了很多方法 但是在生成EXCEL表格时候 总是提示无法创建 请问大家应该怎么办？

[解决办法]
这儿有完整的代码:
http://wenku.baidu.com/view/caade738580216fc700afd2b.html
[解决办法]
Set xlApp = CreateObject("Excel.Application ")
上句多了个空格
应该为
Set xlApp = CreateObject("Excel.Application")
完整代码:

VB code

Private Sub Command1_Click()    Dim Irow, Icol As Integer    Dim Irowcount, Icolcount As Integer    Dim Fieldlen() '存字段长度值    Dim xlApp As Variant    Dim xlBook As Variant    Dim xlSheet As Variant    Set xlApp = CreateObject("Excel.Application")    Set xlBook = xlApp.Workbooks.Add    Set xlSheet = xlBook.Worksheets(1)    xlApp.Visible = True    '.........End Sub