在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

忘得快

opiona 发表于 2013-1-29 11:33
ADO好像不支持带密码的Excel链接
可以先打开，链接，然后在关闭
打开的代码：

大侠你好！菜鸟依据你的代码修改后还是不能运行，提示运行错误’3704’:对象关闭时，不允许操作。
Sub yy1()
    Dim Sql$, Sht1 As Worksheet
    Dim Conn
    Set Sht1 = Sheets("Sheet1")
    Sht1.Activate
    Set Conn = CreateObject("Adodb.Connection")
    Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\A1.xls", Password:="123")  '//打开带密码的工作簿
    Sql = "select Sum(金额*数量) from [Sheet1$] where month(日期)=5 group by 品名 "
    Sht1.Activate
    Sht1.Cells(3, 2).CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
     WB.Close   '//关闭工作簿
    Set WB = Nothing
End Sub
是否代码位置放错了？请大侠再帮菜鸟看看，谢谢！

opiona

你没有打开Conn，当然查不到啦啊

1. 
   
2. Sub yy1()
   
3.     Dim Sql$, Sht1 As Worksheet
   
4.     Dim Conn
   
5.     Set Sht1 = Sheets("Sheet1")
   
6.     Sht1.Activate
   
7.     Set Conn = CreateObject("Adodb.Connection")
   
8.     Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\A1.xls", Password:="123")  '//打开带密码的工作簿
   
9.     Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\A1.xls"   '这个必须有
   
10.      Sql = "select Sum(金额*数量) from [Sheet1$] where month(日期)=5 group by 品名 "
    
11.     Sht1.Activate
    
12.     Sht1.Cells(3, 2).CopyFromRecordset Conn.Execute(Sql)
    
13.     Conn.Close
    
14.     Set Conn = Nothing
    
15.      WB.Close   '//关闭工作簿
    
16.     Set WB = Nothing
    
17. End Sub

复制代码

忘得快

opiona 发表于 2013-1-30 13:12
你没有打开Conn，当然查不到啦啊

谢谢大侠指点！

忘得快

opiona 发表于 2013-1-30 13:12
你没有打开Conn，当然查不到啦啊

大侠你好！运行你的代码后出现一个怪现象，就是运行几次，A1.xls在工程窗口出现几次，按理说A1.xls文件已关闭在工程窗口应该看不到啊，怎么会越来越多的A1.xls呢？请大侠指点，谢谢！

忘得快

opiona 发表于 2013-1-30 13:12
你没有打开Conn，当然查不到啦啊

opiona

具体什么原因不知道
关闭Excel在打开就不见了！

忘得快

opiona 发表于 2013-1-30 19:26
具体什么原因不知道
关闭Excel在打开就不见了！

是的，关闭Excel再打开就不见了！

的林

好文章，帮助里都找不到，不知从哪里得到的资料？

的林

excel2007 数据筛选的文本搜索框怎么不见了，不知怎么调出来？

的林

1. 
   
2. Sub GetQuery()
   
3. Dim cn As ADODB.Connection
   
4. Set cn = New ADODB.Connection
   
5. With cn
   
6. .Provider = "Microsoft.Jet.OLEDB.4.0"
   
7. .ConnectionString = "Data Source=" & ActiveWorkbook.Path & "" & ActiveWorkbook.Name & ";" & _
   
8. "Extended Properties=Excel 8.0;"
   
9. .Open
   
10. End With
    
11. Dim rs As ADODB.Recordset
    
12. Set rs = New ADODB.Recordset
    
13. rs.ActiveConnection = cn
    
14. 'Create sql string
    
15. sql_str = "select * from [sheet2$] " 'where field1='condition'"
    
16. rs.Open sql_str
    
17. ThisWorkbook.Sheets(3).[a2].CopyFromRecordset cn.Execute(sql_str)
    
18. ThisWorkbook.Sheets(1).[m1].CopyFromRecordset rs
    
19. rs.Close
    
20. cn.Close
    
21. End Sub
    

复制代码