엑셀VBA 클립보드 사용
아래와 같이 함수를 만들어쓸 수 있습니다.
1. 클립보드에 문자열 저장
Function setClip(str)
Dim obj As Object
Set obj = CreateObject(“new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}”)
obj.setText str
obj.PutInClipboard
SetCB = True
End Function
2. 클립보드에서 문자열 꺼내기
Function getClip$()
Dim obj As Object
Set obj = CreateObject(“new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}”)
obj.GetFromClipboard
getClip = obj.GetText
End Function
이하 테스트 화면입니다.
Sub Macro1()
‘
‘ Macro1 Macro
‘
‘ 바로 가기 키: Ctrl+k
‘
setClip (“클립보드에 저장할 내용”)
Dim result
result = getClip()
MsgBox (“출력 : ” + result)
End Sub
