Comments on: Putting Text Into the Windows Clipboard

By: Dick Kusleika

Dick Kusleika — Thu, 06 Nov 2008 20:16:00 +0000

Hey Fred. Did you give me some books to take home to my boy? He loved them, so thanks if that was you.

You need the GetFromClipboard and GetText methods. Here's what I came up with:

Sub DecodeL()

Dim doClip As DataObject
Dim sText As String
Dim vaLines As Variant
Dim vaCells As Variant
Dim i As Long, j As Long
Dim sFormula As String

Set doClip = New DataObject

doClip.GetFromClipboard
sText = doClip.GetText

vaLines = Split(sText, vbNewLine)
For i = LBound(vaLines) To UBound(vaLines)
vaCells = Split(vaLines(i), ":")
sFormula = ""
For j = 1 To UBound(vaCells)
sFormula = sFormula & vaCells(j) & ":"
Next j
sFormula = Left$(sFormula, Len(sFormula) - 1)
Sheet1.Range(vaCells(0)).Formula = sFormula
Next i

Set doClip = Nothing

End Sub

By: Fred Cumming

Fred Cumming — Wed, 05 Nov 2008 23:21:00 +0000

Hi Dick

I was at the User Conference in Sydney earlier this year. I had a great time.

I used your DataObject idea to write some VBA that gets the formulae from a selection of cells and pastes them to the clipboard.

The reason I want to do this is so that I can paste them to my email program for transmission to text based Lists like Excel-L.

The output looks like this :-

$A$1:door A
$B$1:door B
$C$1:door C
$D$1:Initial Choice
$E$1:No Switch
$F$1:Switch
$A$2:=RANDBETWEEN(0,1)
$B$2:=IF(A2=0,RANDBETWEEN(0,1),0)
$C$2:=IF(SUM(A2:B2)=0,1,0)
$D$2:=CHOOSE(RANDBETWEEN(1,3),"A","B","C")
$E$2:=IF(INDIRECT(D2&ROW())0,"Win","Lose")
$F$2:=IF(E2="Win","Lose","Win")
$H$8:switch wins
$I$8:=COUNTIF(F:F,"Win")
$J$8:=I8/SUM(I8:I9)
$K$8:=NOW()
$H$9:noswitch wins
$I$9:=COUNTIF(E:E,"Win")
$J$9:=I9/SUM(I8:I9)

Now I need to write a little decoder routine that gets data from the clipboard and builds a sheet based on these formulae.

I can do this by pasting to a sheet, importing the new range as an array and then processing the array but that seems a bit clumsy.

Can I user the DataObject to GET stuff from the clipboard as well? Or is there some other trick I need to know!

Cheers
fred

By: Gerardo Portillo

Gerardo Portillo — Wed, 30 Apr 2008 20:22:00 +0000

thanks, thats helps me a lot!

By: www.cubetoon.com » Blog Archive » Acquiring data from MS Excel using DDE

www.cubetoon.com » Blog Archive » Acquiring data from MS Excel using DDE — Mon, 02 Jul 2007 09:46:00 +0000

[...] to the Daily Dose of Excel where I found the required tip to add only text to the clipboard. My initial attempt to just copy [...]

By: Peter Jorgensen

Peter Jorgensen — Sun, 09 Oct 2005 08:30:00 +0000

I found a solution for access…. you can still read the Forms 2.0 library, it’s just not available by default in Access because access has its own forms library. Simply pull up the references and hit the browse button, and at C:WindowsSystem32FM20.DLL, it will be in the references list and you can access the DataObject perfectly. Solved a problem for me .

By: Sudhan

Sudhan — Sat, 06 Aug 2005 11:02:00 +0000

Great solution..
I have a problem associated with this case..
When i copy a cell and paste it in a range it gets pasted for the first time and from the next time onwards it does not get pasted..

By: Stephen

Stephen — Thu, 21 Apr 2005 18:52:00 +0000

Someone on Experts-Exchange recommended this. This works for Excel, but any idea as to how to get it to work for Access 2002? I can’t find that object library listed in the VBA references for Access. Is there a way to import it from the Excel references? Any ideas? Or another way to do this in Access?

By: Larry

Larry — Sat, 04 Dec 2004 18:20:00 +0000

Dick,
You are a God-send! I have been struggling with copying text from Excel to the clipboard (so that it could be pasted into a database application query) and had been totally unsuccessful until I read your post. I modified it to examine the active sheet and then to grab the information from the Selection object. Works beautifully!

Kudos!
Larry