select与from之间的变量在那里定义的，附件宏，请帮助

uukhitx

s = "select f24,f2,f6,sum(f3),f5,null as 单位,f4 from [料单$b5:y] where f24 like '%线%'and f6 like'%澳松板%'or f6 like'%实木%'or f6 like'指接板'group by f24,f6,f2,f5,f4"



附件表格：f24,f2,f6,f3,f5,f4这些字段在那里定义的没有找到定义方法，求解。

无敌小猪猪

SQL对表格的格式比较严格，你这种有合并单元格什么的建议还是用数组的方式吧

ZHLK

你这个f24,f2,f6,f3,f5,f4是查询区域没有标题，也就是字段名，系统默认字段名为Fn,n为查询的各列序号

uukhitx

ZHLK 发表于 2023-5-27 09:42
你这个f24,f2,f6,f3,f5,f4是查询区域没有标题，也就是字段名，系统默认字段名为Fn,n为查询的各列序号

现在提示这个， 是怎么回事儿

ZHLK

测试数据太少，无法进行。看了一下，应该是行删除太多了

uukhitx

ZHLK 发表于 2023-5-28 10:50
测试数据太少，无法进行。看了一下，应该是行删除太多了

Sub 木皮筛选()
    Dim cnn As Object, s$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=no';data source=" & ThisWorkbook.FullName
    s = "select f236,f237 from [料单$ic5:ih] where f236 like '%皮%'and f237 like '%天然%'or f237 like '%科技%' group by f236,f237"
    Range("a5").CopyFromRecordset cnn.Execute(s)
    cnn.Close
    If Range("a5") = "" Then Exit Sub
    Set cnn = Nothing
    For j = 5 To Cells(Rows.Count, 1).End(3).Row
        Cells(j, "f") = "平方"
    Next j
End Sub




数据表里数据也够多，还有有错误提示。

xyxcc177

uukhitx 发表于 2023-5-29 07:52
Sub 木皮筛选()
    Dim cnn As Object, s$
    Set cnn = CreateObject("adodb.connection")

gm:he只有19列，F24自然找不到啊

语虚何以言知

如果用ado的方法,那么表格设计多少也参照下数据库三范式

WANT-T

数据库没有表头，所以才报这个错，添加表头，统一下字段就解决了！反反复复的都是这个问题！