怎样实现点击"保存"后把页面上的表格直接生成excel文件保存到本地,而不在服务器上生成文件?(页面上有其他东东都不要只要表格)

Question

直接保存不行，可以写javascript或者vbscript脚本，脚本挺简单，只要把取出来的表格里的数据已数组的形式直接存到excel里就可以

Answer 1

Dim wdApp,wdDoc,wdWorkbook  Set wdApp = createobject("Excel.Application")
  Set wdDoc = wdApp.Workbooks.Open("<位置>/htexcel.xls")
  Set wdWorkbook = wdApp.ActiveWorkbook
  wdWorkbook.Activate
  wdApp.Visible = True
  set wdSheet = wdWorkbook .Sheets("名字")
  wdSheet.Select
  //下面开始写赋值语句
  set wdTextTemp = workSheet.Range("a3")
  wdTextTemp.Font.Size = 12
  wdTextTemp.value = "值"