绝对到相对路径转换

Question

当路径声明为绝对路径时，此代码 sn-p 工作正常。考虑这条线

var wb = xl.Workbooks.Open("C:\\temp\\temp.csv");

在代码中。但是，我想为它声明一个相对路径。我该怎么做？

var xl = new ActiveXObject("Excel.Application");
    xl.Visible = true;
    var wb = xl.Workbooks.Open("C:\\temp\\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;

Answer 1

Windows Scripting Host 部分允许您使用相对于当前目录的路径，该目录将是您启动脚本的目录。如果您从命令行启动它，那么它当然是您在命令行中的当前目录。如果您通过在 Windows 资源管理器中双击文件来启动它，它将是您双击它的目录。

您可以通过以下各种方式启动文件时找出当前目录是什么：

var fso = new ActiveXObject("Scripting.FileSystemObject");
var curDir = fso.GetAbsolutePathName(".");
WScript.Echo(curDir);

不过，Excel 可能不会默认使用同一目录。 （例如，在我的系统上，它默认为用户的文档文件夹。）所以您需要使用fso.GetAbsolutePathName，然后将绝对路径传递给 Excel，如下所示：

var fso = new ActiveXObject("Scripting.FileSystemObject");
var xl = new ActiveXObject("Excel.Application");
xl.Visible = true;
var wb = xl.Workbooks.Open(fso.GetAbsolutePathName("temp.csv"));

这样，虽然您在代码中使用了相对路径，但您将绝对路径传递给 Excel，因此无论 it 认为当前目录是什么，它都能找到它。 p>