- #WINDOWS FORM GET TEXT CLIPBOARD HOW TO#
- #WINDOWS FORM GET TEXT CLIPBOARD CODE#
- #WINDOWS FORM GET TEXT CLIPBOARD WINDOWS#
We all have different situations and it's impossible to account for every particular need one might have.
How Do I Modify This To Fit My Specific Needs?Ĭhances are this post did not give you the exact answer you were looking for. MsgBox "There is now text copied to your clipboard!", vbInformation Txt = "This was copied to the clipboard using VBA!"
#WINDOWS FORM GET TEXT CLIPBOARD CODE#
'SOURCE: 'NOTES: Must have above API declaration and ClipBoard_SetData function in your code
#WINDOWS FORM GET TEXT CLIPBOARD WINDOWS#
'PURPOSE: Copy a given text to the clipboard (using Windows API) HClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory) MsgBox "Could not unlock memory location. LpGlobalMemory = lstrcpy(lpGlobalMemory, My String) LpGlobalMemory = GlobalLock(hGlobalMemory) 'Lock the block to get a far pointer to this memory. HGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1) 'PURPOSE: API function to copy text to clipboardĭim hGlobalMemory As LongPtr, lpGlobalMemory As LongPtrĭim hGlobalMemory As Long, lpGlobalMemory As Long Private Declare Function SetClipboardData Lib "user32" ( ByVal wFormat _įunction ClipBoard_SetData(MyString As String) Private Declare Function lstrcpy Lib "kernel32" ( ByVal lpString1 As Any, _ Private Declare Function Empt圜lipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" ( ByVal hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GlobalAlloc Lib "kernel32" ( ByVal wFlags As Long, _ Private Declare Function GlobalLock Lib "kernel32" ( ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32" ( ByVal hMem As Long) As Long Private Declare PtrSafe Function SetClipboardData Lib "user32" ( ByVal wFormat As LongPtr, _ Private Declare PtrSafe Function lstrcpy Lib "kernel32" ( ByVal lpString1 As Any, _ Private Declare PtrSafe Function Empt圜lipboard Lib "user32" () As LongPtr Private Declare PtrSafe Function OpenClipboard Lib "user32" ( ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr Private Declare PtrSafe Function GlobalAlloc Lib "kernel32" ( ByVal wFlags As LongPtr, _
Private Declare PtrSafe Function GlobalLock Lib "kernel32" ( ByVal hMem As LongPtr) As LongPtr Private Declare PtrSafe Function GlobalUnlock Lib "kernel32" ( ByVal hMem As LongPtr) As LongPtr UPDATE: I have modified the API declarations to work with both 64-bit and 32-bit versions of Microsoft Office
It has three parts: an API declaration section, a Function routine, and then I used a similar subroutine macro to place the desired text into the Clipboard.
Copy To Clipboard With Windows APIīelow is the API workaround suggested by Microsoft to get around the "SetText" bug. The support member pointed to a solution using a Windows API as a workaround (shown in the next section). Someone posted that they were actually able to troubleshoot this problem with a Microsoft support member a couple years ago (maybe in 2010) and that person determined it to be a bug. Luckily, there were many others who were running into this very issue on the forums. It took me forever to narrow down what was causing this to happen (the source code was very long) and of course, the problem ended up being a bug on the part of Microsoft! This code worked perfectly on my work computer (using Windows 7/Excel 2007), however it kept copying just two question marks to the clipboard while executing the VBA code on my home computer (using Windows 8.1/Excel 2013).
#WINDOWS FORM GET TEXT CLIPBOARD HOW TO#
I initially started investigating how to copy text to the clipboard while running someone else's code.
0 kommentar(er)
