问题描述
当前运行的Psalm给我:
Psalm能够推断出94.8665%的代码库类型
如何调试无法推断出类型的位置?我想要100%的类型覆盖率。
这是我的Option Explicit
Dim Title,oExcel,oWorkbook
Title = "Use vbscript to input data in Excel userform and proceed"
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.displayAlerts = False
oExcel.AskToUpdateLinks = False
oExcel.AlertBeforeOverwriting = False
On Error Resume Next
Set oWorkbook = oExcel.Workbooks.Open("C:\Stack\Data.xlsm")
oWorkbook.Unprotect 1234 ' The password to unprotect the WorkBook is 1234
oWorkbook.RefreshAll
oWorkbook.Save
If Err Then
MsgBox "Error Source : " & Err.source & vbCrlf &_
"Error Description : "& Err.Description,vbCritical,Title
Else
MsgBox "Excel file has been refreshed",vbinformation,Title
End If
oExcel.Quit
Set oWorkbook = nothing
Set oExcel = nothing
配置:
psalm.xml.dist
感谢您的支持。
解决方法
看起来像是“轻松”。只需将errorLevel
降低到1并解决所有问题。总共超过500个。
当我点击errorLevel=1
时,我的代码库已经被100%推断出来了。
获得的徽章:
- 疯子
- 完全输入