Copy Complete sheet op excel to another workbook

[Marc Vanzegbroeck]

Hi,

I want to open 2 excel-files, and want to copy a complete worksheet to the other excel-file.
How can I do this?

One excel is object oExcel, the other oExcelInput
with this code I can copy it

Code: Select all | Expand

      oExcelInput:Sheets(oExcelInput:Worksheets( 'Network' ):name):Select()
      oExcelInput:Sheets(oExcelInput:Worksheets( 'Network' ):name):copy()
 

but how add it to the other workbook?

[Marc Vanzegbroeck]

Hi,

In VBA it's like this

Code: Select all | Expand

Sheets("Network").Copy Before:=Workbooks("Map19").Sheets(3)

How can I convert it to FWH?

[Enrico Maria Giordano]

Try something like this:

Code: Select all | Expand

oExcelInput:Sheets( "Network" ):Copy( oExcel:Sheets( 3 ) )

EMG

[Marc Vanzegbroeck]

Thank you,

Unfortunately I get an error:

Error description: Error Excel.Application:SHEETS/16389 E_FAIL: COPY
Args:
[ 1] = O Object

Try something like this:

Code: Select all | Expand

oExcelInput:Sheets( "Network" ):Copy( oExcel:Sheets( 3 ) )

EMG

[Enrico Maria Giordano]

Does exist the Sheet number 3 in oExcel? The first is 0, if I remember correctly.

EMG

[Marc Vanzegbroeck]

There are 4 Sheets.

I allready tried with 0 and 1, but the same error.

Does exist the Sheet number 3 in oExcel? The first is 0, if I remember correctly.

EMG

[Enrico Maria Giordano]

Can you send to my email all the required files (a simple prg and the two xls) to make a test here?

EMG

[alerchster]

Try

Code below copy sheet network from workbook network to workbook map19 as sheet network (sheet on 3rd position)

Code: Select all | Expand

...
function excel()
   local oExcel := CreateObject( "excel.application" )
   local oBook1  := oExcel:workbooks:Open("network.xlsx")
   local oBook2  := oExcel:workbooks:Open("map19.xlsx")

   oExcel:Visible = .T.
   
   oBook1:Sheets("Network"):Copy(oBook2:Sheets(3))
 
return nil
 

[Marc Vanzegbroeck]

Anton,

Thank you. It's working very nice.

[Marc Vanzegbroeck]

Anton,

Thank you. It's working very nice.