将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做了一个数据采集界面,数据存在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