请教如何SQL连接包含特定文字的表!!!

ac_ca

con.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=F:\模板\新建文件夹\“&*库存*&".xls"
请教高手绿色字的表达为什么不正确？我的目的是连接含有库存两字的表（这文件夹下只有一个表包含库存两字）。请高手指教!!谢谢！！！

tuujjjj

sql不支持通配符的

cjc209

你是想当然

鑫尼达

sql不支持通配符的说法应该是不准确的,最简单的select * 的写法就是通配符.

可以先遍历获取到所有表名再判断确定的完整的表名赋值给变量吧.

lss001

Sub 查询()
    Dim i, sql$, cn As Object, rs As Object
    Set cn = CreateObject("ADODB.Connection")
    'Set rs = CreateObject("ADODB.Recordset")
   
    ph = "F:\模板\新建文件夹\*库存*.xls" '指定
    Shell "cmd /c dir /a-h/b/s """ & ph & """|clip", 0
    t = Timer: Do While Timer < t + 2: DoEvents: Loop
    Set cp = CreateObject("htmlfile")
    Set pp = cp.ParentWindow.ClipboardData
    f = Application.Clean(pp.GetData("text"))

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & f _
         & ";Extended Properties='Excel 12.0;HDR=yes;IMEX=2'"

    'sql = "select * from [sheet1$]"
    'Set rs = cn.Execute(sql)
    'cn.Close: Set cn = NoThing
End Sub

ac_ca

lss001 发表于 2022-5-16 07:44
Sub 查询()
    Dim i, sql$, cn As Object, rs As Object
    Set cn = CreateObject("ADODB.Connection ...

谢谢高手帮助！

ac_ca

鑫尼达 发表于 2022-5-15 23:19
sql不支持通配符的说法应该是不准确的,最简单的select * 的写法就是通配符.

可以先遍历获取到所有表名再 ...

谢谢指点！！！

ac_ca

cjc209 发表于 2022-5-15 22:56
你是想当然

就是想有没有这样的解决方法。

ac_ca

tuujjjj 发表于 2022-5-15 22:47
sql不支持通配符的

谢谢指点！

ac_ca

lss001 发表于 2022-5-16 07:44
Sub 查询()
    Dim i, sql$, cn As Object, rs As Object
    Set cn = CreateObject("ADODB.Connection ...

试了一下，不行！提示无效参数。
f = Application.Clean(pp.GetData("text"))

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & f _
         & ";Extended Properties='Excel 12.0;HDR=yes;IMEX=2'"
调示显示这条代码有问题。