VBA导出汉字乱码问题

zhuangshanfu

我在EXCEL中写宏将AS400中的数据写到EXCEL中,但有汉字的字段导出的内容是乱码
下面是我写的代码,有哪位知道应该怎么改才不会出现乱码?
下面是我写的代码,谢谢!
Sheet1.Cells.clear

Sheet1.Cells(1, 1).Value = "AAAA"
Sheet1.Cells(1, 2).Value = "BBBB"
Sheet1.Cells(1, 3).Value = "CCCC"
Sheet1.Cells(1, 4).Value = "DDDD"
Sheet1.Cells(1, 5).Value = "EEEE"

'link as400
'CCSID = '65535'
Dim Conn As New ADODB.Connection
  Conn.Open ("rovider=IBMDA400;Data Source=000.00.000.000;User id=XXXassword=XXX;QUOTE TYPE C 65535"

Dim rs As New ADODB.Recordset
   Dim i As Integer
   i = 2
   
Sql = "select * from LIB1.FILE1 where EEEE=12345"
  
    rs.Open Sql, Conn, 1, 3

If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
         Sheet1.Cells(i, 1).Value = Trim(rs("AAAA".Value)
         Sheet1.Cells(i, 2).Value = Trim(rs("BBBB".Value)
         Sheet1.Cells(i, 3).Value = Trim(rs("CCCC".Value)
          Sheet1.Cells(i, 4).Value = Trim(rs("DDDD".Value)
            Sheet1.Cells(i, 5).Value = Trim(rs("EEEE".Value)
        rs.MoveNext
        i = i + 1
    Loop
Else
   MsgBox "NO DATA!"
    Sheet1.Cells.clear
    EXIT SUB
End If
    MsgBox "OK!"

q疯哥p

有中文的字段设置成O型  比较好点。

junhm

这是因为AS/400的ODBC驱动汉字转码不完善所致。没有好办法。
上海道仑软件公司的跨平台数据库复制产品DBRoad可以解决这个问题。DBRoad可以实时或定时地将AS/400的数据同步到其它数据库如SQL SERVER,ORACLE中，供其它的应用使用，没有汉字和特殊字符问题。
如果有兴趣，可以联系我们：
http://www.taoroad.com/articles.aspx?id=DBRoad
xiongjm@taoroad.com
021-62786226-8008

llfgod

CCSID用935试试看