作者bulldog ()
看板Office
標題Re: [問題] 100P! Excel VBA 可不可以"清除剪貼簿"?
時間Mon Dec 5 16:29:46 2011
※ 引述《hahawin (haha)》之銘言:
: excel 2007
: 想請問各位高手
: Excel VBA 有沒有辦法寫code 自動"清除剪貼簿"呢?
: 感謝!
: 以100P幣答謝!
單純不使用剪貼簿的話用
Application.CutCopyMode = False
就可以了
如果只是要清空剪貼簿,後續還要用的話
用下面這段..
Declare Function OpenClipboard Lib "User32.dll" _
(ByVal hWndNewOwner As Long) As Long
Declare Function EmptyClipboard Lib "User32.dll" () As Long
Declare Function CloseClipboard Lib "User32.dll" () As Long
Public Sub ClearClipboard()
Dim Ret
Ret = OpenClipboard(0&)
If Ret <> 0 Then Ret = EmptyClipboard
CloseClipboard
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.67.30.189
推 hahawin:一個重要問題想請問bulldog大! 12/05 20:25
推 poleman:你是資訊類還是自學的? excel和VBA很熟練..... 12/05 22:55