Excel VBA函数用于检索文件版本

本文介绍了Excel VBA函数用于检索文件版本的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

大家好

我对Excel VBA不是很熟练，但我需要查找/创建一个Excel函数，它将返回"修订版号"。给我们服务器上文件位置的URL的文件。

I am not very skilled in Excel VBA, but I need to find/create an Excel Function that will return the "Revision number" of a file given a URL to the file location on our server.

当我右键单击文件，点击属性并转到详细信息时，我说的修订号Origin组下的标签。

The Revision Number I speak of i the Revision number when you right click on the file, hit Properties and go to the Details tab under the Origin group.

任何帮助都非常感谢。

谢谢！

推荐答案

b $ b re：文件属性 建议您打开其中一个Excel文件，插入一个新工作表并从VBE运行此代码。 如果找到修订版号，你应该快速找到/显示。 如果'DocumentProperties'那么应该让你知道。是继续的方式。 在我的系统上它没有列出修订号，但我从未输入过它们，所以......？¥b $ b（见底部的物业清单） '--- Sub IdentifyProperties（） Dim P $ Dim rw rw = 2 每个P在ActiveWorkbook.BuiltinDocumentProperties中，单元格（rw，1）.Value = P.Name On Error Resume Next 单元格（rw，2）.Value = ActiveWorkbook.BuiltinDocumentProperties.Item（rw - 1） On Error GoTo 0 rw = rw + 1 下一个 结束子 Hi, re: file properties Suggest you open one of those Excel files, insert a new worksheet and run this code from the VBE. You should find out quickly, if the revision number will be found/displayed. That should let you know if 'DocumentProperties" is the way to proceed. On my system it doesn't list revision numbers, but I have never entered them, so... ? (see properties list at bottom) '--- Sub IdentifyProperties() Dim P Dim rw rw = 2 For Each P In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = P.Name On Error Resume Next Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties.Item(rw - 1) On Error GoTo 0 rw = rw + 1 Next End Sub ' - - Jim Cone 美国俄勒冈州波特兰市 https：/ /goo.gl/IUQUN2 （Dropbox） '--- Jim Cone Portland, Oregon USA goo.gl/IUQUN2(Dropbox)