¦p¦ó¥ÎVB6.0±Naccess¶×¥X¦¨excel
 
- ©«¤l
 - 20 
 - ¥DÃD
 - 7 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 96 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - win7 
 - ³nÅ骩¥»
 - office 2013 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ¨Ó¦Û¥xÆW·s¥_É] 
 - µù¥U®É¶¡
 - 2010-7-5 
 - ³Ì«áµn¿ý
 - 2020-4-24 
 
  | 
 ¦p¦ó¥ÎVB6.0±Naccess¶×¥X¦¨excel
                
·Q¥ÎVB³]p¤@Ó«ö¶s¡A±N±a¦³±K½XªºaccessÀÉ¡A¶×¥X¦¨excelÀÉ¡Aµ{¦¡¸Ó¦p¦ó¼¶¼g¡H§Úª¾¹D¦p¦ó³s±µ¸ê®Æ®w¤Î¥´¶}¡A¦ý´N¬O¤£¯à¶×¥X¡A½Ð°Ý¤U¦Cµ{¦¡¡A¨º¸Ì¦³»~¡HÁÂÁ¡K 
---------------- 
Private Sub Command4_Click() 
Dim db As Database 
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234" 
Set db = Workspaces(0).OpenDatabase(App.Path & "\test.mdb") 
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\pp\¶×¥X¸ê®Æ.XLS].[¶×¥X¸ê®Æ] FROM [´ú¸Õ¸ê®Æ]" 
End Sub 
------------------------------------------ 
¿ù»~°T®§¡GµLªk¿ëÃÑ test.mdb¸ê®Æ®w®æ¦¡¡K |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 |