请教：CSV文件导入E表文字是乱码怎么办

鄂龙蒙

请教：CSV文件导入E表文字是乱码怎么处理？谢谢！

导入csv文件 测试.rar (18.42 KB, 下载次数: 44)

2019-1-6 20:10 上传

点击文件名下载附件

cjc209

不是乱码啊

chentonny

编码不是UTF-8

ivccav

需要转码吧？把csv格UTF-8转为Excel的ANSI

我也不懂这些转码的事，没有这方面的需求，看看其他人吧。

xyxcc177

用workbooks.opentext命令打开

一把小刀闯天下

'假设只有2种编码：unicode、utf-8，否则输出可能还是乱码，，，

Option Explicit

Sub test()
  Dim filename, arr, i, j, t, b(1) As Byte
  filename = ThisWorkbook.Path & "\2019.csv"
  If Len(Dir(filename)) = 0 Then MsgBox filename: Exit Sub
  Open filename For Binary Access Read As #1
  Get #1, 1, b
  Close #1
  With CreateObject("ADODB.Stream")
    .Type = 2
    .Mode = 3
    .Open
    .LoadFromFile filename
    .Charset = IIf(b(0) & b(1) = &H3E516, "Unicode", "UTF-8")
    .Position = 2
    t = .ReadText
    .Close
  End With
  arr = Split(t, vbNewLine)
  For i = 0 To UBound(arr)
    If InStr(arr(i), ",") Then
      t = Split(arr(i), ",")
      If i = 0 Then ReDim brr(UBound(arr), UBound(t))
      For j = 0 To UBound(t): brr(i, j) = t(j): Next
    End If
  Next
  With [a2]
    .Resize(Rows.Count - 1, UBound(brr, 2) + 1).ClearContents
    .Resize(UBound(brr, 1) + 1, UBound(brr, 2) + 1) = brr
  End With
End Sub

Z_X_P126

收藏研究，谢谢前辈

ykcbf1100

练个手。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.17
   
2.     p = ThisWorkbook.Path & ""
   
3.     f = p & "\2019.csv"
   
4.     With CreateObject("Adodb.Stream")
   
5.         .Type = 2
   
6.         .Mode = 3
   
7.         .Charset = "UTF-8"
   
8.         .Open
   
9.         .Position = 0
   
10.         .LoadFromFile f
    
11.         zrr = Split(.ReadText, Chr(13))
    
12.         .Close
    
13.     End With
    
14.     ReDim brr(1 To UBound(zrr), 1 To 100)
    
15.     On Error Resume Next
    
16.     For i = 0 To UBound(zrr)
    
17.         st = Trim(WorksheetFunction.Trim(zrr(i)))
    
18.         If InStr(st, ",") Then
    
19.             b = Split(st, ",")
    
20. m = m + 1
    
21.             For x = 0 To UBound(b)
    
22.                 brr(m, x + 1) = b(x)
    
23.             Next
    
24.             brr(m, 1) = Split(brr(m, 1), Chr(10))(1)
    
25.         End If
    
26.     Next
    
27.     ActiveSheet.UsedRange.Offset(1) = ""
    
28.     [a2].Resize(m, UBound(b) + 1) = brr
    
29. End Sub
    

复制代码

quqiyuan

这种用PQ也可以嘛，还简单，点击几下鼠标就好了，仅供参考。。。