做大创过程中需要将大量Excel数据读入SQLite数据库,百度了很多,但并没有解决我的问题,摸索了一天,想出了一个稍显复杂的办法: 第一步:将xlsx或者xls文件另存为csv文件(注意不能直接修改后缀),如果文件有很多,可以用Excel的宏来批量转换,代码如下: Sub SaveToCSVs() Dim fDir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath = "F:\xxx\xxx\"
