用ado打开Excel文件时报"外部表不是预期的格式"的解决方法

在用ado将Excel表格数据导入到数据库时,ado打开Excel文件报"外部表不是预期的格式"的错误码。其原因是Excel数据格式不是标准的Microsoft Excel的数据格式。

解决方法:用Microsoft Excel找开文件,并另存为Excel文件,就可以解决这个问题。

 

然后在用ADO打开这个Eecel文件,错误没有啦。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
使用 VBA 中的 ADO 连接 Excel 数据获取数据需要以下步骤: 1. 引用 Microsoft ActiveX Data Objects 库。 在 VBA 编辑器中,依次点击菜单栏中的“工具”→“引用”,勾选“Microsoft ActiveX Data Objects 2.x 库”(其中的“x”示版本号,您可以选择您电脑上已安装的版本)。 2. 创建 ADO 连接对象。 在 VBA 代码中,使用 `CreateObject` 方法创建 ADO 连接对象,并设置连接字符串。例如,以下代码创建了一个连接到 Excel 工作簿的连接对象: ``` Dim cn As Object Set cn = CreateObject("ADODB.Connection") cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\excel\workbook.xlsx;Extended Properties=""Excel 12.0;HDR=YES"";" ``` 其中 `Provider` 参数指定了使用的 OLE DB 提供程序,这里使用的是 Microsoft.ACE.OLEDB.12.0,它可以连接 Excel 文件。`Data Source` 参数指定了 Excel 文件的路径和文件名,`Extended Properties` 参数指定了 Excel 文件的属性,例如 `HDR=YES` 示第一行是标题行。 3. 打开连接。 使用 `Open` 方法打开连接: ``` cn.Open ``` 4. 创建 ADO 命令对象。 在 VBA 代码中,使用 `CreateObject` 方法创建 ADO 命令对象,并设置 SQL 语句。例如,以下代码创建了一个查询 Excel 数据的命令对象: ``` Dim cmd As Object Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = cn cmd.CommandText = "SELECT * FROM [Sheet1$]" ``` 其中 `ActiveConnection` 属性指定了连接对象,`CommandText` 属性指定了 SQL 语句,这里查询了名为“Sheet1”的数据的所有数据。 5. 执行命令并获取数据。 使用 `Execute` 方法执行命令,并使用 `Recordset` 属性获取查询结果。例如,以下代码执行命令并将结果保存到 `rs` 变量中: ``` Dim rs As Object Set rs = cmd.Execute ``` 您可以使用 `rs` 变量中的方法和属性获取查询结果,例如 `rs.Fields` 获取所有字段名,`rs.GetRows` 获取所有数据行。 6. 关闭连接。 使用 `Close` 方法关闭连接: ``` cn.Close ``` 完整的示例代码如下: ``` Sub GetExcelData() Dim cn As Object Dim cmd As Object Dim rs As Object '创建连接对象 Set cn = CreateObject("ADODB.Connection") cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\excel\workbook.xlsx;Extended Properties=""Excel 12.0;HDR=YES"";" '打开连接 cn.Open '创建命令对象 Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = cn cmd.CommandText = "SELECT * FROM [Sheet1$]" '执行命令并获取数据 Set rs = cmd.Execute Debug.Print rs.Fields(0).Name Debug.Print rs.GetRows(10) '关闭连接 cn.Close End Sub ``` 注意,以上代码仅供参考,您需要根据您的实际情况进行修改。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值