如何制作excel表并自动保存到access

发布网友

我来回答

共2个回答

热心网友

制作excel表并自动保存到access的步骤如下：

1、

2、

3、

4、

5、

6、

7、

8、

热心网友

vb 把excle(bb.xls中sheet1)数据导入到access数据库中已存在的一张表（如aa.mdb中的“表1”）内
ssheetname 为sheet1，sExcelPath 为bb.xls路径，sAccessTable 为表1，sAccessDBPath为aa.mdb的路径
Private 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 8.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]") MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
实现excle导入到access