VB 将EXCEL数据导入到Access数据库中

'ToDo: 设置 common dialog 控件的标志和属性 .Filter = "Excel文件 (*.xls) |*.xls" .ShowOpenIf Len(.FileName) = 0 ThenExit SubEnd Ifsfile = .FileNameEnd WithAccessPath = lcspath & "\db.mdb" '数据库路径 excelpath = sfile '电子表格路经 AccessTable