你可以只使用一个公式:
=IF('C:\Path\To\Workbook\[myWorkbook.xlsx]Sheet1'!A1>0,"YES","NO")
Run Code Online (Sandbox Code Playgroud)
或者如果您必须使用 VBA:
Dim isGreaterThan As Boolean
'// Change the Sheet number and cell reference to match
With GetObject("C:\Path\To\Workbook\myWorkbook.xlsx")
isGreaterThan = (CInt(.Sheets(1).Range("A1").Value) > 0)
.Close
End With
Debug.Print "Number is " & IIf(isGreaterThan,"","NOT ") & "greater than 0"
Run Code Online (Sandbox Code Playgroud)