excel - 使用代码修复：“文档的某些部分可能包含文档检查员无法删除的个人信息”

Question

我有以下脚本“MyTest.vbs”：

Dim objXLApp
Set objXLApp = CreateObject("Excel.Application")
objXLApp.visible= True
objXLApp.DisplayAlerts = false

objXLApp.Workbooks.Open "F:MyFolder\test.xlsm"
objXLApp.Run "test.xlsm!Module1.main"

objXLApp.Workbooks("test.xlsm").Save
objXLApp.Workbooks("test.xlsm").Close

当我运行脚本时，出现以下错误：

Be careful! Parts of your document may include personal information that cannot be removed by the document inspector.

我知道我可以手动修复这个错误，但我想用代码禁用这个错误。

有人知道怎么做吗？

标签： excelvbscript

Answer 1

有一个 VBA（不是 vbs）方法称为Workbook.RemoveDocumentinformation(xlRDIAll). 看看这个https://docs.microsoft.com/office/vba/api/excel.workbook.removedocumentinformation

你应该把它添加到你的 Module1.main 中。