Hey rk - Great program name!!! Gosh - U must be bored - and its not even a Friday... :-)

Regards,

Kurt Wendt

Senior Systems Analyst

Tel. +1-212-747-9100

www.GlobeTax.com

-----Original Message-----

From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Richard Kaye

Sent: Thursday, February 16, 2017 1:04 PM

To: profoxtech@leafe.com

Subject: RE: Copy Excel worksheet to another workbook

Clearly I'm avoiding doing anything productive right now.

**************************************

* Program: FunWithExcel1.prg

* Date: 02/16/2017 12:46

* VFP Version: Visual FoxPro 09.00.0000.7423 for Windows

* Notes: open a workbook, copies the 2nd sheet before the current 2nd sheet, makes another copy after the 3rd sheet

**************************************

ACTIVATE SCREEN

CLEAR

LOCAL m.ox AS Excel.Application, m.ow AS Excel.Workbook, m.oss AS Excel.Worksheet

m.ox=CREATEOBJECT([excel.application])

m.ox.Workbooks.Open([c:\rfc\copytest.xlsx])

m.ow=m.ox.ActiveWorkbook

?m.ow.Sheets.Count

m.oss=ow.Sheets(2) && this example has 2 sheets. get a ref to the 2nd sheet

m.oss.copy(ow.Sheets(2)) && copy it before the 2nd sheet

?m.ow.Sheets.Count

m.oss.copy(,ow.Sheets(3)) && copy it after the 3rd sheet

?m.ow.Sheets.Count

m.ox.Visible=.t.

--

rk

-----Original Message-----

From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Richard Kaye

Sent: Thursday, February 16, 2017 12:36 PM

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]

_______________________________________________

Post Messages to: ProFox@leafe.com

Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox

OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech

Searchable Archive: http://leafe.com/archives/search/profox

This message: http://leafe.com/archives/byMID/profox/80838F1CA795B14EA1AF48659F35166F18FD71F8@DREXCH02.corp.globetax.com

** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.