分配工作簿属性

Question

我正在尝试构建一个文档模板，该模板始终在单元格中显示工作簿属性，其中某些是在其中显示的。

例如：我可能想查看带有文件名和文件扩展名（.xls，.xlsx或.xlsm）的文件路径，或者我可能只是想显示工作簿标题，并显示“无文件路径”和“无文件”扩展。

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

但这带来了扩展名。我不要那个。

Function Name()
Name = ActiveWorkbook.BuiltinDocumentProperties.("Title")
End Function

然后在要显示文件名的单元格中键入= Name（）。但是我得到的只是一个大的脂肪“ 0”。

为“标题”插入“最后作者”时，类似的代码也起作用。

见上文