明明有的记录，怎么select不出来呢？

Office

详见附件。

zez

改为：select * from [信息列表$] where 资产编号=8630003617 试一试

Office

还是不行啊

roych

LS是正解，因为你所设置的字段不是文本型，因此不要加引号。如果还是不行，应该是数据源连接有问题，应该更改连接：
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\roychan.SZ\Desktop\test\test.xls;Mode=Share Deny Write;Extended Properties="HDR=YES;";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
我下载你的例子后，改了以上两项就好了。

zhaogang1960

原帖由 Office 于 2011-2-18 11:43 发表
详见附件。

试一下vba
Sub Macro1()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;imex=1';Data Source=" & ThisWorkbook.FullName
    SQL = "select * from [信息列表$] where 资产编号='8630003617'"
    ActiveSheet.UsedRange.Offset(1).ClearContents
    [a2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

zhao__feng

excel字段定义不严格，用sql问题多多。

Office

原帖由 zhao__feng 于 2011-2-20 19:34 发表
excel字段定义不严格，用sql问题多多。

如何严格定义字段呢？

Office

非常感谢4楼的哥们。

不知道为什么，我的还是不行。链接也改了。
将文件换到C:\也不行。

roych

在字段上加上书名号看看？
我无法下载附件，只好做个实例传上来。。。。（把它解压为：D:\测试.xls），然后测试看看。 测试.rar (6.37 KB, 下载次数: 7)

2011-2-22 10:48 上传

点击文件名下载附件

Office

非常感谢您的回复，你的附件可以，我的还是测试不成功。