Access/VBA har ingen funksjoner eller prosedyrer som lar deg jobbe med utklippstavlen.
Etter litt googling fant jeg denne løsningen på http://www.cpearson.com/excel/clipboard.htm:
I VBA editoren, gå til Tools - References og legg til referanse til Microsoft Forms 2.0
Finner du ikke Microsoft Forms 2.0 i listen, så velg Browse og bla deg frem til FM20.dll som ligger i C:\windows\system32
Trikset er og gå via DataObject:
Kopiere til utklippstavla:
Dim MyDataObj As New DataObject
MyDataObj.SetText "Dette skal på utklippstavla..." 'Lagrer tekst i MyDataObj som i neste omgang havner på Utklippstavla
MyDataObj.PutInClipboard
Kopiere fra utklippstavla:
MyDataObj.GetFromClipboard
Dim strUtklippstavla as String
strUtklippstavla = MyDataObj.GetText
Ut fra dette så kan vi lage følgende prosedyrer:
Public Sub PutOnClipboard(str as String)
Dim MyDataObj As New DataObject
MyDataObj.SetText str
MyDataObj.PutInClipboard
End Sub
Public Function GetOffClipboard() As String
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
GetOffClipboard = MyDataObj.GetText()
End Function
Public Sub ClearClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText ""
MyDataObj.PutInClipboard
End Sub
Ove B-) |
