Vba 将某些工作表导出/转换为新创建的文件。有没有一种方法可以让我直接将它导出为.xml格式，或者以后必须转换它？

我有一个项目，它要求我将一定数量的数据过滤到产品表中，在产品表中只提取tha数据中所需的信息。这是通过VBA和各种公式（在单独的工作表中）完成的。但是，一旦计算完成，我需要将信息转换为.xml。我创建了一个新的.xlsx，并将“产品”表导入其中。有没有办法转换新创建的文件，或者在VBA中添加额外的行，使我能够使用所需的信息而不是.xlsx文件创建一个新的.xml文件。 由于我是这个领域的新手，如果我问一些像新手一样的问题（或者一些不可能做的事情），我真的很抱歉

我目前正在使用的代码（创建.xlsx文件并附加所需数据，每个列都有标题）是：

我曾尝试更改文件的扩展名，但由于.xml的“编码”方式的本质，这一点都没有帮助

我会在这里提供任何类型的帮助！

---

提前谢谢你

没有内置的解决方案。有这样的网站可能会产生预期的结果。

Dim wb, wbnew As Workbook
Dim wss As Worksheet
Dim filename As String

Set wb = ThisWorkbook                                                                               
Set wss = wb.Sheets("Product")  
                                                                 
    filename = "(Now)" & ".xlsm"

Set wbnew = Workbooks.Add                                                                           
wb.Activate
wb.Sheets("Product").Copy Before:=wbnew.Sheets(1)                                                       
Application.Dialogs(xlDialogSaveAs).Show filename