标题:VB数据库数据写入到excl文件,怎么打开excl文件是空的,求助
只看楼主
sczxj
Rank: 1
等 级:新手上路
帖 子:10
专家分:4
注 册:2016-7-19
结帖率:0
已结贴  问题点数:20 回复次数:7 
VB数据库数据写入到excl文件,怎么打开excl文件是空的,求助
用VB弄个ACcesss数据库,想把数据转换成excl文件,思路,引用、定义,先在D盘建了excl文件,打开文件,用查询语言写入excl表格,用循环语句写,怎么打开excl文件是空的,没数据,后来一运行,不仅没数据,,连窗口都不能编辑,一编辑窗口就提示:0x0000000,内容为只读,然后自动退出。现在连代码也打不开,求教:VB数据库如何转成excl文件,转时怎么没数据?多谢
搜索更多相关主题的帖子: 数据库数据 如何 
2016-07-19 08:31
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:934
专家分:5244
注 册:2015-8-10
得分:7 
好像Access可以直接导出为Excel,Excel中也可以导入Access。
如果非要用代码来实现,贴一下关键的语句。并且说明报错的位置。 你现在这样简单的描述是没法搞清楚原因的
2016-07-19 13:02
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:7 
Access导入到Excel,Excel导入到Access都非常简单,读取数据与导入数据应该同步进行,导入数据必须使用存储语句。
你的问题描述十分模糊,也没有相关代码,因此不知道问题所在,不好具体回答。

请不要选我!!!
2016-07-19 14:40
sczxj
Rank: 1
等 级:新手上路
帖 子:10
专家分:4
注 册:2016-7-19
得分:0 
2016-07-19 16:49
sczxj
Rank: 1
等 级:新手上路
帖 子:10
专家分:4
注 册:2016-7-19
得分:0 
打不开excl文件
2016-07-19 16:50
sczxj
Rank: 1
等 级:新手上路
帖 子:10
专家分:4
注 册:2016-7-19
得分:0 
直接用VB“可视化数据管理器”导出就出现:
错误提示,首先感谢答复
2016-07-19 16:57
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:934
专家分:5244
注 册:2015-8-10
得分:0 
以下是引用sczxj在2016-7-19 16:49:32的发言:

代码好像没有什么错误,这个是一个例子。 引用添加了么?
程序代码:
Dim xlApp As Excel.Application 
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建Excel对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的Excel工件簿文件
xlApp.Visible = True '设置Excel对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束Excel对象
2016-07-21 08:44
pengzhanggui
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:161
专家分:344
注 册:2015-7-20
得分:7 
你是要【轉換】 還是要【寫入】到excel吖?

来找我试试看
2016-07-21 11:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-467038-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027993 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved