관리가 필요한 엑셀파일(테이블) 들이 늘어남에 따라
수정이 필요한 경우 각 엑셀파일을 열어서 메크로를 수정 해야 되는 문제 발생
(문제라기 보다는 귀찮은거지 뭐)
공통 코드 서식파일을 만들어서 엑셀파일을 열때 서식을 열어서 사용하도록 하자!
음....근데 서식을 하려고 하니 각 엑셀에 버튼을 만들어줘야 하는 게 또 걸리네..
리본메뉴 추가다!!!
OfficeCustomUIEditorSetup 를 다운받아 설치 합니다.
OfficeCustomUIEditorSetup.msi(닷넷 프레임워크 3.0 이 필요하다고 나오면서 링크로 연결되더군요)
아무것도 적혀있지 않은 엑셀파일하나를 생성합니다.
이후 Custom UI Editor For Microsoft Office 를 실행한 후
File-Open 으로 해당 엑셀파일을 열어 줍니다.
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab id="customTab" label="NewBorn">
<group id="customGroup" label="Xml Tools">
<button id="customButton1"
label="Xml Export"
imageMso="XmlExport"
size="large"
onAction="ButtonClick" />
<button id="customButton2"
label="csv Export"
imageMso="ExportTextFile"
size="large"
onAction="ButtonClick2" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
추가적인 내용은 엑사모를 참고
http://www.examo.co.kr/tn/board.php?board=qqqtip&config=4&page=4&command=body&no=1149
나야 뭐 엑셀 익스포트랑 csv 익스포트만 있으면 되니 메뉴 구성을 저렇게 만듬
Alt+F11 을 눌러 VBA 연다
모듈을 추가 하고
Sub ButtonClick(control As IRibbonControl) 'xml 버튼 클릭시실행될 내용
MsgBox "xml 버튼누름"
End Sub
Sub ButtonClick2(control As IRibbonControl) 'csv 버튼 클릭시 실행될 내용
MsgBox " 버튼누름"
End Sub
다른 이름으로 저장 시 "Excel 추가기능" 을 선택하여 저장
하면 사용자 메뉴.xlam 엑셀 서식 파일이 생성된다.
대상 엑셀에
Sub Auto_open()
strPath = ThisWorkbook.Path
Workbooks.Open Filename:=strPath & "\사용자메뉴.xlam"
End Sub
를 해서 열때 마다 서식파일을 열도록 하면 끝
ps. 리본 이미지는 이 파일로..