VB如何将Excel中的数据批量导入到Access中 – 数据库 – 前端

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = “Open files”CommonDialog1.Filter = “mdb files(*.mdb)|*.mdb”CommonDialog1.Flags = 4 ‘取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)