如何修改可依ID選擇導入...

冰殤

請問以下程式碼  為將所有數據全部導入
如何修改可再EXCEL依輸入ID選擇導入單筆資料...
以及如何可讓access內的數據導出後可選擇要填入EXCEL的哪個欄位??
導出 工作簿.rar (36.95 KB, 下载次数: 7)

2015-7-10 09:54 上传

点击文件名下载附件

1. Sub 把附件的ACCDB文件數據全部導入EXCEL() 'EXCEL中使用
   
2.     Dim cnn As Object, rs As Object, i&, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test001.accdb"
   
5.     SQL = "select * from Table1"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     Cells.ClearContents
   
8.     For i = 1 To rs.Fields.Count
   
9.         Cells(1, i) = rs.Fields(i - 1).Name
   
10.     Next
    
11.     Range("a2").CopyFromRecordset rs
    
12.     rs.Close
    
13.     cnn.Close
    
14.     Set rs = Nothing
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. 
    

复制代码

roych

讲SQL语句改为
SQL = "select * from Table1  where ID=" & 楼主的ID
'如果比较多可以这样写：
SQL = "select * from Table1  where ID in (1,2,3……）" '写法比较简单，不过效率不是很高。效率高一点的写法应该是ID=1 or ID=2……

冰殤

roych 发表于 2015-7-10 15:15
讲SQL语句改为
SQL = "select * from Table1  where ID=" & 楼主的ID
'如果比较多可以这样写：

感謝分享~來試試看

冰殤

roych 发表于 2015-7-10 15:15
讲SQL语句改为
SQL = "select * from Table1  where ID=" & 楼主的ID
'如果比较多可以这样写：

感謝分享~來試試看