[excel] VBA를 사용하여 사용자 지정 리본 탭을 추가하는 방법은 무엇입니까?

몇 개의 버튼이있는 Excel 리본에 사용자 지정 탭을 추가하는 방법을 찾고 있습니다. Google을 통해 문제를 해결하는 일부 리소스를 찾았지만 모두 어리 석고 엄청나게 복잡해 보입니다.

이를 수행하는 빠르고 간단한 방법은 무엇입니까? VBA가 Excel에로드 될 때 새 탭을로드하고 싶습니다.

업데이트 : 여기 에서이 예제를 시도했지만 마지막 명령에서 “개체 필요”오류가 발생합니다.

Public Sub AddHighlightRibbon()
Dim ribbonXml As String

ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + "  <mso:ribbon>"
ribbonXml = ribbonXml + "    <mso:qat/>"
ribbonXml = ribbonXml + "    <mso:tabs>"
ribbonXml = ribbonXml + "      <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">"
ribbonXml = ribbonXml + "        <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"
ribbonXml = ribbonXml + "          <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "
ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
ribbonXml = ribbonXml + "        </mso:group>"
ribbonXml = ribbonXml + "      </mso:tab>"
ribbonXml = ribbonXml + "    </mso:tabs>"
ribbonXml = ribbonXml + "  </mso:ribbon>"
ribbonXml = ribbonXml + "</mso:customUI>"

ActiveProject.SetCustomUI (ribbonXml)
End Sub



답변

AFAIK에서는 VBA Excel을 사용하여 Excel 리본에서 사용자 지정 탭을 만들 수 없습니다. 그러나 VBA를 사용하여 리본 구성 요소를 숨기거나 표시 할 수 있습니다. 또한 위에서 언급 한 링크는 MS Excel이 아닌 MS Project 용 링크입니다.

Custom UI Editor 라는 무료 유틸리티를 사용하여 Excel 응용 프로그램 / 추가 기능에 대한 탭을 만듭니다 .


편집 : OP의 새로운 요청을 수용하기 위해

지도 시간

다음은 약속 된 짧은 튜토리얼입니다.

  1. 사용자 정의 UI 편집기 (CUIE)를 설치 한 후 열고 파일 | 관련 Excel 파일을 열고 선택합니다. CUIE를 통해 열기 전에 Excel 파일이 닫혀 있는지 확인하십시오. 새로운 워크 시트를 예로 사용하고 있습니다.

    여기에 이미지 설명 입력

  2. 아래 이미지와 같이 마우스 오른쪽 버튼을 클릭하고 “Office 2007 Custom UI Part”를 클릭합니다. “customUI.xml”이 삽입됩니다.

    여기에 이미지 설명 입력

  3. 다음 메뉴 클릭 삽입 | 샘플 XML | 맞춤 탭. 기본 코드가 자동으로 생성됩니다. 이제 요구 사항에 따라 편집 할 수 있습니다.

    여기에 이미지 설명 입력

  4. 코드를 살펴 보자

    여기에 이미지 설명 입력

    label="Custom Tab": “사용자 정의 탭”을 탭에 지정할 이름으로 바꿉니다. 당분간은 “제롬”이라고 부르 자.

    아래 부분은 사용자 정의 버튼을 추가합니다.

    <button id="customButton" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback" />

    imageMso: 버튼에 표시되는 이미지입니다. “HappyFace”는 지금 당신이 보게 될 것입니다. 여기에서 더 많은 이미지 ID를 다운로드 할 수 있습니다 .

    onAction="Callback": “콜백”은 버튼을 클릭 할 때 실행되는 프로 시저의 이름입니다.

데모

이것으로 2 개의 버튼을 만들고 “JG Button 1″과 “JG Button 2″라고 부르겠습니다. 첫 번째 이미지는 행복한 얼굴을 유지하고 두 번째 이미지는 “태양”을 유지합시다. 수정 된 코드는 이제 다음과 같습니다.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="MyCustomTab" label="Jerome" insertAfterMso="TabView">
<group id="customGroup1" label="First Tab">
<button id="customButton1" label="JG Button 1" imageMso="HappyFace" size="large" onAction="Callback1" />
<button id="customButton2" label="JG Button 2" imageMso="PictureBrightnessGallery" size="large" onAction="Callback2" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

CUIE에서 생성 된 모든 코드를 삭제 한 다음 대신 위 코드를 붙여 넣습니다. CUIE를 저장하고 닫습니다. 이제 Excel 파일을 열면 다음과 같이 표시됩니다.

여기에 이미지 설명 입력

이제 코드 부분입니다. VBA 편집기를 열고 모듈을 삽입 한 후 다음 코드를 붙여 넣습니다.

Public Sub Callback1(control As IRibbonControl)

    MsgBox "You pressed Happy Face"

End Sub

Public Sub Callback2(control As IRibbonControl)

    MsgBox "You pressed the Sun"

End Sub

Excel 파일을 매크로 사용 파일로 저장합니다. 이제 Smiley 또는 Sun을 클릭하면 관련 메시지 상자가 표시됩니다.

여기에 이미지 설명 입력

도움이 되었기를 바랍니다!


답변

Excel 2013에서 VBA로이 작업을 수행 할 수있었습니다. 특별한 편집기가 필요하지 않습니다. 개발자 탭에서 액세스 할 수있는 Visual Basic 코드 편집기 만 있으면됩니다. 개발자 탭은 기본적으로 표시되지 않으므로 파일> 옵션> 리본 사용자 지정에서 활성화해야합니다. 개발 도구 탭에서 Visual Basic 단추를 클릭하십시오. 코드 편집기가 시작됩니다. 왼쪽의 프로젝트 탐색기 창을 마우스 오른쪽 버튼으로 클릭합니다. 삽입 메뉴를 클릭하고 모듈을 선택하십시오. 아래의 두 구독자를 새 모듈에 추가하십시오.

Sub LoadCustRibbon()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "<mso:customUI      xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + "  <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "      <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + "        <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + "          <mso:button id='runReport' label='PTO' "   & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3'      onAction='GenReport'/>" & vbNewLine
ribbonXML = ribbonXML + "        </mso:group>" & vbNewLine
ribbonXML = ribbonXML + "      </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + "    </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "  </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"

ribbonXML = Replace(ribbonXML, """", "")

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Sub ClearCustRibbon()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "<mso:customUI           xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Wookbook에서 LoadCustRibbon sub를 호출해도 열리고 ThisWorkbook 코드 파일의 Before_Close 이벤트에서 ClearCustRibbon 하위를 호출합니다.


답변

나는 미친 듯이 고생했지만 실제로 이것은 정답입니다. 그것이 가치있는 것에 대해 내가 놓친 것은 다음과 같습니다.

  1. 다른 사람들이 말하는 것처럼, 하나는 VBA와 CustomUI 리본을 만들 수 없습니다, 그러나 , 당신은 할 필요가 없습니다!
  2. 아이디어는 Excel의 파일> 옵션> 리본 사용자 지정을 사용하여 xml 리본 코드를 만든 다음 리본을 .customUI 파일로 내보내는 것입니다 (xml이 포함 된 txt 파일).
  3. 이제 트릭 이 있습니다. 여기서 참조하는 MS 도구를 사용하여 .customUI 파일에서 코드를 복사하여 .xlsm 파일에 .customUI 코드를 포함 할 수 있습니다 .
  4. .xlsm 파일에 포함 된 후에는 열 때마다 정의한 리본이
    사용자의 리본에 추가 됩니다. 그러나 <ribbon startFromScratch = “false”>를 사용하지 않으면 나머지 리본이 손실됩니다. 통합 문서를 종료하면 리본이 제거됩니다.
  5. 여기에서 간단합니다. 리본을 만들고 .customUI 파일에서 리본과 관련된 xml 코드를 복사 한 다음 위에 표시된대로 래퍼에 넣습니다 (… <tabs> xml </ tabs .. .)

그런데 Ron의 사이트에서 설명하는 페이지는 현재
http://www.rondebruin.nl/win/s2/win002.htm입니다.

다음은 리본에서 버튼을 활성화 / 비활성화하는 방법에 대한 그의 예입니다.
http://www.rondebruin.nl/win/s2/win013.htm

리본의 다른 xml 예제는 http://msdn.microsoft.com/en-us/library/office/aa338202%28v=office.12%29.aspx를 참조하십시오
.


답변

여기에 대한 답변은 사용자 정의 UI 편집기 사용에 한정됩니다. 그 멋진 프로그램없이 인터페이스를 만드는 데 시간을 보냈기 때문에 다른 사람이 사용자 정의 UI 편집기가 필요한지 여부를 결정하는 데 도움이되도록 여기에 솔루션을 문서화하고 있습니다.

다음 Microsoft 도움말 웹 페이지를 발견했습니다-https: //msdn.microsoft.com/en-us/library/office/ff861787.aspx . 이것은 인터페이스를 수동으로 설정하는 방법을 보여 주지만 사용자 지정 추가 기능 코드를 가리킬 때 약간의 문제가있었습니다.

버튼이 사용자 정의 매크로와 함께 작동하도록하려면이 SO 응답- 리본에서 엑셀 매크로 호출에 설명 된대로 호출 할 .xlam 서브에 매크로를 설정하십시오 . 기본적으로 리본 xml에서 가리키는 모듈에 “control As IRibbonControl”매개 변수를 추가해야합니다. 또한 리본 xml에는 추가 기능에 의해로드 된 모듈을 올바르게 호출하기 위해 onAction = “myaddin! mymodule.mysub”구문이 있어야합니다.

이러한 지침을 사용하여 VBA가 추가 기능과 함께 Excel에로드 될 때 사용자 지정 탭이로드 된 Excel 추가 기능 (.xlam 파일)을 만들 수있었습니다. 단추는 추가 기능에서 코드를 실행하고 사용자 지정 탭은 추가 기능을 제거합니다.


답변

Roi-Kyi Bryant 답변 외에도이 코드는 Excel 2010에서 완벽하게 작동합니다. Alt + F11을 누르면 VBA 편집기가 나타납니다. ThisWorkbook왼쪽을 두 번 클릭하고 다음 코드를 붙여 넣으십시오.

Private Sub Workbook_Activate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "<mso:customUI      xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + "  <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "      <mso:tab id='reportTab' label='My Actions' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + "        <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + "          <mso:button id='runReport' label='Trim' " & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3'      onAction='TrimSelection'/>" & vbNewLine
ribbonXML = ribbonXML + "        </mso:group>" & vbNewLine
ribbonXML = ribbonXML + "      </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + "    </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "  </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"

ribbonXML = Replace(ribbonXML, """", "")

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Private Sub Workbook_Deactivate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "<mso:customUI           xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

통합 문서를 저장하고 다시 여는 것을 잊지 마십시오. 도움이 되었기를 바랍니다!


답변

여러 애드 인이 리본을 수정하려고 할 때 Roi-Kyi Bryant의 솔루션에 어려움이 있었습니다. 또한 내 직장 컴퓨터에 대한 관리자 액세스 권한이 없어 Custom UI Editor. 따라서 나와 같은 보트에있는 경우 Excel 만 사용하여 리본을 사용자 지정 하는 다른 예가 있습니다. 내 솔루션은 Microsoft 가이드 에서 파생되었습니다 .


  1. 리본을 사용자 지정할 Excel 파일 / 파일을 만듭니다. 필자의 경우 여러 추가 기능이 리본과 상호 작용하는 방법을 보여주기 위해 두 개의 .xlam파일 Chart Tools.xlam및을 만들었습니다 Priveleged UDFs.xlam.
  2. 방금 만든 파일 에 대해 임의의 폴더 이름으로 폴더를 만듭니다 .
  3. 생성 한 각 폴더 안에 customUI_rels폴더를 추가 합니다.
  4. customUI폴더 안에 customUI.xml파일을 만듭니다 . 이 customUI.xml파일은 Excel 파일이 리본과 상호 작용하는 방식을 자세히 설명합니다. Microsoft 가이드의 2 부 에서는 customUI.xml파일 의 요소를 다룹니다 .

customUI.xml파일은 Chart Tools.xlam다음과 같습니다.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">
  <ribbon>
    <tabs>
      <tab idQ="x:chartToolsTab" label="Chart Tools">
        <group id="relativeChartMovementGroup" label="Relative Chart Movement" >
            <button id="moveChartWithRelativeLinksButton" label="Copy and Move" imageMso="ResultsPaneStartFindAndReplace" onAction="MoveChartWithRelativeLinksCallBack" visible="true" size="normal"/>
            <button id="moveChartToManySheetsWithRelativeLinksButton" label="Copy and Distribute" imageMso="OutlineDemoteToBodyText" onAction="MoveChartToManySheetsWithRelativeLinksCallBack" visible="true" size="normal"/>
        </group >
        <group id="chartDeletionGroup" label="Chart Deletion">
            <button id="deleteAllChartsInWorkbookSharingAnAddressButton" label="Delete Charts" imageMso="CancelRequest" onAction="DeleteAllChartsInWorkbookSharingAnAddressCallBack" visible="true" size="normal"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

customUI.xml파일은 Priveleged UDFs.xlam다음과 같습니다.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">
  <ribbon>
    <tabs>
      <tab idQ="x:privelgedUDFsTab" label="Privelged UDFs">
        <group id="privelgedUDFsGroup" label="Toggle" >
            <button id="initialisePrivelegedUDFsButton" label="Activate" imageMso="TagMarkComplete" onAction="InitialisePrivelegedUDFsCallBack" visible="true" size="normal"/>
            <button id="deInitialisePrivelegedUDFsButton" label="De-Activate" imageMso="CancelRequest" onAction="DeInitialisePrivelegedUDFsCallBack" visible="true" size="normal"/>
        </group >
      </tab>
    </tabs>
  </ribbon>
</customUI>
  1. 들어 파일 당신은 접미사 단계 1에서 만든 .zip자신의 파일 이름. 제 경우에는, 및 로 이름 Chart Tools.xlam을 변경 했습니다 .Chart Tools.xlam.zipPrivelged UDFs.xlamPriveleged UDFs.xlam.zip
  2. .zip파일을 열고 _rels폴더로 이동 합니다. 3 단계에서 만든 폴더에 .rels파일을 복사합니다 . 텍스트 편집기로 파일을 _rels편집 합니다 .rels . 로부터 마이크로 소프트 가이드

마지막 <Relationship>요소와 닫는
<Relationships>요소 사이에 문서 파일과 사용자 정의 파일 간의 관계를 만드는 줄을 추가합니다. 폴더 및 파일 이름을 올바르게 지정했는지 확인하십시오.

<Relationship Type="http://schemas.microsoft.com/office/2006/
  relationships/ui/extensibility" Target="/customUI/customUI.xml"
  Id="customUIRelID" />

.rels파일은 Chart Tools.xlam다음과 같습니다.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
        <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
        <Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
        <Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml" Id="chartToolsCustomUIRel" />
    </Relationships>

.rels파일은 Priveleged UDFs다음과 같습니다.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
        <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
        <Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
        <Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml" Id="privelegedUDFsCustomUIRel" />
    </Relationships>
  1. .rels.zip파일의 .rels파일을 이전 단계에서 수정 한 파일로 바꿉니다 .
  2. .customUI생성 한 폴더를 .zip파일 / 파일 의 홈 디렉토리에 복사하여 붙여 넣 습니다 .
  3. .zip생성 한 Excel 파일에서 파일 확장자를 제거합니다 .
  4. .xlam파일을 만든 경우 Excel로 돌아가서 Excel 추가 기능에 추가합니다.
  5. 해당하는 경우 각 추가 기능에서 콜백 을 만듭니다 . 4 단계에서는 onAction버튼에 키워드 가 있습니다 . onAction키워드를 포함하는 요소가 트리거 될 때, Excel 응용 프로그램이 직접 후 따옴표로 쌌다 서브 루틴 트리거, 나타냅니다 onAction키워드를. 이를 콜백이라고 합니다. 내 .xlam파일 CallBacks에는 콜백 서브 루틴이 포함 된 모듈 이 있습니다.

콜백 모듈

CallBacks모듈은 Chart Tools.xlam다음과 같습니다.

Option Explicit

Public Sub MoveChartWithRelativeLinksCallBack(ByRef control As IRibbonControl)
  MoveChartWithRelativeLinks
End Sub

Public Sub MoveChartToManySheetsWithRelativeLinksCallBack(ByRef control As IRibbonControl)
  MoveChartToManySheetsWithRelativeLinks
End Sub

Public Sub DeleteAllChartsInWorkbookSharingAnAddressCallBack(ByRef control As IRibbonControl)
  DeleteAllChartsInWorkbookSharingAnAddress
End Sub

CallBacks모듈은 Priveleged UDFs.xlam다음과 같습니다.

명시 적 옵션

Public Sub InitialisePrivelegedUDFsCallBack(ByRef control As IRibbonControl)
  ThisWorkbook.InitialisePrivelegedUDFs
End Sub

Public Sub DeInitialisePrivelegedUDFsCallBack(ByRef control As IRibbonControl)
  ThisWorkbook.DeInitialisePrivelegedUDFs
End Sub

요소마다 다른 콜백 서브 루틴 서명이 있습니다. 버튼의 경우 필수 서브 루틴 매개 변수는 ByRef control As IRibbonControl입니다. 필수 콜백 서명을 준수하지 않으면 VBA 프로젝트 / 프로젝트를 컴파일하는 동안 오류가 발생합니다. Microsoft 가이드의 3 부 에서는 모든 콜백 서명을 정의합니다.


완성 된 예제는 다음과 같습니다.

완제품


마무리 팁

  1. 추가 기능에서 리본 요소를 공유하려면 idQxlmns:키워드를 사용하십시오 . 내 예에서 Chart Tools.xlamPriveleged UDFs.xlam모두와 요소에 액세스 할 수 있습니다 idQ들에 동일 ‘ x:chartToolsTabx:privelgedUDFsTab. 이 작업을 수행하려면 x:이 필요하며, customUI.xml파일 의 첫 번째 줄에 네임 스페이스를 정의했습니다 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">. 섹션 유창 UI를 사용자 정의하는 두 가지 방법마이크로 소프트 가이드는 좀 더 세부 사항을 제공합니다.
  2. 추가 기능이 Excel과 함께 제공되는 리본 요소에 액세스하도록하려면 isMSO키워드를 사용합니다 . 섹션 유창 UI를 사용자 정의하는 두 가지 방법마이크로 소프트 가이드는 좀 더 세부 사항을 제공합니다.

답변

이에 대한 또 다른 접근 방식은이 페이지에서 Jan Karel Pieterse의 무료 Open XML 클래스 모듈을 다운로드 하는 것입니다. VBA를 사용하여 OpenXML 파일의 요소 편집

이를 VBA 프로젝트에 추가하면 Excel 파일의 압축을 풀고 VBA를 사용하여 XML을 수정 한 다음 클래스를 사용하여 파일을 다시 압축 할 수 있습니다.