Solution: Excel and Notepad: how avoid additional inverted commas after copy and paste? Excel help response (13 Sep 2007)

thanks to all!
I solved the problem and it is work.

Sub TestMacro()
Dim objClip As DataObject
' Microsoft Forms 2.0 Object Library
' needs to be selected as a Reference (on the VBA Tools menu)
Dim strTmp As String
Set objClip = New DataObject
strTmp = Replace(ActiveCell.Value, Chr(10), vbCrLf)
objClip.SetText strTmp
objClip.PutInClipboard
Set objClip = Nothing
End Sub

best regards.

Solution

Excel Help for Solution in Developing and Auditing Analytical Models

Solution

Excel templates and solutions matched for solution:

	thanks to all! I solved the problem and it is work. Sub TestMacro() Dim objClip As DataObject ' Microsoft Forms 2.0 Object Library ' needs to be selected as a Reference (on the VBA Tools menu) Dim strTmp As String Set objClip = New DataObject strTmp = Replace(ActiveCell.Value, Chr(10), vbCrLf) objClip.SetText strTmp objClip.PutInClipboard Set objClip = Nothing End Sub best regards.
	Posted by ghisirds on 13 Sep 2007