एक्सेल स्प्रेडशीट से वीबीए निकालने

Question

क्या स्प्रेडशीट से वीबीए निकालने और इसे एक भंडार में संग्रहीत करने का एक साफ तरीका है।

स्प्रेडशीट शायद ही कभी बदलती है लेकिन वीबीए करता है। भंडार में पूरी स्प्रेडशीट को संग्रहीत करने से यह देखने के लिए कि कौन सा कोड बदल गया है और किसने इसे बदल दिया है, विभिन्न वीबीए संशोधनों में अंतर करना मुश्किल बनाता है।

हम VBA 6.5/एक्सेल 2003

Answer 1

एक्सेल और एक्सेस (पूर्व 2003 के लिए) के पिछले संस्करण का उपयोग एक ऐड-इन के माध्यम से समर्थित VBA स्रोत कोड संस्करण नियंत्रण। मैं कार्यालय VBA के लिए 2000

Visual SourceSafe (VSS) समर्थन dropped with the release of Office 2003 था में इस का इस्तेमाल किया है बहुत प्रभावी ढंग से, लेकिन ऐड-इन है कि कार्यालय XP डेवलपर जाहिरा तौर पर works with Office 2003 के साथ भेज दिया गया था।

Microsoft Knowledge Base आलेख:

• Using Visual SourceSafe with Documents and VBA Code

• Using the Visual SourceSafe Add-In with the Visual Basic Environment

असफल है कि आप (here से VBA कोड को निकालने के लिए इस कोड का उपयोग कर सकते हैं, लेकिन यह याद आ रही थी अंतिम वस्तु सफाई)। चेतावनियां के लिए वेबपेज पढ़ें:

option explicit 

Const vbext_ct_ClassModule = 2 
Const vbext_ct_Document = 100 
Const vbext_ct_MSForm = 3 
Const vbext_ct_StdModule = 1 

Main 

Sub Main 
    Dim xl 
    Dim fs 
    Dim WBook 
    Dim VBComp 
    Dim Sfx 
    Dim ExportFolder 

    If Wscript.Arguments.Count <> 1 Then 
     MsgBox "As the only argument, give the FULL path to an XLS file to extract all the VBA from it." 
    Else 

     Set xl = CreateObject("Excel.Application") 
     Set fs = CreateObject("Scripting.FileSystemObject") 

     xl.Visible = true 

     Set WBook = xl.Workbooks.Open(Trim(wScript.Arguments(0))) 

     ExportFolder = WBook.Path & "\" & fs.GetBaseName(WBook.Name) 

     fs.CreateFolder(ExportFolder) 

     For Each VBComp In WBook.VBProject.VBComponents 
      Select Case VBComp.Type 
       Case vbext_ct_ClassModule, vbext_ct_Document 
        Sfx = ".cls" 
       Case vbext_ct_MSForm 
        Sfx = ".frm" 
       Case vbext_ct_StdModule 
        Sfx = ".bas" 
       Case Else 
        Sfx = "" 
      End Select 
      If Sfx <> "" Then 
       On Error Resume Next 
       Err.Clear 
       VBComp.Export ExportFolder & "\" & VBComp.Name & Sfx 
       If Err.Number <> 0 Then 
        MsgBox "Failed to export " & ExportFolder & "\" & VBComp.Name & Sfx 
       End If 
       On Error Goto 0 
      End If 
     Next 

     xl.Quit 

     Set fs = Nothing 
     Set xl = Nothing 

    End If 
End Sub 

Answer 2

इसी तरह के सवाल के युगल:

• Multiple developers in a VBA project

• Exporting VBA code from Multiple Excel documents to put into version control

Answer 3

इस सवाल का अन्य उत्तर बहुत अच्छी तरह से उसे संबोधित, लेकिन अगर आप कोड लिखना शुरू कर रहे हैं, तो 01 में देखें। यह कार्यालय के लिए प्रबंधित कोड प्रदान करता है, और सबसे अच्छा, आप इसे सी # में भी कर सकते हैं या जो भी .NET भाषा आपकी कल्पना पर हमला करता है। यह एक्सेल 2003 के साथ भी काम करता है, जो आपके मामले में बोनस है।

Answer 4

आपके पास पहले से ही एक अच्छा जवाब है, लेकिन मुझे एक तरफ जोड़ने की अनुमति दें।

डेटा के सभी स्प्रेडशीट से अलग स्प्रेडशीट में अपने सभी वीबीए कोड को रखना संभव है। यदि आप ऐसा करते हैं तो यह आपकी तुलना को आसान बना सकता है।

Answer 5

एक ही विषय में एक ही विषय में उत्तर दिया। आपके लिए प्रयास करने का एक और विकल्प।

Exporting VBA code from Multiple Excel documents to put into version control