- ©«¤l
- 34
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- Winxp
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-1-25
- ³Ì«áµn¿ý
- 2019-3-4
|
[µo°Ý] ±NexcelÀÉimport¨ìAccess table
¥H¤Uµ{§Ç·|¶}±ÒC:\Access test\db1.accdb
§Ú»Ýn±NC:\Book1.xlsx sheet(1) import¦¨¬°db1.accdbªºTable(Table¦W¬°"Book1"¡A즳ªº"Book1" table§ï¦W¬°"Book1_backup")
n«ç¼Ë°µ¡H·PÁ¡I
Sub Connect_Access()
'Dim cnn As ADODB.connection
db1_path = "C:\Access test\"
db1_name = "db1.accdb"
Dim MyAccess As Object
Set MyAccess = CreateObject("Access.Application")
MyAccess.Visible = True
MyAccess.OpenCurrentDatabase (db1_path & db1_name)
'----------------------------
'----------------------------
Set MyAccess = Nothing
End Sub |
|