liqiuheng 发表于 2013-6-17 16:58:08

【已解决】Excel-Ado编程

本帖最后由 liqiuheng 于 2013-6-20 13:26 编辑

如下代码，可以运行

sqlconnection="DSN=excel files;DBQ=D:\2.xls"
sqlcommand="Update set ='1234' where ='QuickTest'"
Set oExcel=CreateObject("adodb.connection")
oExcel.Open sqlconnection
oExcel.Execute(sqlcommand)
oExcel.Close
Set oExcel=nothing

但当把 ='1234' 改成 ='Testing'就出错了（不能赋值成string)

标准表达式中数据类型不匹配。
Line (5): "oExcel.Execute(sqlcommand)".

请问该怎么改才能运行?提前谢过了

zhangkun90 发表于 2013-6-17 19:34:23

同求

liqiuheng 发表于 2013-6-19 18:33:59

处理了一下excel里Password列的格式，在数字前加上单引号，把数字转化成文本，执行就没有问题了。

zhangkun90 发表于 2013-6-20 08:46:35

回复 3# liqiuheng


    额 就是讲excel转化成文本模式嘛

liqiuheng 发表于 2013-6-20 13:22:45

数字不需要用引号 set ='1234'：
改为 set =1234 就可以了

xiajin87 发表于 2013-6-25 10:06:15

sqlconnection="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=0"""   '其中IMEX=0表示更新操作
sqlcommand="Update set =""1234"" where =""QuickTest"""
Set oExcel=CreateObject("adodb.connection")
oExcel.Open sqlconnection
oExcel.Execute(sqlcommand)
oExcel.Close
Set oExcel=nothing
页: [1]
查看完整版本: 【已解决】Excel-Ado编程