做大创过程中需要将大量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\"
