小fisher-闲来无事，说说Windows剪贴板

3r2

非常详细，学习了。

ilikevba2011

非常有用，谢谢楼主

ljpmqb888

老师您好，我有个问题，就是我在word中数据复制后想粘贴到Excel中，代码如下：
Sub 导入外部试题()
Dim Target As Range, n As Byte
n = Val(Range("D3"))
  Set xlapp = GetObject(, "Excel.Application")
  xlapp.ScreenUpdating = False
    xlapp.ActiveSheet.Unprotect ("BIAOGEBAOHUMIMa")
Sheets("题库").Select
If Application.CutCopyMode = 0 Then
MsgBox "数据入口打开，请从新复制一遍数据！"
Sheets("界面").Select
Exit Sub
End If
Sheets("题库").Select
Sheets("题库").Range("A3:A" & n + 2).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Protect DrawingObjects:=True, Password:="BIAOGEBAOHUMIMa"
     Application.ScreenUpdating = True
    Sheets("界面").Select
    MsgBox "导入完毕！"
    If (OpenClipboard(0&)) Then
        Call EmptyClipboard
        Call CloseClipboard
    End If
End Sub
可是在Excel中互相复制可以，word就不行了，您帮我看看是什么问题？谢谢老师！！

liucqa

ljpmqb888 发表于 2017-6-6 11:58
老师您好，我有个问题，就是我在word中数据复制后想粘贴到Excel中，代码如下：
Sub 导入外部试题()
Dim  ...

没看懂。原则上，copy和paste都使用系统剪贴板应该可以通用。
前提是你能看懂剪贴板的数据格式

ljpmqb888

liucqa 发表于 2017-6-6 21:00
没看懂。原则上，copy和paste都使用系统剪贴板应该可以通用。
前提是你能看懂剪贴板的数据格式

就是复制word中的数据到Excel时，这个代码检测不到，可能是我这个Application.CutCopyMode这个问题，我这里的意思是检测到剪贴板为空时，提示“数据从新复制”，但我写的不好，从新写了目前可以了。

maihuanwen

henyongyong zuogejilu

lion21369

非常专业的剪切板知识,棒

一只鸟243

liucqa 发表于 2017-6-6 21:00
没看懂。原则上，copy和paste都使用系统剪贴板应该可以通用。
前提是你能看懂剪贴板的数据格式

请问老师：（20200804）
ShapeToPicture.xls中：
Public Function CreatePicture(ByVal hBmp As Long, PicType) As StdPicture
...
CLSIDFromString StrPrt("{00020400-0000-0000-C000-000000000046}"),IID_IDispatch(0) '???这句话是什么意思啊？谢谢。
...

一只鸟243

请问老师：（20200804） ShapeToPicture.xls中： Public Function CreatePicture(ByVal hBmp As Long, PicType) As StdPicture ... CLSIDFromString StrPrt("{00020400-0000-0000-C000-000000000046}"),IID_IDispatch(0) '???这句话是什么意思啊？谢谢。 ...

炎猪

请问在64位下如何使用，读取剪贴板时老是提取不到内容。另外WAVE为啥是49156？