copying cell text to non-Microsoft application

[John C]

Hi - i'm trying to copy the contents of a cell to the clipboard (so that I
can then paste it into a non-Microsoft program). When doing it manually,
selecting and copying the cell itself doesn't work - instead I need to 'go
into the cell' and select the text and copy it. How can I do this with VBA?

As an added twist, the cell contains a formula that concatenates text from a
number of other cells (to create a unique code). I actually need to copy
the result of the concatenation to the clipboard.

TIA, John

 

[Harald Staff]

Hi John

This works well here (but so does manual selection and Ctrl C):

Range("A1").Copy

with a formula in A1 and Ctrl V in Notepad it pastes the formula result.

You might have a look at
http://www.cpearson.com/excel/clipboar.htm
for more controlled manipulation of the clipboard.

 

[John C]

Harald

Range("A1").Copy and Ctrl C don't work (I need to select and copy the text
inside the cell - from the formula bar), but the link to Chip Pearson's site
looks promising

tks john

 

[Gord Dibben]

John

If you copy the contents from the formula bar you will get the formula.

If you copy the cell you will get the concatenated result.

Which do you want? Seems you're asking for both.

Gord Dibben XL2002

 

[John C]

the link to Chip's site gave me what i needed; tks ...

Sub CopyTextToClipboard()
Dim DataObject As New DataObject

DataObject.SetText ActiveCell.Text
DataObject.PutInClipboard

End Sub