请问SOL脚本要怎么改？运行数据空白

莫悠悠

Sub 查询()
Dim a
Dim sh1 As Worksheet
Dim CN As Object, Sql As String
Set CN = CreateObject("ADODB.Connection")
a = Range("A65536").End(xlUp).Row
If a > 1 Then Range("G2:M" & a).Clear
CN.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
    Sql = "select DISTINCT s.日期,w.产品名称,w.规格,w.型号,w.数量,w.价格,w.金额 from [汇总$] s,[明细$] w WHERE s.日期=w.日期 and s.日期 is not null and w.更新时间=max(w.更新时间) ORDER BY s.日期 DESC"
    Range("G2").CopyFromRecordset CN.Execute(Sql)
    Call gchgs
    CN.Close
    Set CN = Nothing
End Sub

zopey

没见过：
from [汇总$] s,[明细$] w

洋务德雷

连接方式OLEDB,而sql代码好像是ODBC的写法。没看到源文件，不能试。只能说这么多了

龍膽草

from [汇总$] s,[明细$] w这个地方有问题，猜一个，应该是from [汇总$] s left join [明细$] w

拼音佳佳

原则上只做数据库查询的二次开发.你这个是要改数据库那就...