Excel中用VBA合并多个word文件出现“是否保留复制的最后—项?”
分类:Excel
具体问题如截图所示:
解决办法是清空剪贴板。
代码如下:
Option Explicit'这个可以不加,我有很多变量都没有声明,直接用的,所以把这句删了。
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
在退出word app之前调用这个函数就可以了。