Scarlett_fang 2021-08-12 21:23 采纳率: 100%
浏览 51
已结题

excel 宏,用sql读取csv文件内容,select出来的结果乱码

在excel的宏中,用sql语句去读取另一个csv文件的内容,但是读取出来的数据乱码:
vba代码为:
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source =" & Mypath & ""
SQL = "select * from [" & Myfile & "] "
Set rst = cnn.Execute(SQL)

For a = 0 To rst.Fields.Count - 1
Cells(2, a + 1) = rst.Fields(a).Name
Next
Range("A3").CopyFromRecordset rst

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

读取的csv源文件数据如图片:

img

读取之后recordset复制到excel文件变成了图片中的乱码:

img
请问这个问题该怎么解决。

  • 写回答

1条回答 默认 最新

  • Zht_bs 2021-08-12 21:45
    关注

    改一下文件编码集

    img

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 8月21日
  • 已采纳回答 8月13日
  • 创建了问题 8月12日