2

我通过以下方式从网页创建工作簿：

var thisTable = document.getElementById("mytable3").innerHTML;
       window.clipboardData.setData("Text", thisTable);
       var objExcel = new ActiveXObject ("Excel.Application");
       objExcel.visible = true;
       var objWorkbook = objExcel.Workbooks.Add();
       var objWorksheet = objWorkbook.Worksheets(1);
       objWorkbook.Worksheets(1).Activate;
       objWorksheet.name = "test";
       objWorksheet.Paste;
       objWorksheet.columns.autofit;
       window.clipboardData.setData("Text","");
       objWorkbook.Worksheets(1).SaveAs("%USERPROFILE%\\Desktop\\xxx.xls");

但是对于objWorkbook.Worksheets(1).SaveAs("%USERPROFILE%\\Desktop\\xxx.xls");- 它不会保存到桌面并给出此错误：

SCRIPT1004: Microsoft Excel cannot access the file 'C:\Users\user\Documents\%USERPROFILE%\Desktop\B612F000'. There are several possible reasons:
• The file name or path does not exist.
• The file is being used by another program.
• The workbook you are trying to save has the same name as a currently open workbook.
4

2 回答 2

1

您假设 javascript 在字符串中扩展环境变量。不幸的是，事实并非如此。

你需要在你的代码中扩展它。使用 wscript.shell 对象的 Environment 属性来访问任何环境变量。

首先，访问 wscript.shell 对象。在 WSH 中，使用

var wshell = WScript.CreateObject("wscript.shell");

或者在浏览器中使用

var wshell = new ActiveXObject("WScript.Shell");

接着

var userProfile = wshell.Environment("USERPROFILE");

或者您可以使用 ExpandEnvironmentStrings 方法扩展字符串中的变量

objWorkbook.Worksheets(1).SaveAs(
  wshell.ExpandEnvironmentStrings("%USERPROFILE%\\Desktop\\xxx.xls")
);
于 2012-07-31T06:03:45.810 回答
1

来自@PA。答案我终于得到了答案

//For Expand environment
  var wshShell = new ActiveXObject("WScript.Shell");
  var userProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%\\Desktop\\test.xls");

  //For Save
  objWorkbook.Worksheets(1).SaveAs(userProfile);

谢谢@PA。

于 2012-07-31T07:07:56.333 回答