现有一个EXCEL固定的表65列，每列都 是字符型，想导入到VF中来处理，如何用程序导入请大神出个成品，能直接使用的。谢谢

电脑没有安装EXCEL2016，是在WIN7+VFP9 7423+EXCEL2007环境下测试的。

oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
    .WorkBooks.Open(SYS(5) + SYS(2003) + "\名册.Xlsx")
    .ActiveSheet.UsedRange.Select
    WITH .Selection
        .Columns.AutoFit
        nRow = .Rows.Count - 1
        nColumn = .Columns.Count - 0
        LOCAL ArrayName[nRow, nColumn]
        ArrayName = .Cells(2, 1).Resize(nRow, nColumn).Value
    ENDWITH 
    .DisplayAlerts = .F.
    .WorkBooks.Close
    .Quit    
ENDWITH 
lcStr = "序号 N(2)"
FOR lnj = 1 TO 64
    lcStr = lcStr + ", F" + TRANSFORM(lnj) + " C(40)"
ENDFOR
CREATE CURSOR test (&lcStr)
INSERT INTO test FROM ARRAY ArrayName
LOCATE 
BROWSE 

谢谢，测试一下，正在使用

自从数据超过65536后，不能用2003了，只好用高版本，而高版本又没有另存为...DBF格式的功能了。好在VFP能读EXCEL，所以，自用上OFFICE2007后，都是采用读取单元格的方法来解决，虽然速度上损失一点，但还是可以忍受的程度。

ArrayName = .Cells(2, 1).Resize(nRow, nColumn).Value   
这句是个思路，请教一下，可以反向吗，及批量替换Excel选定区域的内容 替换为VFP的数组内容

可以

版主百忙之中还能及时关注啊，谢谢！
我指的不是通过循环哦，就是类似赋值那样 一句就搞定的，目的其实只有一个，就是更高效
比如，通常我们取Excel数据，都是循环读取每个单元格，感觉这种方式，显然没你这句直接把区域 赋值给 数组，一行，来得快。

[此贴子已经被作者于2021-7-1 09:25编辑过]

https://blog.bccn.net/sdta/16740
这段代码是由 都市夜猫 大师写的，不知是否符合你的要求

回头我试试，谢谢版主！