excelµ¼Èëaccess²»³É¹¦

VB code:
Public Function ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
On Error GoTo Err
ExportExcelSheetToAccess = -1

Dim db As Database

' Dim conn As New ADODB.Connection
' conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sExcelPath & ";Extended Properties=Excel 8.0;" 'ÕâÀï¾Í´íÁË
' conn.Execute "Insert Into [;database=" & sAccessDBPath & "]." & sAccessTable & " Select * from [" & sSheetName & "$]"

Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")

Call db.Execute("DELETE * from [;database=" & sAccessDBPath & "]." & sAccessTable & " ")
Call db.Execute("INSERT INTO [;database=" & sAccessDBPath & "]." & sAccessTable & " Select * from [" & sSheetName & "$]") ¡¯µ÷Óóö´í
MsgBox "Êý¾Ýµ¼Èë³É¹¦£¡", vbExclamation + vbOKOnly

db.Close
Set db = Nothing

ExportExcelSheetToAccess = 0
Exit Function
Err:
MsgBox "Êý¾Ýµ¼Èëʧ°Ü£¡", vbExclamation + vbOKOnly
Exit Function
End Function


ÉÏÃæÊÇÍøÉÏÕÒµ