分成若干文件拷贝。
ii=1
do while !eof()
wjm="xswb"+allt(str(ii))+".xls"
copy to &wjm type xls next 16000
ii=ii+1
skip
enddo
命令中的参数xls拷贝成的是2.0的execl,用xl5拷贝出来的是5.0的excel,楼主试试xl5如知哗何
XLS:创建 Microsoft Excel 2.0 版的电子表格文件。当前选定表中的每个字段变为电子表格中的一列,每条记录变为一行。若不包含文件扩展名,则新建电子表格的文件扩展名指定为 .XLS。
XL5:创建 Microsoft Excel 5.0 版的电子表格文件。当前选定表中的每个字段变为电子表格中的一列,每条记录变为一行。若不包含文件扩搭芦行展名,则新建电子表格的扩展名指定为 .XLS。
在VFP的丛唯命渗磨培令游磨窗口中USE XXXXX
16000
COPY NEXT 16000 TO YYYYY xls
等待拷贝结束就好了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)