Hi Mark,
I have posted an article that deals with Vee 5 and
ActiveX and how to launch help for objects. It's at
http://www.passtechnologies.com Did you reference the
Excel library? (Device/ActiveX Automation
References)You may be interested to know there is a
product for sale at that same address as above called
Vxl which is an add-in to Vee for Excel that has the
ability to clone worksheets automatically when you are
sending a Vee array to Excel. You can see how it works
on the preview pages online and this may an easy
solution for you.
Greg
--- "Wills, Mark" <MWills@tycoelectronics.com> wrote:
> Hi All,
> Firstly, I am trying to use the paste special
> command to copy a whole sheet
> but seem unable to get it working. I recorded a
> macro (below) to help but to
> no avail.
>
> Secondly, when browsing the Device > Function &
> Object Browser how do you
> get the help for active-X objects to be available
> e.g. for excel active-x
> objects etc do you need to install some additional
> help files from the
> office installation discs or something? All I get
> when selecting any of
> these is "There is no help topic for 'object' ".
>
>
> Excel VB Macro
>
> Sheets("1").Select
> Windows("book1.xls").Activate
> Cells.Select
> Range("A1").Activate
> Selection.Copy
> Windows("template.xls").Activate
> Cells.Select
> Selection.PasteSpecial Paste:=xlValues,
> Operation:=xlNone, SkipBlanks:=
> _
> False, Transpose:=False
> Selection.PasteSpecial Paste:=xlFormats,
> Operation:=xlNone, SkipBlanks:=
> _
> False, Transpose:=False
> Range("A1").Select
> Application.CutCopyMode = False
>
> VEE formula commands
>
> ExcelApp.Windows(book1.xls).Activate; //
> activates data workbook including calculations
> excel_select_sheet("1");
> // selects sheet 1
> sheet.Cells.Select; //
> highlights whole sheet
> sheet.range("A1").activate;
> sheet.Cells.Copy; //
> copies selected sheet
> ExcelApp.Windows(template.xls).Activate; //
> activates template workbook
> excel_select_sheet("1");
> // selects sheet 1
> sheet.Cells.Select; //
> highlights whole sheet
> sheet.range("A1").activate;
> range.PasteSpecial(xlValues, xlNone, False, False)
> //
> paste only the values into template workbook sheet 1
>
> This last line obviously doesn't work because the
> range variable has not
> been defined, so what is the correct format for this
> scenario whether you
> need to define the range or do it some other way?
> Any takers.
>
> Thanks for any help.
>
>
> Regards,
> Mark Wills
>
> Principal ATE Engineer
> Wireless Automotive System Group
>
> > * E-mail: mwills@tycoelectronics.com
> > * Phone: +44 (0)1908 574209 (direct line)
> > * Phone: +44 (0)1908 574200 (switchboard)
> > * Fax: +44 (0)1908 574300
> >
> Tyco Electronics UK Limited M/A-COM Division
> Featherstone Road
> Wolverton Mill
> Milton Keynes
> MK12 5EW
>
> Creating chaos out of order !
>
>
---------------------------------------------------------------------
> This is the "vrf" maillist, managed by Majordomo.
> To send messages to
> this maillist, just email to "vrf@lvld.agilent.com".
> Subscriptions and
> unsubscriptions are done through the address
> "vrf-request@lvld.agilent.com".
> If you need details, just send a message containing
> the text "help"
> to "vrf-request@lvld.agilent.com".
>
---------------------------------------------------------------------
__________________________________________________
Do You Yahoo!?
Yahoo! Tax Center - online filing with TurboTax
http://http://taxes.yahoo.com/
---------------------------------------------------------------------
This is the "vrf" maillist, managed by Majordomo. To send messages to
this maillist, just email to "vrf@lvld.agilent.com". Subscriptions and
unsubscriptions are done through the address "vrf-request@lvld.agilent.com".
If you need details, just send a message containing the text "help"
to "vrf-request@lvld.agilent.com".
---------------------------------------------------------------------
I have posted an article that deals with Vee 5 and
ActiveX and how to launch help for objects. It's at
http://www.passtechnologies.com Did you reference the
Excel library? (Device/ActiveX Automation
References)You may be interested to know there is a
product for sale at that same address as above called
Vxl which is an add-in to Vee for Excel that has the
ability to clone worksheets automatically when you are
sending a Vee array to Excel. You can see how it works
on the preview pages online and this may an easy
solution for you.
Greg
--- "Wills, Mark" <MWills@tycoelectronics.com> wrote:
> Hi All,
> Firstly, I am trying to use the paste special
> command to copy a whole sheet
> but seem unable to get it working. I recorded a
> macro (below) to help but to
> no avail.
>
> Secondly, when browsing the Device > Function &
> Object Browser how do you
> get the help for active-X objects to be available
> e.g. for excel active-x
> objects etc do you need to install some additional
> help files from the
> office installation discs or something? All I get
> when selecting any of
> these is "There is no help topic for 'object' ".
>
>
> Excel VB Macro
>
> Sheets("1").Select
> Windows("book1.xls").Activate
> Cells.Select
> Range("A1").Activate
> Selection.Copy
> Windows("template.xls").Activate
> Cells.Select
> Selection.PasteSpecial Paste:=xlValues,
> Operation:=xlNone, SkipBlanks:=
> _
> False, Transpose:=False
> Selection.PasteSpecial Paste:=xlFormats,
> Operation:=xlNone, SkipBlanks:=
> _
> False, Transpose:=False
> Range("A1").Select
> Application.CutCopyMode = False
>
> VEE formula commands
>
> ExcelApp.Windows(book1.xls).Activate; //
> activates data workbook including calculations
> excel_select_sheet("1");
> // selects sheet 1
> sheet.Cells.Select; //
> highlights whole sheet
> sheet.range("A1").activate;
> sheet.Cells.Copy; //
> copies selected sheet
> ExcelApp.Windows(template.xls).Activate; //
> activates template workbook
> excel_select_sheet("1");
> // selects sheet 1
> sheet.Cells.Select; //
> highlights whole sheet
> sheet.range("A1").activate;
> range.PasteSpecial(xlValues, xlNone, False, False)
> //
> paste only the values into template workbook sheet 1
>
> This last line obviously doesn't work because the
> range variable has not
> been defined, so what is the correct format for this
> scenario whether you
> need to define the range or do it some other way?
> Any takers.
>
> Thanks for any help.
>
>
> Regards,
> Mark Wills
>
> Principal ATE Engineer
> Wireless Automotive System Group
>
> > * E-mail: mwills@tycoelectronics.com
> > * Phone: +44 (0)1908 574209 (direct line)
> > * Phone: +44 (0)1908 574200 (switchboard)
> > * Fax: +44 (0)1908 574300
> >
> Tyco Electronics UK Limited M/A-COM Division
> Featherstone Road
> Wolverton Mill
> Milton Keynes
> MK12 5EW
>
> Creating chaos out of order !
>
>
---------------------------------------------------------------------
> This is the "vrf" maillist, managed by Majordomo.
> To send messages to
> this maillist, just email to "vrf@lvld.agilent.com".
> Subscriptions and
> unsubscriptions are done through the address
> "vrf-request@lvld.agilent.com".
> If you need details, just send a message containing
> the text "help"
> to "vrf-request@lvld.agilent.com".
>
---------------------------------------------------------------------
__________________________________________________
Do You Yahoo!?
Yahoo! Tax Center - online filing with TurboTax
http://http://taxes.yahoo.com/
---------------------------------------------------------------------
This is the "vrf" maillist, managed by Majordomo. To send messages to
this maillist, just email to "vrf@lvld.agilent.com". Subscriptions and
unsubscriptions are done through the address "vrf-request@lvld.agilent.com".
If you need details, just send a message containing the text "help"
to "vrf-request@lvld.agilent.com".
---------------------------------------------------------------------
Firstly, I am trying to use the paste special command to copy a whole sheet
but seem unable to get it working. I recorded a macro (below) to help but to
no avail.
Secondly, when browsing the Device > Function & Object Browser how do you
get the help for active-X objects to be available e.g. for excel active-x
objects etc do you need to install some additional help files from the
office installation discs or something? All I get when selecting any of
these is "There is no help topic for 'object' ".
Excel VB Macro
Sheets("1").Select
Windows("book1.xls").Activate
Cells.Select
Range("A1").Activate
Selection.Copy
Windows("template.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
VEE formula commands
ExcelApp.Windows(book1.xls).Activate; //
activates data workbook including calculations
excel_select_sheet("1");
// selects sheet 1
sheet.Cells.Select; //
highlights whole sheet
sheet.range("A1").activate;
sheet.Cells.Copy; //
copies selected sheet
ExcelApp.Windows(template.xls).Activate; //
activates template workbook
excel_select_sheet("1");
// selects sheet 1
sheet.Cells.Select; //
highlights whole sheet
sheet.range("A1").activate;
range.PasteSpecial(xlValues, xlNone, False, False) //
paste only the values into template workbook sheet 1
This last line obviously doesn't work because the range variable has not
been defined, so what is the correct format for this scenario whether you
need to define the range or do it some other way? Any takers.
Thanks for any help.
Regards,
Mark Wills
Principal ATE Engineer
Wireless Automotive System Group
> * E-mail: mwills@tycoelectronics.com
> * Phone: +44 (0)1908 574209 (direct line)
> * Phone: +44 (0)1908 574200 (switchboard)
> * Fax: +44 (0)1908 574300
>
Tyco Electronics UK Limited M/A-COM Division
Featherstone Road
Wolverton Mill
Milton Keynes
MK12 5EW
Creating chaos out of order !
---------------------------------------------------------------------
This is the "vrf" maillist, managed by Majordomo. To send messages to
this maillist, just email to "vrf@lvld.agilent.com". Subscriptions and
unsubscriptions are done through the address "vrf-request@lvld.agilent.com".
If you need details, just send a message containing the text "help"
to "vrf-request@lvld.agilent.com".
---------------------------------------------------------------------