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)