跪求excel VBA xml 导出问题

sub export()

Dim xmlmap As String

Dim xmlfilepath As String

xmlfilepath = "d:\" & ActiveSheet.Name

xmlmap= ActiveSheet.listobjects(1).xmlmap.name

Dim objmaptoexport As xmlmap

set objmaptoexport = activeworkbook.xmlmaps(xmlmap)

if objmaptoexport.IsExportable then

ActiveWorkbook.SaveAsXMLData xmlfilepath , objmaptoexport

end if

end sub

1：如果需要另存怎样改代码

2：另存格式是*.xml怎么办呢？非常感谢你。我邮箱：979380544@qq.com麻烦你解答一下，谢谢

原始的XML文件在哪?一般导出以后不用设置编码格式,除非你的导出结果有乱码

原始的xml文件在哪？一般导出以后不用设置编码格式，除非你的导出结果有乱码