谢谢各位老师

学习啦，谢谢！

一句代码就能解决太爽了，我的笨方法是一个一个字段的读出来，然后一个一个字段的写去另一个新excel文件，目的是多个xls文件合并为一个新的xlsx文件，挺耗时的。那么请问，按代码，把excel文件导入到数组后，若需要把数组的内容填入一个新的excel文件如何反向赋值？同时要考虑下一个数组的内容续着填入，字段内容可以沿用题主的数据。谢谢大神！

下面代码是否对你有帮助
https://blog.bccn.net/sdta/16740

谢谢指导，测试了一下脚本，可能不知道在哪里打开excel的vb的访问，到下面的代码就报错了，
我按之前的代码逆向想当然的执行，但写入新的excel里所有字段内容都是原表最后一行最后一列的内容，代码如下：
v_file=getfile()
v_path=subs(v_file,1,rat('\',v_file))
=adir(a_file,v_path+'*.'+justext(v_file))
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
    .WorkBooks.Open(v_path+a_file(1,1))
    .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
endxls=createobject('excel.application')
with endxls
   .workbooks.add
   .worksheets('sheet1').activate
   .cells.Resize(nRow, nColumn).Value=ArrayName(nRow, nColumn)
   .DisplayAlerts = .F.
   .visible=.t.
   .WorkBooks.Close
   .Quit   
endwith
估计问题是在红色那句，但不知道参数应该怎么样才对，不过不重要了，刚想到一个问题，我那堆xls，都是24列15000行，记录数太多数组装不下，我还是一个一个字段的读了写到新的xlsx上去，慢就慢点，谢谢大神热心。

[此贴子已经被作者于2021-8-16 17:09编辑过]

请问 为什么第一个字段要定义为浮点型。改成C或N型，就无法导入数据