ठीक है, यह है, लेकिन आप बिना VBA से सीधे सेवा पैक निर्धारित कर सकते हैं: अलग-अलग सर्विस पैक्स इस अच्छी तरह से छिपा केबी प्रविष्टि पर एक नजर है रजिस्ट्री के साथ गड़बड़ कर रहे हैं। जाहिर है आपको माइक्रोसॉफ्ट अपडेट ऑफिस के रूप में इसे अपडेट करना होगा।
कार्यालय से अलग संस्करणों के लिए समर्थन पृष्ठों का उपयोग करके आप बिल्ड नंबर प्राप्त कर सकते हैं और सर्विस पैक आदि निर्धारित करने के लिए फ़ंक्शन का उपयोग कर सकते हैं। Office 2007 कार्यालय के विभिन्न अनुप्रयोगों के बीच मामूली विसंगतियों को दिखाता है ताकि आपको ट्विक करना होगा की आवश्यकता है।
फिर एक समारोह के रूप में निम्नानुसार एक्सेल कार्यालय के लिए 2007+ काम करेगा (पेज नीचे आधा रास्ता निर्माण संख्या का वर्णन करता है)
Function DetermineExcelServicePack() As String
Dim sReturn As String
If Application.Version = "12.0" Then
If Application.Build < 6214 Then
sReturn = "Excel 2007, RTM"
ElseIf Application.Build < 6425 Then
sReturn = "Excel 2007, SP1"
ElseIf Application.Build < 6611 Then
sReturn = "Excel 2007, SP2"
Else
sReturn = "Excel 2007, SP3"
End If
ElseIf Application.Version = "14.0" Then
If Application.Build < 6029 Then
sReturn = "Excel 2010, RTM"
ElseIf Application.Build < 7015 Then
sReturn = "Excel 2010, SP1"
Else
sReturn = "Excel 2010, SP2"
End If
ElseIf Application.Version = "15.0" Then
sReturn = "Excel 2013, RTM"
Else
sReturn = "This version (" & Application.Version & "-" & Application.Build & ") is not supported by this function"
End If
DetermineExcelServicePack = sReturn
End Function
धन्यवाद! मैं कोशिश करूँगा! – alfjorgen
एक अंतर है! आपका बहुत बहुत धन्यवाद! – alfjorgen
alfjorgen! भगवान के प्यार के लिए क्या अंतर था !? – Dlongnecker