通过javascript以编程方式隐藏Excel工作表标签

时间:2014-05-06 12:42:54

标签: javascript excel jscript wsh activexobject

这是我的.js文件。当它运行时,它会打开Excel工作表。它运行得很完美。我的要求是当Excel工作表打开时,它应该只显示excel中的temp_pivot选项卡。现在,它显示excel选项卡viz temp_pivot和Temp。当我在代码中添加Temp.Visible = False行时,它实际上隐藏了temp_pivot选项卡并显示了Temp选项卡。可能的解决方案是什么?

var fso = new ActiveXObject("Scripting.FileSystemObject");
var xl = new ActiveXObject("Excel.Application");
xl.Visible = true;
var wb = xl.Workbooks.Open(fso.GetAbsolutePathName("Temp.csv"));
var sheet = wb.ActiveSheet;
wb.Worksheets.Add(after=wb.Sheets(wb.Sheets.Count));
var pws = wb.ActiveSheet;
pws.Name="temp_pivot";
var pvtTable = pws.PivotTableWizard(1, varSource=wb.sheets("temp").Range("A1").CurrentRegion);
pvtTable.PivotFields("DECISIONYEAR").Orientation = 1;
pvtTable.PivotFields("DECISIONMONTH").Orientation = 1;
pvtTable.PivotFields("WEEKYEAR").Orientation = 1;
pvtTable.PivotFields("APPLICANT").Orientation = 4;
pvtTable.PivotFields("SUM OF APPLICANT").Function=-4157;
pvtTable.PivotFields("APPROVED").Orientation = 4;
pvtTable.PivotFields("SUM OF APPROVED").Function=-4157;
pvtTable.PivotFields("SOURCE").Orientation = 3;
pvtTable.PivotFields("PRODUCTCOLOR").Orientation = 3;
pvtTable.PivotFields("PRODUCT").Orientation = 3;
pvtTable.PivotFields("SUB_CHANNEL_CADM").Orientation = 3;
pvtTable.PivotFields("CHANNEL_CADM").Orientation = 3;
pvtTable.PivotFields("MARKET").Orientation = 3;
pvtTable.PivotFields("OFFER_TYPE").Orientation = 3;
pvtTable.DataPivotField.Orientation=2;
pws.Columns.Autofit;
pws.Rows.Autofit;
xl.DisplayAlerts =0;
xl.DisplayAlerts = 1
xl.CutCopyMode = 0;
xl.EnableEvents = 0;
xl = null;

此外,Windows脚本宿主会抛出一个错误,说“临时”。未定义。源是Microsoft JScript运行时错误,代码是800A1391

0 个答案:

没有答案