Clipboard leeg maken in Excel

[ottoioioi]

Ik heb een redelijk grote sub gemakt waar grote excel files worden gekopieerd naar een extern bestand. Dit vreet geheugen en mn pc wordt steeds trager

Ik ben op zoek naar een macro die het office klembord leeggooit. Ik heb een code gevonden, maar daarmee kan ik alleen maar in het Windows klembord werken.

Private Sub CommandButton1_Click()
Dim doLeeg As New DataObject
doLeeg.SetText ""
doLeeg.PutInClipboard
End Sub

Als ik de code die in excel help staat gebruik om te testen of ik uberhoubt in het office klembord kan:

Dim MyData As DataObject

Private Sub CommandButton1_Click()
Set MyData = New DataObject

MyData.SetText TextBox1.Text
MyData.PutInClipboard

TextBox2.Paste
End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = "Move this data to a " _
& "DataObject, to the Clipboard, then to " _
& "TextBox2!"
End Sub

loopt de debugger steeds vast op SetText.

 

[Wigi]

Dit kan wel eens lukken vermoed ik:

Application.CutCopyMode = False

Wigi