Alaska Software Inc. - Clipboard & Excel
Username: Password:
AuthorTopic: Clipboard & Excel
FrancescoClipboard & Excel
on Wed, 17 Jun 2009 11:34:13 +0200
Hi to all.

I'll like to handle with xBase some cells selected in an Excel worksheet, so
I cannot use GetObject() because the range it's determinated by user and
change every time.

I'll try to retrive ActiveX object from Clipboard but checking it after
selection and copy of Excel's cells, I can found a lot of data formats but
the result of :GetBuffer() for the largest number of result it's NIL (see
below).

So please help me: it's possible to retrive a Excel.Range object from
clipboard and manage it as AutomationObject() ?

tanks

anton francesco renieri

#    ValType   ID    Format description
         1 U      49161 DataObject
         2 O         14 Metafile                    (xBase XbpMetafile)
         3 U      49983 Screen Picture EMF
         4 O          8 Bitmap                      (xBase XbpBitmap)
         5 U      49979 Biff8
         6 U      49789 Biff5
         7 U      49980 Biff4
         8 U      49984 Biff3
         9 U      49792 Biff
        10 U      49981 Wk1
        11 C          1 Text                        (xBase char)
        12 U      49779 CSV
        13 U      49455 Rich Text Format
        14 U      49163 Embed Source
        15 U      49156 Native
        16 U      49155 OwnerLink
        17 U      49166 Object Descriptor
        18 U      49165 Link Source
        19 U      49167 Link Source Descriptor
        20 U      49781 Link
        21 U      49154 ObjectLink
        22 U      49171 Ole Private Data
AUGE_OHRRe: Clipboard & Excel
on Thu, 03 Sep 2009 10:56:43 +0200
hi,

> So please help me: it's possible to retrive a Excel.Range object from
> clipboard and manage it as AutomationObject() ?

why Clipboard, just assign your Range():Select to a Array with same Size 
using

*** Code ***
   aExcel := {}
   FOR i := 1 TO 15803
       AADD(aExcel,ARRAY(11))  11 Colume
   NEXT

   ZPATH := "c:\Dokumente und Einstellungen\A\Desktop\"
   cFILE := "YIUJAHR.XLS"
   ShowExcel(aExcel,ZPATH,cFILE )

PROCEDURE ShowExcel(aExcel,ZPATH,cFILE)
...
   oSheet := oExcel:Worksheets( 1 ):cells

 markiere den Bereich
   oSheet:Range( "A1:K15803" ):Select

 und schiebe das ganze ins Array
   aExcel := oSheet:Range( "A1:K15803" ):value

   MSGBOX("Cell A1 "+aExcel[1][1])

*** Eof ***

this will work with "alphanumeric" Sheets Data... i dont know what happend 
with BMP etc ...

greetings by OHR
Jimmy