把CUGDATA.DBF文件导入到access中,应该把以下函数如何改:

wangjw11

把CUGDATA.DBF文件导入到access中,应该把以下函数如何改:











把CUGDATA.DBF文件导入到access中,应该把以下函数如何改:

Public Sub ExportExcelSheetToAccess(sSheetName As String, _

   sExcelPath As String, sAccessTable As String, sAccessDBPath As String)

Dim db As Database

Dim rs As Recordset

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

               Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _

                sAccessTable & " FROM [" & sSheetName & "$]")

MsgBox "Table exported successfully.", vbInformation, "Yams"

End Sub

谢谢!