我有一个带有两列A和B的Workbook1。A有一个名称列表,而B有一个版本号。有没有一种方法可以打开另一个Workbook2,该Workbook2中有一个Name和一个版本nr,则宏将打开workbook1寻找一个Name,然后比较相应的Version号。如果workbook2中的版本nr较小,则workbook1中将出现一个消息框,指出“这是旧版本”,否则消息将显示“这是最新版本” 到目前为止,我仅在一种情况下尝试过此操作(请检查版本号)
Sub VersionChecker()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Version As Range
Dim CurrentVersion As Range
Set Version = ActiveSheet.Range("Ver")
Workbooks.Open "C:\Test.xlsm"
Worksheets("sheet1").Activate
If Range("CurVer") = Version Then
MsgBox ""this is up to date version"
Else
MsgBox "this is a old version", vbCritical
End If
Workbooks("Test.xlsm").Close SaveChanges:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
只要工作簿1保持关闭状态就可以工作,但是我需要添加第二个条件“名称”。有没有解决的办法?任何帮助表示赞赏。
谢谢