vbscript - 如何在vbscript中强制保存和替换

Question

我一直在使用 AccessMode 和 ConflictResolution，它对 vba 没问题。

在 vbs 中

ObjWB.SaveAs myFolder & "test.xlsx",  AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges 

对于字符 : =

抛出 预期语句错误

如何在vbs中另存为和强制替换？

Answer 1

VBScript 不支持 VB 和 VBA 的 param:=value 特性。您需要按正确的顺序提供函数参数。但是，如果参数值是可选的，则可以省略它们。它也不会定义任何 Excel 常量。您必须自己定义它们。尝试以下操作:

Const xlExclusive = 3
Const xlLocalSessionChanges = 2

ObjWB.SaveAs myFolder & "test.xlsx", , , , , , xlExclusive, xlLocalSessionChanges

以这种方式调用函数可能会混淆省略的参数数量，但是，因此在其自己的行中指定每个参数值通常很有用(如果您不介意额外的代码行):

ObjWB.SaveAs myFolder & "test.xlsx", _    ' Filename
             , _                          ' FileFormat
             , _                          ' Password
             , _                          ' WriteResPassword
             , _                          ' ReadOnlyRecommended
             , _                          ' CreateBackup
             xlExclusive, _               ' AccessMode
             xlLocalSessionChanges        ' ConflictResolution

在 Excel 的 Visual Basic 编辑器中，您可以使用对象浏览器(快捷键 = F2)来确定 Excel 类型库定义的常量的值。