| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Copying data to and from Excel to the clipboard using the data object \par \par The following routines can be used to copy data to and from the clipboard in Excel. \par \par Option Explicit \par \par 'Purpose : Copys text from Excel to the Clipboard. \par 'Inputs : sText The text to send to the clipboard. \par 'Output : N/A \par 'Author : Andrew Baker (copyright www.vbusers.com) \par 'Date : 03/05/2001 13:50 \par 'Notes : You will need to reference "Microsoft Forms X.X" (FM20.DLL) where \par ' X.X is greater than or equal to 2. If you add a userform to your workbook \par ' Excel will automatically add this reference for you. \par 'Revisions : \par \par Function ClipboardSetText(sText As String) As Boolean \par Dim oDataObject As DataObject \par 'on error resume next \par Set oDataObject = New DataObject \par oDataObject.SetText sText, 1 \par oDataObject.PutInClipboard \par Set oDataObject = Nothing \par On Error GoTo 0 \par End Function \par \par \par 'Purpose : Gets text from the Clipboard to Excel. \par 'Inputs : N/A \par 'Output : The text on the clipboard \par 'Author : Andrew Baker (copyright www.vbusers.com) \par 'Date : 03/05/2001 13:50 \par 'Notes : You will need to reference "Microsoft Forms X.X" (FM20.DLL) where \par ' X.X is greater than or equal to 2. If you add a userform to your workbook \par ' Excel will automatically add this reference for you. \par 'Revisions : \par \par Function ClipboardGetText() As String \par Dim oDataObject As DataObject \par 'on error resume next \par Set oDataObject = New DataObject \par oDataObject.GetFromClipboard \par ClipboardGetText = oDataObject.GetText(1) \par Set oDataObject = Nothing \par On Error GoTo 0 \par End Function \par } |
Copying data to and from Excel to the clipboard us |
India web developer web development India | India web development company India ecommerce web developer