Thanks Richard - I'll try that too
-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Richard Kaye Sent: 16 February 2017 17:36 To: profoxtech@leafe.com Subject: RE: Copy Excel worksheet to another workbook
ox=CREATEOBJECT([excel.application]) ox.Visible=.t. ox.Workbooks.Open(GETFILE([xlsx])) ow=ox.ActiveWorkbook ow.SaveCopyAs([c:\rfc\copytest.xlsx]) ox.Workbooks.Open([c:\rfc\copytest.xlsx])
This copies the entire document, not an individual sheet. --
rk -----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Jan Bucek Sent: Thursday, February 16, 2017 12:12 PM To: profoxtech@leafe.com Subject: Re: Copy Excel worksheet to another workbook
Dne 16.2.2017 v 17:48 Paul Newton napsal(a):
Hi all
I want to use automation to copy the active worksheet into another workbook (as an additional worksheet) I believe I need something like this ActiveSheet.Copy After:=Workbooks("YourWorkbookName.xls"). Sheets("Sheet3") But I can't find how to send the correct way to do it in VFP
o = CreateObject("Excel.Application") o.Visible = .t. o.Workbooks.Open("C:\O32\OperaNext\Opera32\DEMODATA\SQSLACL.XLS") o.ActiveSheet.Copy(What to put here?)
And what about a little different way?
1. select all 2. copy 3. open another workbook 4. paste
Any help would be much appreciated
Paul Newton
[excessive quoting removed by server]