VBA：將工作簿保存在 XML 但具有相同的工作簿名稱

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"