利用Xml产生数据，并考入Excel，发现只拷贝值不拷贝当前单元格格式，在网上查阅有个人提出拷贝2次的方法，果然能实现
//复制XMl 内容
Worksheet_xml.Range("A1:E" + CType(stdChart.standardRange.DsStdCorrectiveAction.Tables(0).Rows.Count, String).ToString()).Copy()
//拷贝单元格内容
worksheet_template.Range("A12").PasteSpecial(Excel.XlPasteType.xlPasteAllExceptBorders)
//拷贝单元格格式
worksheet_template.Range("A12").PasteSpecial(Excel.XlPasteType.xlPasteFormats, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, missing, missing)