如何清除mac上的剪贴板excel vba

Application.CutCopyMode=False在Windows Excel中清除虚线和剪贴板数据丢失，这是可取的。

但是Mac OS也是如此。 在Mac上清除虚线，但剪贴板数据不会丢失。

是否有一个单行或任何方法，将清除剪贴板上的Mac和Windows？

Answer 1

我在这里find这个代码，我没有或使用Mac，所以我不能testing这个，但从阅读代码它将分配“（换句话说，没有任何）到这个剪贴板。

希望这个工作或至less让你在正确的方向

 Public Function ClearMacClipBoard() As Boolean Dim myDO As DataObject On Error GoTo EndCMCB Set myDO = New DataObject myDO.SetText "" myDO.PutInClipboard Application.CutCopyMode = False ClearMacClipBoard = True EndCMCB: On Error GoTo 0 End Function 

编辑：

从评论稍微改变，尝试在Windows和Mac上工作

这应该跳过任何将无法修复的代码行，所以当您尝试在Windows上运行Mac代码时，它将跳过它，反之亦然

 Public Function ClearMacClipBoard() As Boolean Dim myDO As DataObject On Error GoTo Resume Next Set myDO = New DataObject myDO.SetText "" myDO.PutInClipboard Application.CutCopyMode = False ClearMacClipBoard = True On Error GoTo 0 End Function