Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Clipboard copying from excel
Message
From
23/07/2011 09:52:13
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01518978
Message ID:
01518980
Views:
68
Write a function ?
local aa[1]
= RangeToArray(@m.aa, m.o.range("myRange"))
&& First possibility
*_______________________________________________________________________________
function RangeToArray(aa, rangeObj)
	
	local i, j
	
	with m.rangeObj
		dime aa[.Rows.Count, .Columns.Count]
	
		for i = 1 to .Rows.Count
			for j = 1 to .Columns.Count
				aa[ m.i, m.j] = .Cells(m.i, m.j).Value
			endfor
		endfor
	
	endwith

endfunc
*_______________________________________________________________________________
Second possibility
function RangeToArray(aa, rangeObj)
	
	with m.rangeObj
		dime aa[.Rows.Count, .Columns.Count]
		local bb
		
		bb = .Value
		
		=acopy(bb, aa)
		
	endwith

endfunc
*_______________________________________________________________________________
>Is there a way to get the string in c that I get from
>
>o.range("myRange").copy()
>c = _cliptext
>
>into an array, with or without having to iterate through the string?
>
>Btw a cursor would work for me as well :) .
>
>o is the Excel.application. .
>
>Thanks.
Gregory
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform