多条件筛选生成新表

fzlhb

本菜鸟，想通过多条件筛选将 记帐凭证 里的数据生成 三栏明细帐，我也试过了，老是提示至少有一个参数未设置！！我又很菜，打不到原因，放弃了，请哪位高手帮我设计一下

魂断蓝桥

你的表里没有代码，告知你sql就行了吧

Sub a()
Dim sql
sql = "select * from [记帐凭证$g3:u] where 一级科目='" & [n2] & "' and 子目='" & [H3] & "'"
MsgBox sql
End Sub

fzlhb

魂断蓝桥 发表于 2018-9-14 14:09
你的表里没有代码，告知你sql就行了吧

Sub a()

Sub 三栏查询SQ()
Dim cnn, SQL$
     Set cnn = CreateObject("adodb.connection")
     cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
     SQL = "SELECT 年,月份,日,凭证编号,摘要,借方,贷方 FROM [记帐凭证$G3:U6000] WHERE 一级科目 ='" & [三栏明细账$N2] & "' And 子目 ='" & [三栏明细账$H2] & " '"
     Sheets("三栏明细账").Range("H6:R65536").ClearContents       '清理保存数据的区域
     Sheets("三栏明细账").Range("H6").CopyFromRecordset cnn.Execute(SQL)
     cnn.Close
     Set cnn = Nothing
End Sub
请你看看，问题出在哪里

魂断蓝桥

fzlhb 发表于 2018-9-14 14:25
Sub 三栏查询SQ()
Dim cnn, SQL$
     Set cnn = CreateObject("adodb.connection")

Sub 三栏查询SQ()
Dim cnn, SQL$
     Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
      SQL = "select * from [记帐凭证$g3:u] where 一级科目='" & [n2] & "' and 子目='" & [H3] & "'"
     Sheets("三栏明细账").Range("H6:R65536").ClearContents       '清理保存数据的区域
     Sheets("三栏明细账").Range("H6").CopyFromRecordset cnn.Execute(SQL)
     cnn.Close
     Set cnn = Nothing
End Sub

fzlhb

fzlhb 发表于 2018-9-14 14:25
Sub 三栏查询SQ()
Dim cnn, SQL$
     Set cnn = CreateObject("adodb.connection")

在你的提示下，照葫芦画瓢，总算画出来了！！谢谢