Excel数据是从网上粘到表格的如图

Replace 字段 With excel.cells(1,1).Value
在dbf表中

多出不是文字的字符，请教各位老师如何解决？谢谢

字段是C类型吧，改M类型看看

版主您好，m型也有，这些好像是网页上的一些设置，不一定是？，还有其他的，不同的网页粘回来的不一样

取出来看看就清楚是什么字符，通常是一些不可打印的控制符，不需要就去掉。

excel表里有不可见的字符，试试把chr(9),chr(10)去掉看看

两位版主好，目前转换后多出 ，以前转时好像还有其他，请帮忙看一下如何去掉，现把表格上传，谢谢

excel用unicode编码，可能有些字VFP识别不了就当是?号了。
如果确定所有正常数据都不包含?号就好办，清除掉就是。
否则，就有点麻烦，要区分清楚哪些?号是不能清除的。
或者可先在excel里清除掉那些“乱码”字，下图是截取一段的unicode编码，其中A0就是那个“?”

cPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
sc = CREATEOBJECT("ScriptControl")
sc.Language = "VBScript"
TEXT TO vbsCode TEXTMERGE NOSHOW PRETEXT 7
    function fun(cFile)
        dim excel
        set excel = createobject("Excel.Application")
        excel.workbooks.open(cFile)
        excel.Cells.Replace ChrW(&hA0), ""
        nRow = excel.sheets(1).UsedRange.Rows.Count
        nCol = excel.sheets(1).UsedRange.Columns.Count 
        fun = excel.Cells(1,1).Resize(nRow,nCol).Value   
        excel.ActiveWorkBook.Saved = 1
        excel.workbooks.close
        excel.quit
    end function 
ENDTEXT  
sc.AddCode(vbsCode)
arr = sc.Run("fun", cPath+"表格.xls")
CREATE CURSOR tt (f1 M)
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt

版主这也太神奇了，速度还快，有些地方看不太懂，请问如果没有安装EXCEL或WPS,判断代码写在set excel = createobject("Excel.Application")后面？

试试LIBXL的方式   2万记录  秒取

[此贴子已经被作者于2023-6-18 18:41编辑过]