Scarlett_fang
2021-08-12 21:23
采纳率: 50%
浏览 16

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

    已采纳该答案
    1 打赏 评论

相关推荐 更多相似问题