求VBA代码（CSV文件内容导入excel）

Posted 2023-05-09

CSV文件：类似于QA一览，会有新增的问题，也会对原来的问题进行更新EXCEL文档：字段与CSV文件不一致，且顺序不一致，但是需要获取CSV中存在的字段的值希望有单独的工具，定期运行，追加数据和更新原因数据

Sub fMain()
Dim fTextDir As String, rowIndex As Integer, i As Integer
rowIndex = 1：tYesNO=0 'tYesNO为0表示没有首行，如果有改成1
fTextDir = "D:/status.csv" ' csv文本路径
Open fTextDir For Input As #1 ' 导入文本
Do While Not EOF(1) '逐行循环
Line Input #1, currLine '取第一行，并赋值
if tYesNO=0 or rowindex>1 then
rowDataArr = Split(currLine, ",")
For i = 3 To 8
Cells(rowIndex + 1-tYesNO, i + 4).FormulaR1C1 = rowDataArr(i)
Next i
end if
rowIndex = rowIndex + 1
If rowIndex-tYesNo > 15 Then Exit Do
Loop
Close #1
End Sub 参考技术A 那就把它当作文本文件读写好了！

如何将手机中的csv文件的内容导入到SQLite数据库中

现在做安卓的一个项目，要实现数据的导入导出功能，导出已经做好，将APP存到本地的SQLite数据库中的内容已经导出到内存卡中，文件时CSV格式。现在要将CSV格式的文件再导入到本地的SQLite数据库中，找了好长时间的demo，都没找到，求大神指点。。。

参考技术A 自编程，用逗号分割拆分，再生成相应sql语句，完成导入呀。追问

刚刚接触安卓，能不能帮忙写个demo，非常感谢