HwpCtrl1.Open 어떻게 사용하는 건가요?

한글 오토메이션
1

아래 코드에서 HwpCtrl1.Open strMain 에서 자꾸 429 런타임오류, 개체가 필요합니다만 나오네요.

참고로 저는 컴맹입니다.

Private Sub UserForm_Activate()

    
    '변수설정
    Dim strFile As String, strHwp As String, strMain As String  '엑셀파일,한컴파일,한컴양식파일 주소
    Dim strFolder As String, strFileName As String '불러 올 폴더주소, 파일이름
    Dim opFile As Workbook  '불러 올 엑셀파일
    Dim CellAd As String    '셀 주소
    Dim CountRow As Long    '행 개수
    Dim i As Double
    Dim vAct As HwpAction
    Dim vSet As HwpParameterSet
    Dim titleCS As String
    
    '폴더열기
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.count = 0 Then Exit Sub
        strFolder = .SelectedItems(1)
    End With
    
    strFileName = Dir(strFolder & "\*.xls*")
    
    Do While strFileName <> ""
    
    strFile = strFolder & "\" & strFileName
    Workbooks.Open strFile
    Set opFile = ActiveWorkbook
    strHwp = Left(opFile.FullName, Len(opFile.FullName) - 5) & ".hwp"
    
    '한컴 양식파일 열기
    strMain = ThisWorkbook.Path & "\Main.hwp"
    HwpCtrl1.Open strMain
    
    '행 개수 세기
    CellAd = opFile.Sheets(1).Range("A5")
    CountRow = 0
    Do While CellAd <> ""
        CountRow = CountRow + 1
        CellAd = opFile.Sheets(1).Range("A" & CountRow + 5)
    Loop
    
    '제목 변경
    titleCS = opFile.Sheets(1).Range("A2")
    Set vAct = HwpCtrl1.CreateAction("AllReplace")
    Set vSet = HwpCtrl1.CreateSet("FindReplace")
    vAct.GetDefault vSet
    vSet.SetItem "FindString", "제목!"
    vSet.SetItem "ReplaceString", titleCS
    vSet.SetItem "IgnoreMessage", True
    vAct.Execute vSet
    
    '표 추가
    Set vAct = HwpCtrl1.CreateAction("TableInsertLowerRow")
    Set vSet = vAct.CreateSet
    vAct.GetDefault vSet
    vSet.SetItem "TableInsertLine", 1
    
    For i = 1 To CountRow - 1
        vAct.Execute vSet
    Next i
    
    '복사 붙여넣기
    opFile.Sheets(1).Range("A5:G" & CountRow + 4).Copy
    
    Set vAct = HwpCtrl1.CreateAction("Paste")
    Set vSet = vAct.CreateSet
    vAct.GetDefault vSet
    vSet.SetItem "Option", 5
    vAct.Execute vSet
    
    Application.CutCopyMode = False
    
    '저장
    HwpCtrl1.SaveAs strHwp
    opFile.Close SaveChanges:=False
    
    strFileName = Dir()
    
    Loop

End Sub
2

안녕하세요.

한글컨트롤을 통해 엑셀의 시트의 데이터로 한글 문서를 생성하는 자동화하는 동작을 구현하는 샘플로 보입니다.

“429 런타임오류” 오류는 한글컨트롤 개체를 정상적으로 생성하지 못했을 때 발생할 수 있는 에러인데요.

image
image817×363 14.8 KB

현재 사용중인 PC에서 한글컨트롤이 OS에 정상적으로 등록되어 있는지 확인해보시면 좋을 것 같습니다.
사용중인 한글의 설치 경로를 확인하셔서 아래와 같이 한글컨트롤을 등록해보시면 될 것 같습니다.

관리자모드 컨맨드 창에서 아래와 같이 실행

ex) 설치 경로 이동 cd "C:\Program Files (x86)\Hnc\HOffice9\Bin\"
ex) 한글컨트롤 등록 regsvr32 HwpCtrl.ocx
  • 단, 최신 버전의 한글에서는 한글컨트롤이 지원 종료되어 사용이 안 될 수 있으니 참고 부탁드립니다.
    OCX 컨트롤 지원 종료 안내

감사합니다.