在Excel VBA中。如何在现有工作表中保存xml文件而不保存任何驱动器
请检查下面的代码。。。在这里,我不希望转换后的xml代码保存在任何驱动器中,而是希望将转换后的文件的内容放入现有excel的下一页在Excel VBA中。如何在现有工作表中保存xml文件而不保存任何驱动器,excel,vba,Excel,Vba,请检查下面的代码。。。在这里,我不希望转换后的xml代码保存在任何驱动器中,而是希望将转换后的文件的内容放入现有excel的下一页 Sub GenerateXML() ' ' GenerateXML Macro ' ' Sheets("Sheet2").Select ActiveWorkbook.XmlMaps("result_Map").Export URL:="D:\temp3.xml" Sheets.Add After:=Sheets(Sheets.Count)
Sub GenerateXML()
'
' GenerateXML Macro
'
'
Sheets("Sheet2").Select
ActiveWorkbook.XmlMaps("result_Map").Export URL:="D:\temp3.xml"
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\temp3.xml", Destination:=Range("$A$1"))
.Name = "temp3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
' Kill "C:\temp.xml"
End Sub
msdn没有使用该方法,而是说:
使用该方法将映射单元格的内容导出到字符串变量。从何处生成XML数据?