请教关于access数据导入excel的问题

johnsimo

目前手里有一张excel表，已经添加了时间控件，我想导入access数据的时候，excel能根据时间控件所选定的时间筛选出相应时间的数据，请各位老师赐教，谢谢！
ask.rar (14.26 KB, 下载次数: 14)

2011-12-23 07:51 上传

点击文件名下载附件

老夏

使用Excel內之MQ查詢
而非使用VBA

zhangjimfu

http://club.excelhome.net/thread-758903-1-1.html

供参考

johnsimo

谢谢老师，不过我是新手，刚入门，看了还是不太明白。要在access中写vba代码？

zhangjimfu

方法1:在Access创建查询再导入Excel

1. SELECT Sheet1.*, *
   
2. FROM Sheet1
   
3. WHERE (((Sheet1.时间) Between #1/1/2011# And Now()));
   

复制代码

方法2:VBA代码

1. Sub test()
   
2. 
   
3.     Dim strSql$, cnn, rst
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rst = CreateObject("ADODB.Recordset")
   
6.    
   
7.     strSql = "Select * From Sheet1 Where 时间 Between #" & Cells(2, 4) & "# And #" & Cells(2, 5) & "#"
   
8.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb"
   
9.     Set rst = cnn.Execute(strSql)
   
10.     Range("b5").CopyFromRecordset rst
    
11.    
    
12.     cnn.Close
    
13.     Set cnn = Nothing
    
14.     Set rst = Nothing
    
15.    
    
16. End Sub

复制代码

ask.rar (21.92 KB, 下载次数: 15)

2011-12-23 11:59 上传

点击文件名下载附件

johnsimo

谢谢老师！太感谢了