2

  1. 我需要将参数从 HTA 的 JavaScript 传递给 Excel VBA 代码。

    1. 我可以成功调用 VBA 函数，但无法正确传递字符串参数。
    2. JavaScript 函数可以传递不同的字符串参数。
    3. 下面是简单和演示形式的代码。
    4. Excel-VBA代码

    Sub subTest(strName As String)
MsgBox strName
End Sub

带有 Javascript 的 HTA 代码

<!DOCTYPE html>
<html>
<head>
<title>HTA</title>
<hta:application 
id="oHta"
applicationname="htaNavi"
border="1"
borderstyle = normal
contextmenu = "yes"
caption="Navigator"
sysmenu="yes"
WINDOWSTATE="maximize"
>
</head>
<body>
<input type="button" value="testing" onclick="funRun('testng string')" />
<input type="button" value="testing second" onclick="funRun('testng')" />
</body>

<script>

var objExl;
var objWb;
var objExl =new ActiveXObject("Excel.Application");
objExl.Visible = true;
var objWb = objExl.Workbooks;
var strpath = '\path\testing_excel_web.xls';
objWb.Open(strpath);

function funRun(strName)
{
alert(strName);
objWb.Application.Run('testing_excel_web.xls!subTest(strName)');
}
</script>
</html>

我可以调用 subTest，但消息框将 strName 填充为字符串，而不是将“测试字符串”填充为文本。

4

1 回答 1

1

我想你想要：

objWb.Application.Run('testing_excel_web.xls!subTest("' + strName + '")');

这样，变量的值将strName连接到您尝试运行的命令。

我对 VBA 函数的调用一无所知，所以我不确定你是否需要我提供"的类似的东西。strName

另外，为了安全起见，如果你的strName值包含"，你应该使用这个：

objWb.Application.Run('testing_excel_web.xls!subTest("' + strName.replace(/"/g, "\"") + '")');

希望有了这个，价值strName可能是

The word "testing" here
or
"Here's a quote"

它仍然可以工作。

关键是如果字符串包含"，Javascript 会/可能会失败。如果它绝对永远不会包含"，那就忘记它。但我认为这是必要的，因为任何"值strName都会破坏它作为参数的传递。

于 2013-01-24T21:30:33.030 回答