joey0415

¦^´_ 1# junkwei

sql»yªk§Y¥i§¹¦¨
stock.mdb=>´«¦¨§Aªº¸ê®Æ®w¦WºÙ
¬Y¬Yªí=>´«¦¨§A¸ê®Æ®w¤¤ªº¸ê®Æªí¦WºÙ

¥H¤W¬Omdb»yªk¡A·s¸ê®Æ®w½Ð¦Û¦æ·j´M´À´«

1. Sub ex()
   
2. 
   
3.     Worksheets("1").Activate
   
4.     Set cn = CreateObject("adodb.connection")
   
5.     cn.Open ("Driver={Microsoft Access Driver (*.mdb)};dbq=" & ThisWorkbook.Path & "\stock.mdb")
   
6.     Set rs = cn.Execute("select ¯Z¯Å,max(¦~¬ö) as ³Ì¤j¦~¬ö,min(¦~¯Å) as ³Ì¤p¦~¬ö from   ¬Y¬Yªí  group by ¯Z¯Å")
   
7.     w = 1
   
8.     For Each tt In rs.Fields 'Åã¥Üªí³æ¦WºÙ
   
9.         Cells(w) = tt.Name
   
10.         w = w + 1
    
11.     Next
    
12.     Cells(2, 1).CopyFromRecordset (rs)'¥s¥X¸ê®Æ
    
13.     cn.Close
    
14.     Set cn = Nothing
    
15.     Set rs = Nothing
    
16. 
    
17. End Sub

½Æ»s¥N½X