JScript 使用 Excel TextToColumns

Question

我一直在努力让这个小片段发挥作用，但一直失败得很惨。该脚本似乎工作正常，但问题是：我需要将第三列（带有数字的列）转换为文本。

查看 Excel 中的帮助页面，似乎 "Array(3, 2)" 部分可以实现，但即使在此函数上尝试了很多数字和参数的组合，我也无法实现工作。

对这个问题有帮助吗？

var app = new ActiveXObject("Excel.Application");
app.Visible = true;
var xls = app.Workbooks.Add();

app.Cells(1, 1).Value = "Olympia, WA, 123";
app.Cells(2, 1).Value = "Salem, OR, 3434";
app.Cells(3, 1).Value = "Boise, ID, 342";
app.Cells(4, 1).Value = "Sacramento, CA, 3";

app.Range("A1").EntireColumn.TextToColumns(app.Range("B1"),1,1,false,false,false,true,false,false,Array(3, 2));

Answer 1

FieldInfo 参数需要是一个数组的数组，而不是在不使用 new 的情况下调用本机 JScript 数组构造函数时返回的内容。

所以通过单独修改列来降低复杂度：

app.Range("A1").EntireColumn.TextToColumns(app.Range("B1"),1,1,false,false,false,true,false,false);
app.Range("D1").EntireColumn.NumberFormat = "@"

Answer 2

这里有两个问题。

第一个问题是您为 FieldInfo 参数使用的格式不正确。该参数应该是一个数组数组。这种数组的 JScript 格式如下：

// 2 = xlTextFormat
[[1, 2], [2, 2], [3, 2]]
// or, if you prefer using the Array() function:
Array(Array(1, 2), Array(2, 2), Array(3, 2))

（在我的测试中，我必须指定所有三列。如果您不关心其他列，请为 xlGeneralFormat 将每个数组的第二项设置为 1。）

然而，它并没有那么简单，因为 Excel 与大多数 COM 对象一样，期望数组是 SAFEARRAY 结构。在 VBScript 中，这不是问题，因为它的数组是使用 SAFEARRAY 实现的，但在 JScript 中，数组本质上是一种特殊类型的对象，不容易转换为 SAFEARRAY（您可以在 this article from Eric Lippert's blog if you want more details). There is no built-in way to convert a JScript array to a SAFEARRAY, though there are workarounds (see this SO question 中阅读更多内容，例如）。

第二个问题是您实际上缺少一个参数，OtherChar。尽管文档指出仅当 Other 为 True 时才需要此参数，但您仍然必须提供一些值，因为 JScript 中没有可选参数。在下面的示例中，我扩展了函数调用并使用 documentation 中的参数名称标记每一行以使其清晰：

var app = new ActiveXObject("Excel.Application");
app.Visible = true;
var xls = app.Workbooks.Add();

app.Cells(1, 1).Value = "Olympia, WA, 123";
app.Cells(2, 1).Value = "Salem, OR, 3434";
app.Cells(3, 1).Value = "Boise, ID, 342";
app.Cells(4, 1).Value = "Sacramento, CA, 3";

app.Range("A1").EntireColumn.TextToColumns(
    app.Range("B1"),  // Destination
    1,                // DataType
    1,                // TextQualifier
    false,            // ConsecutiveDelimiter
    false,            // Tab
    false,            // Semicolon
    true,             // Comma
    false,            // Space
    false,            // Other
    '',               // OtherChar
    getSafeArray([
        getSafeArray([1, 2]),
        getSafeArray([2, 2]),
        getSafeArray([3, 2])
    ])                // FieldInfo
);

// ref: 
function getSafeArray(jsArr) {
    var dict = new ActiveXObject("Scripting.Dictionary");
    for (var i = 0; i < jsArr.length; i++)
    dict.add(i, jsArr[i]);
    return dict.Items();
}

JScript 使用 Excel TextToColumns

JScript using Excel TextToColumns

excel

jscript

wsh