joey0415

§Ú¦Û¤v¥H«e³o¼Ë¼g¡A§A°Ñ¦Ò¬Ý¬Ý

1.         sub ex
   
2.                
   
3.                         Set cnn = CreateObject("adodb.connection")
   
4.                         cnn.Open ("Driver={SQLite3 ODBC Driver};database=" & ThisWorkbook.Path & "\CB.sqlite")'¦Û¦æ­×§ïdrive
   
5.                         Set rss = cnn.Execute("select * from XXX")
   
6.                                 For i = 0 To rss.Fields.Count - 1 '¨ú¼ÐÃD¡A¦pªG¤£­n¥i¬Ù²¤
   
7.                                         Cells(1, i + 1) = rss.Fields(i).Name
   
8.                                 Next
   
9.                         Worksheets("X").Cells(2, 1).CopyFromRecordset (rss) 'cells(2,1)²Ä¤@¦æ¦³¼ÐÃD
   
10.                         cnn.Close
    
11. 
    
12.                         Set cnn = Nothing
    
13.                         Set rss = Nothing
    
14.                
    
15.                 end sub

½Æ»s¥N½X

¦^´_ 4# woteil