원활한 유지보수 및 안정화를 위해 SendKAKAO / GetKAKAO 함수 제공을 중단하고,
"엑셀+카카오톡 자동화 서식(템플릿)"만 제공합니다.
너그러운 양해 부탁드리며, 추가 사항은 댓글로 남겨주세요. 고맙습니다.
=GetKAKAO(사용자명,[출력할메세지개수],[내림차순정렬],[지연시간])
- 지연시간은 1~10 사이의 숫자를 입력합니다.
=GetKAKAO("오빠두엑셀")
// '오빠두엑셀' 이라는 사용자와의 채팅 내역을 출력합니다.

=GetKAKAO("오빠두엑셀",1)
// 가장 최근 1개 메시지를 출력합니다.

채팅방 상단의 '돋보기'모양 아이콘 → '시계'모양 아이콘 → 조회하고자 하는 기간으로 이동한 후 GetKakao 함수를 실행합니다.
=GetKAKAO("오빠두엑셀",0)
// 해당 기간의 모든 채팅 내역을 출력합니다.

=GetKAKAO("오빠두엑셀".RoundUp(Rand(),0))
// 함수 입력 후, F9 키로 새로고침하면 최근 1개 메시지가 실시간으로 출력됩니다.

채팅창에 사용된 '이모티콘', '사진', '첨부파일'은 일반 텍스트로로 표시됩니다.
예) [이모티콘], [사진], 등..
해당 함수는 PC에 설치된 카카오톡을 기반으로 동작합니다. 따라서, 함수를 사용하기 전 PC 카카오톡을 반드시 실행해야 합니다.
(창 크기 최소화, 또는 숨김 여부에 상관없이 올바르게 동작합니다.)
GetKakao 함수는 카카오톡 채팅방의 채팅 내역을 물리적으로 복사/붙여넣기합니다.
따라서 '짧은 시간안에 여러 번 반복실행' 할 경우, [잠시 후 다시 실행해주세요.] 라는 안내메세지가 출력될 수 있습니다.
이러한 경우, '지연 시간'을 늦추거나 더 낮은 주기로 함수를 새로고침합니다.
상대방 대화명에 이모티콘 또는 특수문자가 포함된 경우, GetKakao 함수를 사용할 수 없습니다.
이러한 겨우, 대화창 우측 상단의 [설정] 버튼 - 채팅방 설정 에서 상대방의 대화명을 변경할 수 있습니다.
출력할 메세지 개수를 0으로 사용하면, 모든 대화 내역이 출력됩니다.
이 때, 함수가 작성된 셀의 아래 쪽에 기존 입력된 값이 있을 경우, 모두 삭제되므로 주의합니다.



지연시간을 늦추려면 어떻게 하나요?
으로 입력해보시겠어요?
함수의 4번째 마지막 인수는 지연시간이며 3~10 까지 조절가능합니다. 컴퓨터 사양이 낮아 값을 제대로 받아오지 못할경우, 숫자를 10까지 조절할 수 있습니다.
답변이 도움이 되셨길 바랍니다.
감사합니다.
좀 더 활용해서 A에게 받은 메세지를 B에게 전달하는것 구현중인데...
초보인 저는 잘 안되네요.. ^^;;
받은걸 그대로 전송하도록 하니 엑셀이 죽어버리네요..
다른 방법을 써야할것 같네요
추가로 엑셀이 죽고나니 다시 addin 추가해줘야 하는듯합니다. ㅜㅜ
아래 폴더로 옮겨놔도 계속 재설치만 하네요..
한번 addin하면 추가로 손 안대는 방법 없을까요?
C:\Users\MyDesktop\AppData\Roaming\Microsoft\AddIns
새로 업데이트 된 추가기능으로 설치해보시겠어요?
파일을 실행하시면 C:\오빠두엑셀\ 폴더로 추가기능이 설치되며 바로 사용하실 수 있습니다.
A에게 받은 메세지를 B에게 바로 전달하시려면 GetKAKAO 함수와 SendKAKAO 함수를 같이 사용하시면 될듯하나, 엑셀 수식 업데이트 방식을 '수동'으로 바꿔서 사용하셔야 할듯 합니다 ^^;
그렇지 않을경우 순환오류가 발생하여 엑셀이 멈추게 될 듯 합니다.
가장 확실하신 방법은 상황에 맞춰 명령문을 적절히 수정하는 것이겠으나, 어느정도 VBA에 대한 이해가 있으셔야 할것으로 보입니다.
답변이 도움이 되셨길 바랍니다.^-^
감사합니다.
ChangeFileAccess 메서드('_Workbook' 개체의)에서 오류가 발생하였습니다.
뭐가 문제일까요?
파일이름에 [] 가 들어가있어서 발생한 오류입니다. 미처 생각을 못했던 부분이네요. 죄송합니다.
설치는 정상적으로 잘 되셨고, 함수 이용하시는데 문제 없으실겁니다.
해당 문제는 수정하였습니다. 댓글로 알려주셔서 감사합니다.
최신버전인 3.1.4.2500 에서 테스트해봤는데 잘 동작합니다.
다시 확인해보시겠어요?