blocks|key|1612340|text|你可以在这里找到一个这样的工具：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1612341|http://www.pretentiousname.com/excel_extractvba/index.html|offset|length|1612342|这是一个自动处理excel的VBS脚本。您可以根据需要对其进行修改-请注意，它并不完美(请阅读网页中的警告)。|1612343|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|code-block|syntax|javascript|1612344|-Adam|1612345|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|1M|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|V|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|W|8|@]|9|@$D|X|E|Y|1|Z]]|A|$]]|$1|F|3|G|5|6|7|10|8|@]|9|@]|A|$]]|$1|H|3|I|5|J|7|11|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|12|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|13|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|C]]]]

You'll find a tool for this here:

<a href="http://www.pretentiousname.com/excel_extractvba/index.html" rel="noreferrer">http://www.pretentiousname.com/excel_extractvba/index.html</a>

It's a VBS script that automates excel. You can modify it according to your needs - note that it isn't perfect (read the webpage for caveats).

<pre><code>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 &lt;&gt; 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 &amp; "\" &amp; 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 &lt;&gt; "" Then
 On Error Resume Next
 Err.Clear
 VBComp.Export ExportFolder &amp; "\" &amp; VBComp.Name &amp; Sfx
 If Err.Number &lt;&gt; 0 Then
 MsgBox "Failed to export " &amp; ExportFolder &amp; "\" &amp; VBComp.Name &amp; Sfx
 End If
 On Error Goto 0
 End If
 Next

 xl.Quit
 End If
End Sub
</code></pre>

-Adam

blocks|key|1397659|text|当我进行大量的Excel+VBA开发时，我养成了每次(从上下文菜单)进行更改时都将每个文件(模块等)导出为文本格式的习惯。我将这些文件和XLA二进制文件放在源代码控制中。这对我来说工作得很好，不需要任何外部工具。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1397660|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

When I was doing a lot of Excel VBA development I got into the habit of exporting to the text format for each file (module, etc) each time I made a change (from the context menu). I kept those files in source control alongside the XLA binary. This worked pretty well for me and didn't require any external tools.

blocks|key|1397698|text|在过去的几年里，我成功地使用它导出并保存了我的代码。我可以确认它在Office+2003、2007中工作正常。我假设它在2000年也可以工作。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1397699|http://www.codeproject.com/KB/office/SourceTools.aspx|offset|length|1397700|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|1H|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@$D|O|E|P|1|Q]]|A|$]]|$1|F|3|-4|5|6|7|R|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|C]]]]

I have used this successfully for the past few years to export my code and save it. I can confirm it works in Office 2003, 2007. I assume it works in 2000 as well.

<a href="http://www.codeproject.com/KB/office/SourceTools.aspx" rel="noreferrer">http://www.codeproject.com/KB/office/SourceTools.aspx</a>

blocks|key|1397814|text|一旦启动并运行，SourceTools是很好的，但是如果您需要从大量的Excel工作簿中导出，打开每个工作簿并将其导出可能会有点乏味。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1397815|VbaDiff+(免责声明:我的产品)有一个应用程序接口，可以读取多个Excel文件并提取VBA代码。这里有一个here的例子-它可以很容易地将代码导出到一个文件中，准备好检入。如果您对SharpSvn很在行，那么您可能会将代码添加到存储库！|offset|length|1397816|entityMap|0|LINK|mutability|MUTABLE|url|http://www.technicana.com/index.php?option=com_content&view=article&id=149^0|0|1K|4|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|O|8|@]|9|@$D|P|E|Q|1|R]]|A|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|M]]]]

SourceTools is good once you're up and running, but if you're needing to export from a large number of Excel workbooks, opening up each one and exporting it could be a bit tedious. 

VbaDiff (disclaimer: my product) has an API that can read through multiple Excel files and extract the VBA code. There's an example of <a href="http://www.technicana.com/index.php?option=com_content&amp;view=article&amp;id=149" rel="nofollow">here</a> - it could easily be adapted to export the code to a file, ready to be checked in. If you're good with SharpSvn, you could probably add the code to the repository as you go!

Does anyone know a way to export the VBA code from a number of Excel documents, so that the code can be added into a subversion repository? Without having to manually open each document and export the code.

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

有人知道如何从大量Excel文档中导出VBA代码，以便将代码添加到subversion存储库中吗？而不必手动打开每个文档并导出代码。

问从多个Excel文档中导出VBA代码以放入版本控制
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问从多个Excel文档中导出VBA代码以放入版本控制EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问从多个Excel文档中导出VBA代码以放入版本控制
EN