Wie kopierst du den Inhalt einer Zelle in die Zwischenablage

Ich bin versucht zu kopieren der Inhalt der Zelle in die Zwischenablage.

Habe ich gelesen und versucht, das genaue Beispiel in der Excel 2007-Hilfe-Datei. Jedoch für einige Grund die DataObject-Objekt ist nicht gültig. Also das Beispiel:

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

Funktioniert nicht in meinem Fall. Ich habe gesucht, für eine gute Weile jetzt, und ich kann nicht finden, eine Antwort, warum das DataObject-Objekt ist nicht verfügbar.

Hier ist mein code:

Dim MyData As DataObject

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 3 Then
        Set MyData = New DataObject
        MyData.SetText ActiveCell.Offset(-1, -1).Text
        MyData.PutInclipboard
    End If    
End Sub

Fehler auf Kompilieren: "benutzerdefinierter Typ nicht definiert" und er hebt die "MyData As DataObject" - Linie.

Gibt es eine andere Methode, um einfach kopieren Sie den text in einer Zelle in die Zwischenablage?

InformationsquelleAutor Brian Boatright | 2009-04-02

  1. 8

    Ok, paar Dinge:

    Zuerst müssen Sie Fügen Sie einen Verweis auf "Microsoft Forms 2.0 Object Library", wenn Sie nicht das Gefühl, wie die Suche durch, nur fügen Sie ein Benutzerformular, um das Projekt und anschließend sofort zu löschen, wird die Referenz bleiben. Sie müssen, dass der Verweis auf die Verwendung DataObject

    Werde ich beifügen-code, ich habe zu arbeiten, ich habe die offsets aber machen Sie, was Sie brauchen...

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set MyData = New DataObject
    If ActiveCell.Column = 3 Then
        MyData.SetText ActiveCell.Offset(-1, 0).Text
        MyData.PutInClipboard
    End If
End Sub
    yep, dass war die Frage. Ich bin mit Win7 beta und offensichtlich die FM20.dll ist nicht installiert. Ich wechselte zu einem XP-Rechner Hinzugefügt der Verweis und nun funktioniert es wie erwartet. Dank curtisk
    Dies funktioniert nicht für mich, auf Excel 2007 / Windows 7. Hinzufügen einer user-form nicht hinzufügen, dass man die Bibliothek nicht aufgeführt in Referenzen und die FM20.DLL scheint nicht auf meinem system, so kann ich nicht Sie manuell hinzufügen.
    Werfen Sie einen Blick in c:\windows\system32 für FM20.dll seine auf meinem 64bit Win7 mit Office 2007 installiert (SP3)

    InformationsquelleAutor curtisk

Schreibe einen Kommentar