Excel VBA函数用于检索文件版本 [英] Excel VBA function to retrieve File Version

问题描述

大家好

我对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
https://goo.gl/IUQUN2 (Dropbox)

这篇关于Excel VBA函数用于检索文件版本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！