엑셀과 chat gpt 연동 ㅠㅠ 정말 궁금합니다

Question

안녕하세요, 문돌이지만 업무 자동화에 관심이 많은 직장인입니다...중국 관련 업무가 꽤 있어서 엑셀에 gpt 연동시켜서 번역을 돌려보려고 하는데요,한자 특성상 단순 번역 외에도 중국어를 한글로 음차해서 읽어야 하는 경우가 있습니다. (예: 大人 -> 대인)이런거를 엑셀에서 자동으로 해주면 편하겠다 싶어서 구글링 &#43; 유튭 검색 &#43; gpt에 물어보기 해서 혼자 해보는 중인데gpt가 아래 코드를 vba 새 모듈에 붙여넣으면 음차기능이 생긴다는데 #VALUE! 에러만 나고 되지가 않네요 ㅠㅠapi 키도 맞게 다 넣었는데... 혹시 한번만 봐주실 대형들 계실까요 흑흑부탁드려봅니다!!Function GPT_Phonetic_Conversion(textCell As Range) As StringDim http As ObjectDim apiKey As StringDim prompt As StringDim url As StringDim data As StringDim response As StringDim jsonResponse As ObjectDim text As String' 셀에서 음차할 텍스트 가져오기text &#61; textCell.Value' OpenAI API Key 입력apiKey &#61; &#34;여기당신의API_키를_입력하세요&#34; ' 발급받은 OpenAI API 키' API URL 설정url &#61; &#34;https://api.openai.com/v1/completions&#34;' GPT에게 음차(발음 변환) 요청prompt &#61; &#34;Convert the following Chinese text to Korean phonetic pronunciation: &#34; & text' HTTP 요청 객체 생성Set http &#61; CreateObject(&#34;MSXML2.XMLHTTP&#34;)http.Open &#34;POST&#34;, url, Falsehttp.setRequestHeader &#34;Content-Type&#34;, &#34;application/json&#34;http.setRequestHeader &#34;Authorization&#34;, &#34;Bearer &#34; & apiKey' API 요청 데이터data &#61; &#34;{&#34;&#34;model&#34;&#34;: &#34;&#34;text-davinci-003&#34;&#34;, &#34;&#34;prompt&#34;&#34;: &#34;&#34;&#34; & prompt & &#34;&#34;&#34;, &#34;&#34;max_tokens&#34;&#34;: 1000, &#34;&#34;temperature&#34;&#34;: 0.7}&#34;' 요청 전송http.send data' 응답 처리response &#61; http.responseText' JSON 파싱을 위한 객체 생성Set jsonResponse &#61; JsonConverter.ParseJson(response)' 음차된 텍스트 추출GPT_Phonetic_Conversion &#61; jsonResponse(&#34;choices&#34;)(1)(&#34;text&#34;)End Function

데브폐인 · Answer

make 쓰세요. 일일이 코딩할 필요없어요.

rarity · Answer

나두야 엑셀 가서 참조하세요.내부 로직이야 누구든 작성할수 있는데 인터페이스쪽은 그분이 더 나아보입니다.

엑셀과 chat gpt 연동 ㅠㅠ 정말 궁금합니다

2개의 답변

#chatgpt 목록