类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我用PB读Excel的数据，英文读写正常，但读中文时每次都有乱码出现。不知怎么处理
我的代买如下：
LONG Ll_NumCols,Ll_NumRows,Ll_C,Ll_R
OLEObject xlApp , xlSub
INTEGER Li_Ret
String tem_str
// 获取行列数
Ll_NumRows = dw_1.RowCount()
Ll_NumCols = LONG(dw_1.Object.DataWindow.Column.Count)
// 创建OLE对象
xlApp = CREATE OLEObject
// 连接Excel
Li_Ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
IF Li_Ret < 0 THEN
MessageBox("系统提示！","连接Excel出错！")
RETURN
END IF
FileCopy("fileorigin.xls","file.xls",TRUE)
xlApp.Application.Workbooks.Open("file.xls")
xlApp.Application.Visible = TRUE
xlSub = xlApp.Application.ActiveWorkbook.Worksheets[1]
tmp_str = String(xlSub.cells(1,1).value) //该位置为中文
MessageBox("显示中文",tmp_str) //结果中文显示出现乱摸，英文显示正常
xlApp.DisConnectObject()
DESTROY xlApp
网友回答：
适用 clipBoard,详细情况看 FAQ
pb升级到9.0
看 FAQ 中关于数据导入导出的问题吧！
不能直接这么取的，这样就可以了：
ole_excel.Application.workbooks(1).worksheets(1).cells(1,3).Copy()
ls_mc = Clipboard()
ls_mc = trim(Left(ls_mc,Len(ls_mc)-2))
我也遇到过，我把系统的字体改成中文就好了
pb8以上读取才能正常, pb7及以下不行