如何将EXCEL表导入到SQL数据库中?
使用ADO控件连接SQL数据库,现在需要把EXCEL文件导入SQL数据库,该怎么办?谢谢!
[解决办法]
Private Sub ImportExcel(strExcelName As String)Dim objExcel As Excel.ApplicationDim i As IntegerSet objExcel = New Excel.ApplicationobjExcel.Workbooks.Open strExcelName '你的一些判断i=2While objExcel.Cell(i,1).value<>"" '根据excel每行的值,做你的数据库操作i=i+1WendobjExcel.QuitEnd Sub
[解决办法]
同样使用ADO连接Excel查询,将得来的记录集插入Sql数据库中