将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