Question

我有一个excel（xlsm）文件，我想使用一种模式将其导出为XML。但是，我想使用与原始文件相同的工作簿名称，而无需手动进行编辑（作为导出）。我是在宏记录器中执行此操作的，但必须进行一些调整。

Sub Macro1()

  Range("Table1[Bestimmungsort]").Select
   ActiveWorkbook.XmlMaps("Report_Map").Export URL:= _
    "C:\XXX\YY\Downloads\000.xml"
End Sub

Answer 1

请尝试下一种方法：

Dim Wb As Workbook
 Set Wb = ActiveWorkbook
 
 Wb.XmlMaps("Report_Map").Export url:= _
    "C:\XXX\YY\Downloads\" & left(Wb.Name, Len(Wb.Name) - 5) & ".xml"

已编辑：允许选择文件夹路径的变体：

Dim Wb As Workbook, xDlg As FileDialog, xFdItem  as string
 Set Wb = ActiveWorkbook
 Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg .Show Then
        xFdItem = xDlg .SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
 Wb.XmlMaps("Report_Map").Export url:= _
       xFdItem  & left(Wb.Name, Len(Wb.Name) - 5) & ".xml"

VBA：以XML格式保存工作簿，但使用相同的工作簿名称

1 个答案: