VB数据库数据写入到excl文件，怎么打开excl文件是空的，求助 - 编程论坛

#2

xiangyue05102016-07-19 13:02

好像Access可以直接导出为Excel，Excel中也可以导入Access。
如果非要用代码来实现，贴一下关键的语句。并且说明报错的位置。你现在这样简单的描述是没法搞清楚原因的

#3

ZHRXJR2016-07-19 14:40

Access导入到Excel，Excel导入到Access都非常简单，读取数据与导入数据应该同步进行，导入数据必须使用存储语句。
你的问题描述十分模糊，也没有相关代码，因此不知道问题所在，不好具体回答。

#4

sczxj2016-07-19 16:49

只有本站会员才能查看附件，请登录

#5

sczxj2016-07-19 16:50

打不开excl文件

#6

sczxj2016-07-19 16:57

直接用VB“可视化数据管理器”导出就出现：

只有本站会员才能查看附件，请登录

错误提示，首先感谢答复

#7

xiangyue05102016-07-21 08:44

以下是引用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对象

#8

pengzhanggui2016-07-21 11:05

你是要【轉換】還是要【寫入】到excel吖？