您所在位置：主题：[讨论]怎么用VF在excel中创建副表（急用）
cde513
[专家分：0] 发布于 2009-05-26 09:31:00
我要将excel中的一个工作表复制（建立副表）用宏录制的如下
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
转到VF中总是不行（下面涂红色的部分），请教高手怎么办
uSE 油井.dbf
COPY TO ARRAY arr1 FIELDS jh
COUNT TO zs
ef=CREATEOBJECT('Excel.application')
ef.Workbooks.open("D:\数据本打印\小数据本.xls")
ef.visible=.t.
ef.Worksheets("油井正面").Activate
FOR i=1 TO zs
[color=FF0000]ef.Sheets("油井正面").Select
*ef.Sheets("油井正面").Copy Before:=Sheets(1)
ef,Sheets("油井正面").Copy to Workbooks("小数据本").Sheets(1)[/color]
ENDFOR
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
转到VF中总是不行（下面涂红色的部分），请教高手怎么办
uSE 油井.dbf
COPY TO ARRAY arr1 FIELDS jh
COUNT TO zs
ef=CREATEOBJECT('Excel.application')
ef.Workbooks.open("D:\数据本打印\小数据本.xls")
ef.visible=.t.
ef.Worksheets("油井正面").Activate
FOR i=1 TO zs
[color=FF0000]ef.Sheets("油井正面").Select
*ef.Sheets("油井正面").Copy Before:=Sheets(1)
ef,Sheets("油井正面").Copy to Workbooks("小数据本").Sheets(1)[/color]
ENDFOR