单元格A显示：general20130903.txt
单元格A公式：=CONCATENATE("general",YEAR(TODAY()),TEXT(MONTH(TODAY()),"00"),TEXT(DAY(TODAY()),"00"),".txt")
单元格B是值的纯文本： \\asimple\uncpath
单元格C公式：= ChkFile（CONCATENATE（B43，“ \”，A43））
ChkFile是一个非常简单的宏。
这组事务适用于单元格A为纯文本的情况，但是此计算值导致单元格C显示#VALUE!。
有人可以在没有使用VBA的情况下提供帮助吗？
编辑：我本来不想提供宏代码，因为我觉得它不相关，但是..我不是VBA程序员，所以不确定即使在几行中是否违反任何黄金标准！
Public Function ChkFile(Name As String)
ChkFile = FileDateTime(Name)
End Function
您得到#Value，因为文件不存在或检索数据时出现问题。如果您稍微修改一下功能，当找不到该文件时，您将能够返回一条消息。
Public Function ChkFile(Name As String) As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
ChkFile = IIf(fso.fileExists(Name), FileDateTime(Name), "File doesn't exist!")
Set fso = Nothing
End Function
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句