跪求excel VBA xml 导出问题
subexport()DimxmlmapAsStringDimxmlfilepathAsStringxmlfilepath="d:\"&ActiveSheet.Namex...
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麻烦你解答一下，谢谢 展开
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麻烦你解答一下，谢谢 展开
若以下回答无法解决问题，邀请你更新回答
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
