여러 Excel 문서에서 VBA 코드를 내보내기하여 버전 컨트롤에 넣기

Question

코드를 Subversion 저장소에 추가 할 수 있도록 여러 Excel 문서에서 VBA 코드를 내보내는 방법을 아는 사람이 있습니까? 수동으로 각 문서를 열고 코드를 내 보내지 않아도됩니다.

Answer 1

당신이 여기에 대한 도구를 찾을 수 있습니다 :

http://www.pretentiousname.com/excel_extractvba/index.html

그것은 Excel을 자동화하는 VBS 스크립트입니다. 필요에 따라 수정할 수 있습니다 - 완벽하지는 않습니다 (주의 사항은 웹 페이지 참조).

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 
    End If 
End Sub 

-Adam

난에서 나는 각 파일 (모듈 등) 나는 변화를 만들 때마다 텍스트 형식으로 수출하는 습관을 가지고 엑셀 VBA 개발을 많이 (하고 있었다

Answer 2

컨텍스트 메뉴). XLA 바이너리와 함께 파일을 소스 제어에 보관했습니다. 이것은 나를 위해 꽤 잘 작동했고 외부 도구를 필요로하지 않았습니다.

Answer 3

지난 몇 년 동안이 코드를 사용하여 코드를 내보내고 저장했습니다. Office 2003, 2007에서 작동하는지 확인할 수 있습니다. 2000 년에도 작동한다고 가정합니다. 당신이 운영되면

http://www.codeproject.com/KB/office/SourceTools.aspx

Answer 4

SourceTools 좋은이지만, Excel 통합 문서의 많은 수에서 각각 열기를 내보낼 필요가 수출하는 경우는 조금 지루한 될 수 있습니다.

VbaDiff (면책 조항 : 내 제품)에는 여러 Excel 파일을 읽고 VBA 코드를 추출 할 수있는 API가 있습니다. here의 예가 있습니다. 코드를 파일로 내보내 쉽게 체크인 할 수 있습니다. SharpSvn을 잘 사용하고 있다면 저장소에 코드를 추가 할 수 있습니다.