Application.CommandBars(93).Controls(4).Execute
или
Application.CommandBars("ClipBoard").Controls(4).Execute
Работа с буфером обмена MS Office?
Привет, есть необходимость получить доступ (чтобы очисить)к личному буферу офиса. Тому самому, который на 12 элементов. Подскажите, плиз, как это можно сделать.
10х in advance :)
P.S. На msdn.com не отправлять - уже был :)
10х in advance :)
P.S. На msdn.com не отправлять - уже был :)
Вот пример для MS Excel 2000, в котором буфер обмена действительно содержит всего 12 элементов.
Обратите внимание на то, что если буфер обмена окажется пуст, то Вы получите ошибку, которую можно избежать, если использовать что-то вроде :
Код:
Обратите внимание на то, что если буфер обмена окажется пуст, то Вы получите ошибку, которую можно избежать, если использовать что-то вроде :
Код:
With Application.CommandBars(93).Controls(4)
If .Enabled = True Then .Execute
End With
If .Enabled = True Then .Execute
End With
Цитата:
Originally posted by pashulka
Вот пример для MS Excel 2000, в котором буфер обмена действительно содержит всего 12 элементов.
Обратите внимание на то, что если буфер обмена окажется пуст, то Вы получите ошибку, которую можно избежать, если использовать что-то вроде :
Вот пример для MS Excel 2000, в котором буфер обмена действительно содержит всего 12 элементов.
Код:
Application.CommandBars(93).Controls(4).Execute
или
Application.CommandBars("ClipBoard").Controls(4).Execute
или
Application.CommandBars("ClipBoard").Controls(4).Execute
Обратите внимание на то, что если буфер обмена окажется пуст, то Вы получите ошибку, которую можно избежать, если использовать что-то вроде :
Код:
With Application.CommandBars(93).Controls(4)
If .Enabled = True Then .Execute
End With
If .Enabled = True Then .Execute
End With
Ой, а можно пример по подробнее? В этом не разобрался :)
Код:
Private Sub Office_ClipBoard()
With Application
If Val(.Version) = 9 Then
With .CommandBars("ClipBoard").Controls(4)
If .Enabled = True Then .Execute
End With
Else
MsgBox "Пример только для MS Excel 2000", , ""
End If
End With
End Sub
With Application
If Val(.Version) = 9 Then
With .CommandBars("ClipBoard").Controls(4)
If .Enabled = True Then .Execute
End With
Else
MsgBox "Пример только для MS Excel 2000", , ""
End If
End With
End Sub