[求助]VBA版本检测控制问题。

WNRLXF

举个例子，为了控制VBA程序的最新版本，我会把最新vba程序（该程序中有版本的信息）放在A计算机上(当作服务器），同时B计算机也有VBA程序（直接提供给用户使用）。问题是：如何在B计算机上的程序每当启用宏时先到A计算机上读取相应的VBA程序的版本信息，把读到的版本信息与B计算机上的vba程序进行比较来判断b计算机上使用的vba程序是否为最新的？

以上，请教各位高手，如何实现呢？谢谢！

yhdcxy

在a计算机上放一个文件，把版本信息放在这个文件中。b计算机可以访问这个文件，从而可以知道最新的版本了。

WNRLXF

QUOTE:

以下是引用yhdcxy在2006-10-31 11:59:46的发言：
在a计算机上放一个文件，把版本信息放在这个文件中。b计算机可以访问这个文件，从而可以知道最新的版本了。

原理我也清楚呀，可能否写一段代码验证一下呢，谢谢！

lotustower

試試 使用 Dsofile.dll

在A 計算機上

'

' Set reference to DSO OLE Document Properties Reader 2.0
'
Sub MSOffice_DocumentProperties_DSO()

Dim FileName As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "D:\Test.xls"

DSO.Open sfilename:=FileName
DSO.CustomProperties.Add "VBA Version", "1.01"
DSO.Save

'DSO.CustomProperties.Item("VBA Version").Value = "1.1"   'Update Ver

'DSO.Save

DSO.Close

End Sub

在B 計算機上

'

' Set reference to DSO OLE Document Properties Reader 2.0
'
Sub MSOffice_DocumentProperties_DSO()
Dim FileName As String
Dim VBAVer As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "\\yourNetworkPc\file.xls"
DSO.Open sfilename:=FileName
VBAVer = DSO.CustomProperties.Item("VBA Version").Value

' You program

' Debug.Print VBAVer

DSO.Close
End Sub
'

Microsoft Developer Support OLE File Property Reader 2.0 Sample 下載

Ref: 使用 OLE File Property Reader 2.0 閱讀 / 更改 MS Office 文件資料

xq1234

楼主从精英俱乐部跑到这边来了嗦！

我考虑不一定要文本文件，可以试试工簿之间引用数据（也就是B机工作簿中某个单元格=A机工作簿的某个单元格），我没有网络，无法测试，不一定行得通哈。

WNRLXF

QUOTE:

以下是引用lotustower在2006-10-31 19:54:50的发言：

試試 使用 Dsofile.dll

在A 計算機上

'

' Set reference to DSO OLE Document Properties Reader 2.0
'
Sub MSOffice_DocumentProperties_DSO()

Dim FileName As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "D:\Test.xls"

DSO.Open sfilename:=FileName
DSO.CustomProperties.Add "VBA Version", "1.01"
DSO.Save

'DSO.CustomProperties.Item("VBA Version").Value = "1.1"   'Update Ver

'DSO.Save

DSO.Close

End Sub

在B 計算機上

'

' Set reference to DSO OLE Document Properties Reader 2.0
'
Sub MSOffice_DocumentProperties_DSO()
Dim FileName As String
Dim VBAVer As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "\\yourNetworkPc\file.xls"
DSO.Open sfilename:=FileName
VBAVer = DSO.CustomProperties.Item("VBA Version").Value

' You program

' Debug.Print VBAVer

DSO.Close
End Sub
'

Microsoft Developer Support OLE File Property Reader 2.0 Sample 下載

Ref: 使用 OLE File Property Reader 2.0 閱讀 / 更改 MS Office 文件資料

谢谢lotustower及时提供的代码及资料！我明天晚上测试一下（因为明天白天工作安排比较紧张，没有时间），谢谢！

WNRLXF

QUOTE:

以下是引用xq1234在2006-10-31 20:15:24的发言：

楼主从精英俱乐部跑到这边来了嗦！

我考虑不一定要文本文件，可以试试工簿之间引用数据（也就是B机工作簿中某个单元格=A机工作簿的某个单元格），我没有网络，无法测试，不一定行得通哈。

谢谢提供方法，呵呵……

winland

如果不用Dsofile.dll的话,VBA也提供了CustomeDocumentProperties的Add方法.

A电脑上放

Sub UpdateVersion(strVersion As String)
    ThisWorkbook.CustomDocumentProperties.Add "VBA Verison", False, msoPropertyTypeString, strVersion
End Sub

B电脑上放

Function GetVersion(strName As String) As String
    Dim FileName As String
    Dim pptVer As DocumentProperty
   
    FileName = "\\yourNetworkPc\file.xls"
    Workbooks.Open FileName
    For Each pptVer In ActiveWorkbook.CustomDocumentProperties
        If pptVer.Name = strName Then
            GetVersion = ActiveWorkbook.CustomDocumentProperties(pptVer.Name)
            Exit For
        End If
    Next
    ActiveWorkbook.Close
End Function

然后调用

Sub mmm()
    MsgBox GetVersion("VBA Version")
End Sub

WNRLXF

QUOTE:

以下是引用winland在2006-11-1 12:41:30的发言：

如果不用Dsofile.dll的话,VBA也提供了CustomeDocumentProperties的Add方法.

A电脑上放

Sub UpdateVersion(strVersion As String)
    ThisWorkbook.CustomDocumentProperties.Add "VBA Verison", False, msoPropertyTypeString, strVersion
End Sub

B电脑上放

Function GetVersion(strName As String) As String
    Dim FileName As String
    Dim pptVer As DocumentProperty
   
    FileName = "\\yourNetworkPc\file.xls"
    Workbooks.Open FileName
    For Each pptVer In ActiveWorkbook.CustomDocumentProperties
        If pptVer.Name = strName Then
            GetVersion = ActiveWorkbook.CustomDocumentProperties(pptVer.Name)
            Exit For
        End If
    Next
    ActiveWorkbook.Close
End Function

然后调用

Sub mmm()
    MsgBox GetVersion("VBA Version")
End Sub

不好意思，winland，我在测试时发现无法打开工作簿的问题，能否帮忙解决一下呢？谢谢！

[此贴子已经被作者于2006-11-2 15:33:40编辑过]

winland

FileName应该赋给它正确的完整的路径和文件名.

像你输入的"\\WANGNR\file.xls"好像不对吧.至少还应有个目录(WANGNR是服务器的主机名).