VBA - сопоставления XML не экспортируются при использовании кода VBA

Question

Я использую макрос, написанный в VBA, для экспорта всех моих рабочих листов в моей книге в XML одновременно, но я создал сопоставления для заголовка столбцов, но они не экспортируются вместе с листами.Только если я перейду к тегу разработчика и экспортирую в XML, он будет работать.

Можно ли одновременно экспортировать все листы в XML с назначенными сопоставлениями?

Sub Splitziez()

Dim strPath As String
strPath = "C:\Test"
For Each sheetz0r In ThisWorkbook.Sheets
    sheetz0r.Copy
    Application.ActiveWorkbook.SaveAs FileFormat:=xlXMLSpreadsheet, 
Filename:=strPath & "\" & sheetz0r.Name
    Application.ActiveWorkbook.Close False
Next
End Sub

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim ws As Worksheet
    Dim strpath As String
    Dim xFile As String

    strpath = "C:\Test"

    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        xFile = strpath & "\" & ws.Name & ".XML"
        Application.ActiveWorkbook.SaveAs xFile
        Application.ActiveWorkbook.Close False
    Next



End Sub