刀鬼 2007-3-27 21:32
请教老师
如果在EXCEL文件中,有VBA程序,能否再飞狐中调用,或者改写?
程序先一个,只要求调用,没有数据传输,如下:
Sub 大前进()
Sheet2.Select
Range("A2075:FD2196").Cells.ClearComments
Range("A2136:E2196").Delete shift:=xlShiftUp
Range("A1:E61").Delete shift:=xlShiftUp
Range("A1:E2196").Copy
Range("AO1:AS2196").Insert
Range("A1:E2196").Delete shift:=xlShiftToLeft
Range("AO2136:AS2196").Delete shift:=xlShiftUp
Range("AO1:AS61").Delete shift:=xlShiftUp
Range("AO1:AS2196").Copy
Range("CC1:CG2196").Insert
Range("AO1:AS2196").Delete shift:=xlShiftToLeft
Range("CC2136:CG2196").Delete shift:=xlShiftUp
Range("CC1:CG61").Delete shift:=xlShiftUp
Range("CC1:CG2196").Copy
Range("DQ1:DU2196").Insert
Range("CC1:CG2196").Delete shift:=xlShiftToLeft
Range("DQ2136:DU2196").Delete shift:=xlShiftUp
Range("DQ1:DU61").Delete shift:=xlShiftUp
Range("DQ1:DU2196").Copy
Range("FE1:FI2196").Insert
Range("DQ1:DU2196").Delete shift:=xlShiftToLeft
End Sub