VBA - 使用VBA代码时不会导出XML映射-Java 学习之路

我正在使用在VBA中编写的宏来同时将我的工作簿中的所有工作表导出到XML，但是我已经为列上的 Headers 创建了Mappings，但它们不是使用工作表导出的 . 只有当我转到Developer标签并导出到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

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

回复于 2024-04-20T10:36:55+08:00

VBA - 使用VBA代码时不会导出XML映射

1 回答

相关问题