Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP & Lotus Notes
Message
From
31/01/2005 16:39:03
 
 
To
31/01/2005 11:18:25
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00982264
Message ID:
00982463
Views:
28
Hi Andy,

I have created application which copy the necessary information to the windows clip board and then paste the information into a Lotus Notes document. DataToClip([nWorkArea | cTableAlias] [, nRecords] [, nClipFormat])

Are you talking about _VFP.DataToClip()? If so, you forgot to mention that this only works in DataSession #1. So if you are trying to do this from a private DataSession, it is a little more work. Here is some sample code that I use to paste info into an Excel spread sheet:
*** This is how we are going to get around the fact that _VFP.DataToClip()
*** Only works in Data Session #1 - we are going to "roll our own" to shove
*** the contents of the cursor into the clipboard - this also gets around the issue
*** of the field names going into the first row in the range
*** Copy the contents of the cursor to a delimited file that is in clipcoard format
lcTempFileName = SYS( 2015 ) + [.txt]
COPY TO ( lcTempFileName ) TYPE DELIMITED WITH TAB
*** Now shove that into the clipboard
_CLIPTEXT = FILETOSTR( lcTempFileName )
*** Now past it into the appropriate range in the work sheet
lnRecCnt = RECCOUNT( ALIAS() ) 
lcRange = [A1:D] + TRANSFORM( lnRecCnt )
*** And paste it in
oSheet.Paste( oSheet.Range( lcRange ) ) 
*** Make sure we can see the entire caption
oSheet.Columns("A:A").EntireColumn.AutoFit()
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform