인프런 커뮤니티 질문&답변

해당 강의 첨부파일에 소스코드를 대신 넣어두었습니다.

내용은 아래와 거의 같습니다.

import os
from tkinter.filedialog import askopenfilenames

import win32com.client as win32


# 선택한 셀의 텍스트 추출하는 함수
def get_text():
    hwp.InitScan(Range=0xff)
    total_text = ""
    state = 2
    while state not in [0, 1]:
        state, text = hwp.GetText()
        total_text += text
    hwp.ReleaseScan()
    return total_text


# 파일목록 선택하기
filelist = askopenfilenames(title="취합할 아래아한글 파일을 선택해주세요.",
                            initialdir=os.getcwd(),
                            filetypes=[("아래아한글파일", "*.hwp *.hwpx")])

# 아래아한글 실행
hwp = win32.gencache.EnsureDispatch("hwpframe.hwpobject")
hwp.XHwpWindows.Item(0).Visible = True
hwp.RegisterModule("FilePathCheckDLL", "FilePathCheckerModule")

# 엑셀 실행
excel = win32.gencache.EnsureDispatch("Excel.Application")
wb = excel.Workbooks.Open(os.path.join(os.getcwd(), "취합.xlsx"))
ws = wb.Worksheets(1)
excel.Visible = True

# 선택한 아래아한글을 하나씩 순회하면서
for file in filelist:
    hwp.Open(file)  # 한/글 문서를 열고

    # 첫 번째 표를 탐색
    ctrl = hwp.HeadCtrl
    while ctrl:
        if ctrl.CtrlID == "tbl":
            hwp.SetPosBySet(ctrl.GetAnchorPos(0))
            break
        else:
            ctrl = ctrl.Next

    # 찾아낸 첫 번째 표 안에 진입(A1셀 선택상태)
    hwp.FindCtrl()
    hwp.Run("ShapeObjTableSelCell")

    # 전체 셀의 각각의 값을 파이썬 리스트로 추출
    contents = []
    contents.append(get_text())  # 첫 번째 셀 값 넣어주고 나서
    while hwp.HAction.Run("TableRightCell"):
        contents.append(get_text())  # 우측으로 이동하면서 모든 셀 값 추출

    # contents 리스트 중 엑셀로 옮길 값만 추출
    과제명 = contents[1]
    신청부서 = contents[3].split("\r\n")[0].replace("/", "")
    과제담당관 = contents[3].split("\r\n")[1].replace("/", "")
    담당공무원 = contents[5]

    연구방식_ = ["위탁형", "공동연구형", "자문형"]
    연구방식 = [i.strip() for i in contents[7].split("(")][1:]
    for idx, text in enumerate(연구방식):
        if not text.startswith(")"):
            연구방식 = 연구방식_[idx]
            break

    연구시작 = contents[9].split("~")[0].strip()
    연구종료 = contents[9].split("~")[1].split("(")[0].strip()
    연구기간 = contents[9].split("(")[1].replace(")", "")

    예산항목_ = ["포괄", "사업별"]
    예산항목 = [i.strip() for i in contents[12].split("(")[1:]]
    for idx, text in enumerate(예산항목):
        if text.startswith(")"):
            pass
        else:
            예산항목 = 예산항목_[idx]

    예상금액 = contents[15]
    연구필요성 = contents[17]
    중복검토방법 = contents[21].split("\r\n")[1].replace("-", "").strip()

    중복성여부_ = ["있다", "없다"]
    중복성여부 = [i.strip() for i in contents[21].split("\r\n")[2].split("(")][1:]
    for idx, text in enumerate(중복성여부):
        if not text.startswith(")"):
            중복성여부 = 중복성여부_[idx]

    연구내용 = contents[23]
    연구결과활용방안 = contents[25]

    # 추출한 값들을 엑셀파일에 입력
    입력행 = len(ws.UsedRange()) + 1  # 추가할 행번호 계산
    ws.Range(ws.Cells(입력행, 1), ws.Cells(입력행, 15)).Value = (
        과제명, 신청부서, 과제담당관, 담당공무원, 연구방식, 연구시작, 연구종료, 연구기간, 예산항목, 예상금액,
        연구필요성, 중복검토방법, 중복성여부, 연구내용, 연구결과활용방안
    )

# 모든 한/글 문서의 순회를 마쳤으면
wb.Save()  # 엑셀파일 저장
hwp.Clear()  # 한/글 프로그램 비우기
hwp.Quit()  # 한/글 프로그램 종료

다만, 칸이 비어 있다든지, 원래 서식대로 작성되어 있다든지 할 때
오류가 발생할 수 있습니다. 예를 들면 신청부서/과제담당관이 한 줄로 기재되어 있다면
IndexError가 발생합니다.

여러가지 예외처리를 넣어줘야 하지만,
강의 특성상 깊게 예외처리를 해놓지는 않았습니다ㅜ

만약 작업하시면서 어려움이 있거나
오류가 해결이 안 된다면
martinii.fun@gmail.com으로 편하게 문의 주세요.

빠르게 도움 드리겠습니다.

감사합니다.
행복한 하루 되세요^^

보내주신 코딩 매우 감사드립니다. 꾸벅

늘 빠르게 대응해 주시니 너무 고맙습니다.

해결되었습니다.~~~이제 또 열공해야죠~~

빠른 답변 감사드립니다.

1. 버전 정보는 아래와 같습니다.

2. 한가지 질의(요청) 더 있습니다. - 이번강의 내용은 제가 그대로 사용하면 딱 맞춤형이라 코딩을 문서로 받고 싶습니다. 따라서 하는데 자꾸만 에러가 ㅠㅠ 가능한지요?

    

3. 코딩 전체 실행이 아닌 중간부분만 실행하는 방법도 알려주세요. (VBA사용하다가 파이선으로 와서 어려움이 , 너무 기본적인 것을 문의하여 죄송합니다.

4. 그리고 감사합니다.

    

q