한셀에서 매크로스크립트를 사용하여
한글 파일을 열고 한셀의 내용을 한글 파일에 조작을 하여 저장하는 방법을 찾고 있습니다.
한컴오피스 2018을 사용하고 있습니다.
참고로, 저는 차단된 망내에서 근무하여
인터넷은 사용할 수가 없습니다.
휴대폰으로 검색만 해 보았습니다.
포털 사이트 / 한컴 기술지원 홈페이지 에도 도움 내용이 부족한 것 같습니다.
고수님 들의 많은 도움 부탁드립니다.
어떤 분이 업로드한 파일을 이용하여 작업을 시도해 보았습니다. 파일이 열리지 않습니다.
스크립트 내용은 아래와 같습니다.한셀매크로에서 아래와 같이 입력하였습니다.
파일이 열리지 않습니다.
Dim hwpApp, hwpDoc
Set hwpApp = CreateObject("HWPFrame.HwpObject")
hwpApp.XHwpWindows.Item(0).Visible = True
Set hwpDoc = hwpApp.XHwpDocuments.Open("C:\path\to\your\hwp_file.hwp")
한글 파일이 열리지 않아서 작업이 진행이 되지 않고 있습니다.
궁금한 점은
한셀매크로스크립트를 이용하여
한글 파일 열기
한글 파일 저장 하고 닫기
한글 파일 저장 하지 않고 닫기
한글 파일 다른이름으로 저장하기
여럭개의 한글 파일이 열린 경우, 작업하고자 하는 한글 파일 활성화하기
위와 같은 한글 파일의 조작방법입니다.
고수님들의 많은 도움 부탁드립니다.
감사합니다.
안녕하세요
간단하게 코드 만들어봤는데 참고 부탁드려요~
여러개의 한글 파일을 다루는 방법은 가이드 문서의 IXHwpDocuments, IXHwpDocument를 확인하시고 사용하시면 좋을 것 같습니다. Object를 여러개 만드셔도 될 것 같습니다.
Dim hwpApp, hwpDoc
Set hwpApp = CreateObject("HWPFrame.HwpObject")
hwpApp.XHwpWindows.Item(0).Visible = True
isOpen = hwpApp.Open("C:\\Test\\Test.hwpx", "HWPX", "")
If isOpen = "True" Then
isSuccess = hwpApp.SaveAs("C:\\Test\\Test2.hwpx", "HWPX", "")
End If
hwpApp.Quit()
감사합니다.
신경 써 주셔서 감사합니다.
그런데 제 노트북에서는 컴파일 오류가 뜹니다…
오류 내용은
“컴파일 오류, 식을 찾을 수 없습니다.”
이라고 나옵니다.
혹시 스크립트를 실행하려면 추가적인 프로그램을 설치해야 하는지요?
선생님의 내용에는 “isOpen” , "isSuccess"가 녹색으로 보입니다.
isOpen, isSuccess 가 기본 제공 함수인가요?
이곳은 폐쇄망으로 한컴오피스2018 외에 추가적인 프로그램을 설치할 수 가 없는 환경입니다.
감사합니다.
안녕하세요
한컴오피스만 설치되어 있으면 추가 프로그램 설치 없이도 실행이 되어야 합니다.
“isOpen” , "isSuccess"는 기본 제공함수가 아니라 함수의 결과를 반환 받은 변수입니다.
컴파일 오류 나는 문제는 관련 담당자에게 문의를 했고 다시 말씀드리겠습니다.
감사합니다.
번거로우실텐데 답변 감사합니다.
오류는 해결이 되었습니다.
다음날 실행하니 오류가 없어졌습니다.
한글이 실행이 되는 듯 한데
한글의 실행이 작업표시줄에 잠깐 나왔다가 사라집니다.
백그라운드에서 만 실행이 됩니다.
스크립트를 실행할 때 마다
작업관리자의 백그라운드 프로세스에
“HWP 2018(32비트)” 가 한줄씩 추가됩니다.
한글창이 활성화가 되지 않네요
Dim hwpApp, hwpDoc
Set hwpApp = CreateObject(“HWPFrame.HwpObject”)
hwpApp.XHwpWindows.Item(0).Visible = True
hwpApp.Open(“C:\Test.hwpx”, “HWPX”, “”)
안녕하세요
저희가 한셀 동작 문제는 도움을 드리기 힘들 것 같습니다ㅠㅠ
저희도 관련 부서에 문의를 남겼으나 아래 고객지원 사이트에서 문의하시는 게 좋을 것 같습니다.
감사합니다.
네 감사합니다.
한글과 컴퓨터에 문의해 보겠습니다.