Range ( 'B11:K11' ) # Call the 'Select' method on the Range. ActiveSheet # Call the 'Range' method on the Sheet xl_range = sheet. HClipMemory = SetClipboardData(eCBFormat.From pyxll import xl_macro, xl_app def macro1 (): xl = xl_app () # 'xl' is an instance of the Excel.Application object # Get the current ActiveSheet (same as in VBA) sheet = xl. LpGlobalMemory = lstrcpy(lpGlobalMemory, psData) LpGlobalMemory = GlobalLock(hGlobalMemory) HGlobalMemory = GlobalAlloc(GHND, Len(psData) + 1) HGlobalMemory = GlobalAlloc(GHND, LenB(psData) + 1) Public Function ClipBoard_SetData(psData As String) As Boolean ReDim abData(0 To CLng(lSize) - CLng(1)) As ByteД¬opyMemory abData(0), ByVal lPointer, lSize HData = GetClipboardData(eCBFormat.CF_TEXT) Public Function ClipBoard_GetTextData(ByVal phWnd As Long) As String Public Function ClipBoard_GetTextData(ByVal phWnd As LongLong) As String Public Function ClipBoard_HasFormat(ByVal phWnd As Long, _ Public Function ClipBoard_HasFormat(ByVal phWnd As LongLong, _Д«yVal peCBFormat As eCBFormat) As Boolean Private Declare Function IsClipboardFormatAvailable Lib 'user32' (ByVal wFormat As Long) As Long Private Declare Function EnumClipboardFormats Lib 'user32' (ByVal wFormat As Long) As Long Private Declare Function SetClipboardData Lib 'user32' (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Declare Function GetClipboardData Lib 'user32' (ByVal wFormat As Long) As Long Private Declare Function lstrcpy Lib 'kernel32' (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long 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 GlobalSize Lib 'kernel32' (ByVal hMem As Long) As Long Private Declare Function GlobalAlloc Lib 'kernel32' (ByVal wFlags As Long, ByVal dwBytes As Long) 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 Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Private Declare PtrSafe Function IsClipboardFormatAvailable Lib 'user32' (ByVal wFormat As Long) As Long Private Declare PtrSafe Function EnumClipboardFormats Lib 'user32' (ByVal wFormat As Long) As Long Private Declare PtrSafe Function SetClipboardData Lib 'user32' (ByVal wFormat As Long, ByVal hMem As LongLong) As LongLong Private Declare PtrSafe Function GetClipboardData Lib 'user32' (ByVal wFormat As Long) As LongPtr Private Declare PtrSafe Function lstrcpy Lib 'kernel32' Alias 'lstrcpyA' (ByVal lpString1 As Any, ByVal lpString2 As String) As LongPtr Private Declare PtrSafe Function Emptењњlipboard Lib 'user32' () As Long Private Declare PtrSafe Function OpenClipboard Lib 'user32' (ByVal hwnd As LongLong) As Long Private Declare PtrSafe Function CloseClipboard Lib 'user32' () As Long Private Declare PtrSafe Function GlobalSize Lib 'kernel32' (ByVal hMem As LongPtr) As LongPtr Private Declare PtrSafe Function GlobalAlloc Lib 'kernel32' (ByVal wFlags As Long, ByVal dwBytes As LongLong) As LongPtr Private Declare PtrSafe Function GlobalLock Lib 'kernel32' (ByVal hMem As LongLong) As LongPtr Private Declare PtrSafe Function GlobalUnlock Lib 'kernel32' (ByVal hMem As LongLong) As Long Private Declare PtrSafe Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (Destination As Any, Source As Any, ByVal Length As LongPtr)

'Update, those 3 declarations were missing:Д¬onst GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)

Access api vba