Question

参数不足,期待是一

各位朋友，请帮我看一下这段代码吗？？
它显示参数不足，期待的是1
Sub 椭圆5_单击()
Set conn = CreateObject("adodb.connection")
'conn.Open "dsn=excel files;dbq=f:\报表\无流动(原始).xls"
conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\无流动(原始).xls"

Sheets("原表").Range("5:5000").ClearContents
Sql = "select * from [原表$] where 库区 like '%蓝天%'"
Sheets("原表").[B2].CopyFromRecordset conn.Execute(Sql)

conn.Close: Set conn = Nothing
End Sub
但是我不知要如何改，请大家帮忙一下

Answer 1

您的数据源是不是还没有配置，肉已经有配置请在数据库的调用上设置主键，并在Ctrl+W上对数据库进行更新即可。