0

我正在使用 UFT 12.5。在运行时它会打开 excel 和 word。然后它在这两个文件中写入一些数据。之后，我想用新名称保存这两个文件，然后用密码保护。我需要能够手动输入密码才能打开它。到目前为止，我已经编写了以下代码，并且在最后一行出现错误。

Set ExcelObj = createobject("excel.application")
ExcelObj.Visible = true

Set ExcelFile = ExcelObj.Workbooks.Open (file)
Set ScripSheet = ExcelFile.Worksheets("Scripts")
ScripSheet.Cells(1,1) = "Passed"
ExcelFile.SaveAs mm1, "ttt"

请告知我如何使用 UFT 使用密码保存 word 和 excel 文件。

谢谢。

4

1 回答 1

1

您需要使用SaveAs方法传递正确的参数。检查this链接以获取更多信息。
这是您可以尝试的工作代码：

file = "File path with file name"
newfile = "File path with new file name"

Set ExcelObj = createobject("excel.application")
ExcelObj.Visible = true

Set ExcelFile = ExcelObj.Workbooks.Open (file)
Set ScripSheet = ExcelFile.Worksheets("Scripts")
ScripSheet.Cells(1,1) = "Passed"
ExcelFile.SaveAs newfile, , "test"
ExcelFile.Close
ExcelObj.Quit

更新
来自 OP 的每条评论

如果要使用 保存文件ReadOnly，则必须以这种方式使用WriteResPassword参数：

ExcelFile.SaveAs newfile, , , "test"

请注意，我分别为FileFormat和 有两个空参数Password。

这样它会要求输入密码以写入模式打开文件，如果您不提供密码，文件将以ReadOnly 模式打开。

检查我提到的链接。

于 2017-09-27T15:45:29.137 回答