MsgBox "Memory location could not be unlocked. LpGlobalMemory = lstrcpy(lpGlobalMemory, mytext)
LpGlobalMemory = GlobalLock(hGlobalMemory) ' Lock the block to get a far pointer to this memory
HGlobalMemory = GlobalAlloc(GHND, Len(mytext) + 1) Public Function CopyToClipBoard(mytext As String) As Boolean If you are still using MS Excel 2007 or below, it supports VBA 6.5 or below versions.ĭeclare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Longĭeclare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As Longĭeclare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As LongPtr, ByVal dwBytes As LongPtr) As Longĭeclare PtrSafe Function CloseClipboard Lib "User32" () As Longĭeclare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As LongPtr) As Longĭeclare PtrSafe Function Empt圜lipboard Lib "User32" () As Longĭeclare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Longĭeclare PtrSafe Function SetClipboardData Lib "User32" (ByVal wFormat As LongPtr, ByVal hMem As LongPtr) As Longĭeclare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Longĭeclare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Longĭeclare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Longĭeclare Function CloseClipboard Lib "User32" () As Longĭeclare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Longĭeclare Function Empt圜lipboard Lib "User32" () As Longĭeclare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Longĭeclare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, ByVal hMem As Long) As Long MS Excel 2010 or above uses VBA7 version.
#Vba copying text clipboard code
The program below uses the API and code is broken down into two sections - Declaration of API, user-defined function. To workaround this issue we need to rely on API by Microsoft. Many popular blogs show how you can copy content to clipboard using method of Microsoft Forms 2.0 Object Library but it does not work anymore as it returns two question marks.
0 kommentar(er)
