主题：有没有EXCEL转WORD的例子

有没有EXCEL转WORD的例子学习一下，即把EXCEL中各个SHEET的表格结构复制到WORD中（一定要有表格结构）

如果没有例子麻烦老师给段代码举个例子也成，辛苦了。

其他方法我都会什么转成WEB再用WORD开打，什么把EXCEL复制到WORD都会。但我要解决的是批量的，上百个EXCEL不可能这样操作。而且每个EXCEL有很多sheet。

我是想在FOXTABLE中实现

我的思路就是抽取EXCEL中的表格结构及内容复制到WORD中。

我在网上找到如下代码，如何改成FOXTABLE的？

function convertExcelToWord(fileList) {
 var length = fileList.length
 if (length == 0) {
  return
 }
 var excelApp = new ActiveXObject("Excel.Application");
 excelApp.Visible = true
 excelApp.DisplayAlerts = false
 var wordApp = new ActiveXObject("Word.Application");
 wordApp.Visible = true;
 var doc;
 var docRange;
 var sheetCount;
 var sheet;
 var curFolder = fso.GetFolder(curDir);
 for (var i = 0; i < length; i ++){
  var excelPath = fileList[i]
  var workbook = excelApp.Workbooks.Open(excelPath)
  doc = wordApp.Documents.Add()
  docRange = doc.Range()
  var docPath = excelPath.substr(0, excelPath.length - 4) + ".doc"
  sheetCount = workbook.WorkSheets.Count
  for(var j = 0; j< sheetCount; j ++) {
   sheet = workbook.WorkSheets(j + 1)
   sheet.UsedRange.Copy()
   docRange.PasteExcelTable(false, true, false)
   docRange.Collapse(0)
   docRange.InsertParagraphAfter()
   docRange.Collapse(0)
  }
  doc.SaveAs(docPath)
  doc.Close()
  workbook.Close()
 }
 excelApp.Quit()
 wordApp.Quit()
}