지난번 카카오톡 메세지 보내기 포스팅에 이어 이번 포스팅은 메세지 가져오는 vba 코드에 대한 포스팅입니다. 마찬가지로 Windows API를 사용하기때문에 직접적으로 카카오톡을 제어하는게 아니라 쉽게 말하자면 윈도우를 제어해서 복사, 붙여넣기로 메세지를 읽어오는거라 생각하시면 되겠습니다. 방식은 대화방 이름을 검색해서 대화방을 열고 채팅내용 전체를 선택한후 복사(ctrl+C), 복사한 클립보드 내용을 읽어서 원하는 대화 내용을 뽑아낸다. 라는 방식이 되겠습니다. API 함수 선언부분에는 안쓰는것들도 포함되어 있을 수 있습니다. 카카오톡 전송하는 코드랑 같이 쓰는거에서 뽑아온거라 걸러내기 사실 힘들어서 그냥 그대로 넣었습니다. 메세지 가공하는 부분은 예전 포스팅의 Split, Replace, Trim 활..
예전에 카톡 메세지 보내는 엑셀 파일을 올렸는데 거의 2년반만에 새롭게 만들어 봤어요. 원본 소스는 "오빠두엑셀"에서 참고했으며, 인터넷의 python의 카톡 메세지 발송 포스팅 글들을 참고했습니다. 이전글 (엑셀에서 카카오톡 메세지 보내기)에서는 친구목록으로 메세지를 발송했었는데, 이번에는 채팅방 목록에서 채팅방 이름으로 메세지를 발송하도록 변경하였습니다. 친구목록을 사용하실 분들은 이전 포스팅을 참고해주세요. 달라진 부분은 발송방법을 문자와 그림의 두가지로 발송되게 만들었고, C3셀에서 선택하게끔 만들었습니다. 문자의 경우 I3셀부터 아래로 입력된 모든 셀의 내용을 전송합니다. 그림의 경우 C4셀에 입력한 범위를 복사해서 카톡 메세지로 붙여넣기 하는 방식으로 발송합니다. 단, 그림 전송의 경우 예전부..
카톡으로 발주를 매일 받는건이 있어서 만들었던 매크로 입니다. 현재도 쓰고 있구요. 저의 상황에 맞춰서 만든거라 참고용으로 보시고 필요하신 부분 참고하시라고 올려봅니다. 카톡 대화창에서 대화내용을 우클릭해서 복사한뒤 엑셀에 붙여넣기를 하면 [대화명] [시간] 내용 이런식으로 나오게 되는데 여기서 내용만 뽑아내고 내용에서 필요없는 부분을 없애고, 원하는 형식으로 변경해주는 코드입니다. Sub KakaoMessageFiltering() Dim i As Long, j As Long '반복구문에 사용할 변수 Dim strU As String, strUF As String '문자를 합쳐갈(U)nion 변수 Dim strEach$, strK$, strL$ '문자를 넣을 변수 Dim varS() As String '..
