请教高手，如果excel中没有表头，sql语句如何写？

syub97

如果想从没有表头的数据表选取内容，如何写sql语句？
用下边的总是出错
SQL = "select a.f1,b.f2 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & f1 & "$] a left join [" & f2 & "$] b on a.f1 = b.f1"


请高手指点下！


该贴已经同步到 syub97的微博

zhaogang1960

如果是自连接（cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.FullName）
那么不需要加[Excel 8.0;Database=" & ThisWorkbook.FullName & "]
SQL语句中要有工作表：
sql = "select a.f1,b.f2 from .[表1$] a left join [表2$] b on a.f1 = b.f1"

syub97

zhaogang1960 发表于 2012-3-15 01:34
如果是自连接（cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';D ...

赵老师终于把您给盼来了。

详细情况是这样的，目前有两个表，一个查询表，另外一个数据表。主要是想根据查询表中输入的内容在数据表中进行查询，然后把查找到的内容复制到查询表中。

有一个问题是现在不确定数据表的表头到底有多少，所以想用忽略抬头的select方法。

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=No';Data Source=" & Mypath & MyFile

SQL = "select a.f1, b.f2, b.f3, b.f4, b.f5, b.f6, b.f7, b.f8, b.f9, b.f10 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & f1 & "$] a left join [" & f2 & "$] b on a.f1 = b.f1"


不知道错误出现在那里，还请老师多多指教。

附件奉上，顺便请老师看看有什么能改进的没有。麻烦您了！谢谢 select.rar (23.2 KB, 下载次数: 30)

2012-3-15 10:55 上传

点击文件名下载附件

zhaogang1960

syub97 发表于 2012-3-15 10:50
赵老师终于把您给盼来了。

详细情况是这样的，目前有两个表，一个查询表，另外一个数据表。主要是想根 ...

1. Sub Macro4()
   
2.     Dim cnn As Object, SQL$, Mypath$, MyFile$
   
3.     Mypath = ThisWorkbook.path & ""
   
4.     MyFile = Dir(Mypath & "*.xls")
   
5.     Application.ScreenUpdating = False
   
6.     Do While MyFile <> ""
   
7.         If MyFile <> ThisWorkbook.Name Then
   
8.             Set cnn = CreateObject("adodb.connection")
   
9.             cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyFile
   
10.             SQL = "select a.IMPA,b.CODE, b.DESCRIPTION, b.SPECIFICATION, b.UNIT, b.采购科的进价 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [英文$] b on a.IMPA = b.IMPA"
    
11.             [a2].CopyFromRecordset cnn.Execute(SQL)
    
12.         End If
    
13.         MyFile = Dir()
    
14.     Loop
    
15.     cnn.Close
    
16.     Set cnn = Nothing
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

zhaogang1960

请看附件
select.rar (16.81 KB, 下载次数: 115)

2012-3-15 12:51 上传

点击文件名下载附件

syub97

zhaogang1960 发表于 2012-3-15 12:51
请看附件

赵老师，都怪我没有说清楚，我给的附件的表头是确定的，这种情况下确实可以直接用表头去读取数据。
但是在未来的一段时间，表头是可能发生变化的，如果发生变化就需要去修改SQL语句，这样会比较麻烦，所以才去考虑能否直接忽略表头，根据输入的内容固定的从数据表中提取10列内容。

在网上搜索之后发现说，如果没有表头，系统会自动的分配F(i)为每一列，以此作为选择的标准。 但是我写的那一段不知道为什么还存在问题？

所以在这里还要麻烦您！

wj2368

syub97 发表于 2012-3-15 13:28
赵老师，都怪我没有说清楚，我给的附件的表头是确定的，这种情况下确实可以直接用表头去读取数据。
但是 ...

“我给的附件的表头是确定的，这种情况下确实可以直接用表头去读取数据”
赵老师怎么没用啊，你请教什么啊，你自己做着

wj2368

请教也要有点。。。。

syub97

wj2368 发表于 2012-3-15 13:33
“我给的附件的表头是确定的，这种情况下确实可以直接用表头去读取数据”
赵老师怎么没用啊，你请教什么 ...

不好意思，我比较笨，所以没有看出来，到底是如何实现不根据表头去选择数据的，能够麻烦您指点一下。

wj2368

syub97 发表于 2012-3-15 13:48
不好意思，我比较笨，所以没有看出来，到底是如何实现不根据表头去选择数据的，能够麻烦您指点一下。

1. Sub test()
   
2.     Dim cnn, mSQL, Arr
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.Path & "\IMPA船舶物料指南（第4版）电子版.xls"
   
5.           mSQL = "select * from [英文$] "
   
6.        Range("a2").CopyFromRecordset cnn.Execute(mSQL)
   
7. End Sub

复制代码