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

来源:百度知道 编辑:UC知道 时间:2024/06/20 07:23:40

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

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

1、

EXCEL中如何自动保存!! 如何取消Excel自动保存? 如何自动保存excel文件? 如何让EXCEL自动保存 如何制作个人网页并保存? 如何设置电子表格EXCEL自动保存 如何设定EXCEL表格自动保存?谢谢 Excel如何设置自动保存?如何加密保存? excel如何制作自动跳转数字按钮 Excel自动保存