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