怎样用vfp控制excel自动转入大量结构相同的工作表 - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：2

怎样用vfp控制excel自动转入大量结构相同的工作表

一个excel工作薄中有几十张结构相同的工作表（前4行是表头，最后一行是合计）,每月一个工薄，有3年的数据，要求转入dbf表。已经在每个工表中手工添加一列可以区别各表了。请教怎样用vfp控制excel自动转入?

搜索更多相关主题的帖子: excel　工作表　手工　

第 2 楼

得分:0

以下是引用hu9jj在2014-3-20 08:07:11的发言：

那还不如手工在EXCEL中复制粘贴操作，最后再一次性转换成DBF表，这样做比编程会更快些。

已经手工在EXCEL中操作，但每张表结构一样，感觉可以进行程序化操作。另外，如果让应用人员来操作，就狠费事，也让人觉得太不自动化了。

说说自己的作法：
1.在EXCEL中选定所有工作表，删除前4行（表头）和最后一行（合计行）（每张表行数一样。请教：如果各张工作表行数不一，怎样删除最后一行?）
2.在EXCEL中选定所有工作表，在第一列前插入一列（用以填写工作表标签来区别各工作表中数据）。请问：怎样将工作表标签填写在插入一列？例如怎样自动将第二张工作表标签Shift2填写在第二张工作表的第一列的各行中。
3.怎样自动将各工作表中数据复制到同一工作表？我没有办法是手工复制的。

这些技巧是excel的,但不解决了,在用vfp控制excel时就困难,数据交换就不好办。希望指教！

第 3 楼

得分:0

以下是引用sdta在2014-3-20 11:44:52的发言：

只要工作表中数据规范，不需要删除前4行及最后的合计行，导入数据时，程序会帮你处理的只要记住工作表中的顺序号就行了，程序会帮你处理
下面是我处理的同一工作簿中多工作表数据导出的代码CZDM=[]
FOR ii=1 TO 24
    CZDM=CZDM+CHR(64+iI)+[ V(200)]+IIF(Ii<24,[,],[])
*    CZDM=CZDM+[A]+PADL(ii,2,[0])+[ V(200)]+IIF(ii<24,[,],[])
ENDFOR
CREATE CURSOR MXBYY (&CZDM,BH C(2))

EOLE=CREATEOBJECT('EXCEL.APPLICATION')
EOLE.WORKBOOKS.OPEN("D:\SL\EXCEL\慢性病用药范围.XLS")
*EOLE.VISIBLE=.T.
*当前工作薄中工作表总数
NCOUNT=EOLE.WORKSHEETS.COUNT
*----读取EXCEL文件的各个工作表名称及有数据的行数与列数
FOR Ii=1 TO NCOUNT
    WORKNAME=eole.sheets(Ii).name
    LCBH=PADL(CHRTRANC(WORKNAME,CHRTRANC(WORKNAME,[0123456789],[]),[]),2,[0]) && 工作表名称
    eole.Worksheets(iI).Activate
    LNROW=EOLE.SHEETS(iI).USEDRANGE.ROWS.COUNT && 有数据的行数
    LNCOL=EOLE.SHEETS(Ii).USEDRANGE.COLUMNS.COUNT && 有数据的列数
    DIMENSION laxls(lnrow,lncol)
    laxls = EOLE.activesheet.usedrange.value
    CREATE CURSOR TEMP (&CZDM)
    INSERT INTO TEMP FROM ARRAY LAXLS
    INSERT INTO MXBYY SELECT *,&LCBH FROM TEMP WHERE RECNO()>1
ENDFOR
EOLE.QUIT                                                && 退出EXCEL
RELEASE EOLE
SELECT MXBYY
BROWSE工作簿：

谢谢！
在excel中用宏处理后再导入dbf表也比较快。