Abrufen von Informationen aus der Zwischenablage
Verwenden der RunCommand-Methode
Verwenden Sie die RunCommand-Methode mit der acCmdPaste-Konstante , um den Inhalt der Zwischenablage in das aktive Steuerelement eines Formulars oder Berichts einzufügen.
Im folgenden Beispiel wird veranschaulicht, wie der Inhalt der Zwischenablage in ein Textfeld namens txtNotes eingefügt wird.
Private Sub cmdPaste_Click()
Me!txtNotes.SetFocus
DoCmd.RunCommand acCmdPaste
End Sub
Verwenden der Windows-API
Zum Verwenden von API-Aufrufen, um Informationen aus der Zwischenablage abzurufen, fügen Sie den folgenden Code in den Deklarationsbereich eines Standardmoduls ein.
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) _
As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function GetClipboardData Lib "User32" (ByVal wFormat As _
Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal _
dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) _
As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) _
As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) _
As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
ByVal lpString2 As Any) As Long
Public Const GHND = &H42
Public Const CF_TEXT = 1
Public Const MAXSIZE = 4096
Fügen Sie den folgenden Code in ein Standardmodul ein.
Function ClipBoard_GetData()
Dim hClipMemory As Long
Dim lpClipMemory As Long
Dim MyString As String
Dim RetVal As Long
If OpenClipboard(0&) = 0 Then
MsgBox "Cannot open Clipboard. Another app. may have it open"
Exit Function
End If
' Obtain the handle to the global memory
' block that is referencing the text.
hClipMemory = GetClipboardData(CF_TEXT)
If IsNull(hClipMemory) Then
MsgBox "Could not allocate memory"
GoTo OutOfHere
End If
' Lock Clipboard memory so we can reference
' the actual data string.
lpClipMemory = GlobalLock(hClipMemory)
If Not IsNull(lpClipMemory) Then
MyString = Space$(MAXSIZE)
RetVal = lstrcpy(MyString, lpClipMemory)
RetVal = GlobalUnlock(hClipMemory)
' Peel off the null terminating character.
MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1)
Else
MsgBox "Could not lock memory to copy string from."
End If
OutOfHere:
RetVal = CloseClipboard()
ClipBoard_GetData = MyString
End Function
Kopieren Sie text in die Zwischenablage, um die Funktion zu testen. Fügen Sie den folgenden Code in das Direktfenster ein, und drücken Sie die EINGABETASTE. Ein Meldungsfeld mit dem Text in der Zwischenablage wird angezeigt.
strClip = ClipBoard_GetData: MsgBox strClip
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für