用VB弄个ACcesss数据库，想把数据转换成excl文件，思路，引用、定义，先在D盘建了excl文件，打开文件，用查询语言写入excl表格，用循环语句写，怎么打开excl文件是空的，没数据，后来一运行，不仅没数据，，连窗口都不能编辑，一编辑窗口就提示：0x0000000，内容为只读，然后自动退出。现在连代码也打不开，求教：VB数据库如何转成excl文件，转时怎么没数据？多谢

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

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

打不开excl文件

直接用VB“可视化数据管理器”导出就出现： 错误提示，首先感谢答复

代码好像没有什么错误，这个是一个例子。 引用添加了么？

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对象

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