VB6打开Excel文件报错

错误提示是说你数据库对象版本不匹配 建议你用ado对象来链接数据库文件 工程引用 mcrosoft activex activex data object

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中 *** 作EXCEL表常用命令：

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

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令 *** 作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它 *** 作，也能够关闭EXCEL，同时也可对EXCEL进行 *** 作。但在EXCEL *** 作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

'以下演示了用 VB 打开excel，

Dim ExlApp As Object

Dim ExlBook As Object

Dim ExlSheet As Object

Set ExlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例

Set ExlBook = ExlApp.Workbooks.Add '创建Excel的工作簿

Set ExlSheet = ExlBook.Worksheets(1) '创建Excel的一张表

ExlSheet.Range("A:G").Font.Size = 9 '设置A到G列的字号

ExlSheet.Range("A:G").Font.Name = "宋体"'A到G列字体

ExlSheet.Range("A:A").RowHeight = 24'A到A列行高

ExlSheet.Range("A1:G1").Font.Name = "黑体" '首行字体

ExlSheet.Range("A1:G1").Font.Bold = True'首行加粗

'ExlSheet.Rows.HorizontalAlignment = xlVAlignCenter '设置水平居中

'ExlSheet.Rows(1).RowHeight = 24 '第1行的行高=24

ExlSheet.Cells(1, 1).Value = "单　位"

'------写入EXCEL表结束-----

ExlApp.Visible = True '显示Excel

Set ExlSheet = Nothing

Set ExlBook = Nothing

Set ExlApp = Nothing

这点代码你参考下吧。只是写入excel。我没能理解你的意思。而且我也只是一个初学者

如果你把excel 当成数据库 *** 作，就像读数据库中的数据值一样。当然可以赋值给数据，分成小数组，没能理解。

---