数据结构的快照，VBA excel [重复]

Question

可能重复：
What's the fastest way to export all excel add-in modules to .bas files?

是否可以在 VBA Excel 中对所有使用的模块和数据结构进行快照并在一段时间后恢复？

原因是崩溃后重现错误

已添加。是的，本质上我想序列化类和类型。

Answer 1

我觉得你想要的是将所有类序列化为 它们是 XML 文件吗？我知道这个功能存在于其他 语言，但 VBA 可能没有它。 （我相信你可以 强迫某事）——布拉德

@Brad，是的，确切地说，作为一种可能的方式 - nikaan

假设 VBA 不存在此方法（尽管它可用于 VB.NET 或 VB 2005：http://support.microsoft.com/kb/315703），我可能会尝试进行模拟：写入每个对象/变量的状态（那些需要）使用 FSO 到 txt 文件。
不过，我不知道这对您的项目是否可行，而且我可能不想因为大量代码而高兴地这样做。

dim sFile               As string 
Dim FSO                 As FileSystemObject     
Dim FSOFile             As TextStream 


sFile = "U:/Log.txt"

Set FSO = New FileSystemObject
Set FSOFile = FSO.OpenTextFile(sFile, 2, True) 
FSOFile.writeline (<Descriptions+Property/variable value>) 
FSOFile.Close
set FSO = nothing 

根据您输入描述的程度（例如，包括用于成功实例化对象的布尔值等...），您可能能够看到屏幕后面发生的事情，直到您的应用程序崩溃。 . 我不知道这是否回答了您的问题，因为我有点怀疑您所指的“字段”（cmets）。

Answer 2

作为 VBA 项目的所有者，您可以创建一个子例程来导出当前项目中的所有模块。 此链接提供代码：

http://edndoc.esri.com/arcobjects/9.0/Samples/Application_Framework/ExportVBACode.htm

出于您描述的目的，我认为没有理由这样做。
就个人而言，我会使用像这样的蹩脚技巧：

选项显式

Sub Save_File()

Dim sCur_Path           As String
Dim sCopied_Path        As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False


sCur_Path = ThisWorkbook.FullName
sCopied_Path = "U:/Copied_New.xlsm"

ThisWorkbook.SaveAs sCopied_Path
ThisWorkbook.SaveAs sCur_Path

End Sub