WIS blogg

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-)