我负责一个非常庞大的Excel 2010电子表格，其中链接到各种外部数据源，包括Bloomberg，有65个带有vba模块的工作表，并引用其他vba插件。
我注意到VBA项目已经获得了多个Workbook对象。
有标准的ThisWorkbook。然而，一些工作表也被Excel转换为Workbook对象，使原始的工作表成为前一个副本，减去代码。
这似乎不是任何人行动的结果。事实上，我认为有多个Workbook对象是不可能的！
例如，我有一个名为wksInputs的工作表，现在已经变成了Workbook对象，而原始的wksInputs现在被称为wksInputs1。
我无法删除wksInputs Workbook对象。
请问有人能帮忙解释这里发生了什么，以及我如何能够解决问题...？
非常感谢。
这是我的解决方案，它可以持续地工作，您不需要手动复制工作表和代码到空白工作簿中。我已经在多个无法启动且出现“自动化错误 - 灾难性故障”的损坏工作簿上测试了此方法。
注意：原始的损坏文件保存为.xlsm
现在文件已修复！ 如果需要，您可以将MyFile.xlsb文件重新保存为.xlsm。根据我的经验，.xlsm 文件很容易损坏，所以我会养成一直使用 .xlsb 格式的习惯。
希望有人会发现这个有用 :)
为了解决这个问题，我创建了一个新的工作簿，将原始工作簿中所有合法工作表中的数据复制到同名的工作表中。然后将所有代码从原始工作簿复制到新工作簿中。Call BuildCodeStrings(Sheet2, sAccount)
Sub BuildCodeStrings(wsSource As Worksheet, s As String)
并在我的子程序BuildCodeString中添加了一行代码：Call BuildCodeStrings("IC Accounts", sAccounts)
Sub BuildCodeStrings(sSource As String, s As String)
我不知道是什么原因导致了这个问题，但这个解决方法对我有效。Set wsSource = ThisWorkbook.Sheets(sSource)
我曾经在 PowerPoint (2007) 中遇到了同样的问题，其中“Slide1”为空，无法删除。@Scoox 的答案指引我找到了一个解决方案：
这对我有效，我相信它也适用于 Excel。
在使用Office365时遇到了同样的问题，发现我在一个公共常量和函数参数中使用了相同的名称。在将函数参数名称更改后，问题就没有再次出现。
我的错误是当我将一个工作表传递给函数，并在for循环中稍后使用该变量名称作为循环变量时引起的（因为我是个不好的和懒惰的程序员）。模块中有Option Explicit，所以我认为它不知道如何处理这些引用。
作为重整工作簿的替代方案：
这听起来像你只是无脑地复制了一切，但这意味着您不必检查链接、命名范围、条件格式或数据验证，以确保每样东西都正确地复制过来。
:)
参考资料：
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft Scripting Runtime
Microsoft VBScript Regular Expressions 5.5
Microsoft Windows Common Controls 6.0
Sub CopiarHojasANuevoLibro()
' Desactivar actualizaciones de pantalla, alertas, eventos e interacción con el usuario
' Disable screen updates, alerts, events and user interaction
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Interactive = False
' Exportar los módulos de código al archivo
' Export code modules to file
Call ExportModules
' Crear un nuevo libro de Excel
' Create a new Excel workbook
Dim wbNuevo As Workbook
Set wbNuevo = Workbooks.Add
' Renombrar la primera hoja del nuevo libro
' Rename the first sheet of the new workbook
wbNuevo.Sheets(1).Name = "zzzzzzzzz"
' Copiar cada hoja del libro actual al nuevo libro
' Copy each sheet from the current workbook to the new workbook
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Copy After:=wbNuevo.Sheets(wbNuevo.Sheets.Count)
Next ws
' Eliminar la primera hoja del nuevo libro
' Delete the first sheet of the new workbook
wbNuevo.Sheets(1).Delete
' Activar el nuevo libro y realizar la importación de los módulos de código
' Activate the new workbook and import the code modules
wbNuevo.Activate
Call ImportModules
' Definir la ruta y el nombre del archivo de destino
' Define the path and name of the destination file
Dim rutaArchivo As String
rutaArchivo = "C:\Users\" & CStr(Environ$("Username")) & "\Desktop\CodeSaver " & Format(Date, "DD-MM-YYYY") & ".xlsm"
' Eliminar el archivo existente si existe
' Delete existing file if it exists
On Error Resume Next
Kill rutaArchivo
On Error GoTo 0
' Guardar el libro activo en la ubicación especificada con el formato de archivo xlOpenXMLWorkbookMacroEnabled
' Save the active workbook to the specified location in the file format xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs Filename:=rutaArchivo, FileFormat:=xlOpenXMLWorkbookMacroEnabled
' Cerrar el libro activo guardando los cambios
' Close the active workbook saving changes
ActiveWorkbook.Close SaveChanges:=True
' Restaurar las configuraciones originales de la aplicación
' Restore original application settings
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Interactive = True
' Activar el libro original
' Activate the original workbook
ThisWorkbook.Activate End Sub
Public Sub ExportModules()
' Variables para exportar módulos de código
' Variables to export code modules
Dim bExport As Boolean
Dim wkbSource As Excel.Workbook
Dim szSourceWorkbook As String
Dim szExportPath As String
Dim szFileName As String
Dim cmpComponent As VBIDE.VBComponent
' Comprobar si la carpeta de destino existe
' Check if the destination folder exists
If FolderWithVBAProjectFiles = "Error" Then
MsgBox "Export Folder Not exist"
Exit Sub
End If
' Eliminar los archivos existentes en la carpeta de destino
' Delete existing files in the destination folder
On Error Resume Next
Kill FolderWithVBAProjectFiles & "\*.*"
On Error GoTo 0
' Obtener el nombre del libro de origen y establecer una referencia al libro de origen
' Get the name of the source workbook and set a reference to the source workbook
szSourceWorkbook = ThisWorkbook.Name
Set wkbSource = Application.Workbooks(szSourceWorkbook)
' Comprobar si el proyecto VBA del libro de origen está protegido
' Check if the source workbook VBA project is protected
If wkbSource.VBProject.Protection = 1 Then
MsgBox "The VBA in this workbook Is protected," & _
"not possible To export the code"
Exit Sub
End If
' Establecer la ruta de exportación como la carpeta de destino
' Set the export path as the destination folder
szExportPath = FolderWithVBAProjectFiles & "\"
' Iterar a través de los componentes de VBA del libro de origen
' Iterate through the VBA components of the source workbook
For Each cmpComponent In wkbSource.VBProject.VBComponents
bExport = True
szFileName = cmpComponent.Name
' Asignar la extensión de archivo adecuada según el tipo de componente
' Assign the appropriate file extension based on the component type
Select Case cmpComponent.Type
Case vbext_ct_ClassModule
szFileName = szFileName & ".cls"
Case vbext_ct_MSForm
szFileName = szFileName & ".frm"
Case vbext_ct_StdModule
szFileName = szFileName & ".bas"
Case vbext_ct_Document
' No exportar componentes de tipo Document
' Do not export components of type Document
bExport = False
End Select
' Exportar el componente si está marcado para exportación
' Export the component if it is marked for export
If bExport Then
cmpComponent.Export szExportPath & szFileName
End If
Next cmpComponent
Debug.Print "Export Is ready" End Sub
Public Sub ImportModules()
' Variables para importar módulos de código
' Variables to import code modules
Dim wkbTarget As Excel.Workbook
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.file
Dim szTargetWorkbook As String
Dim szImportPath As String
Dim szFileName As String
Dim cmpComponents As VBIDE.VBComponents
' Comprobar si el libro activo es el mismo que el libro de origen
' Check if the active workbook is the same as the source workbook
If ActiveWorkbook.Name = ThisWorkbook.Name Then
MsgBox "Select another destination workbook" & _
"Not possible To import in this workbook "
Exit Sub
End If
' Comprobar si la carpeta de origen existe
' Check if the source folder exists
If FolderWithVBAProjectFiles = "Error" Then
MsgBox "Import Folder Not exist"
Exit Sub
End If
' Obtener el nombre del libro de destino y establecer una referencia al libro de destino
' Get the name of the destination workbook and set a reference to the destination workbook
szTargetWorkbook = ActiveWorkbook.Name
Set wkbTarget = Application.Workbooks(szTargetWorkbook)
' Comprobar si el proyecto VBA del libro de destino está protegido
' Check if the target workbook VBA project is protected
If wkbTarget.VBProject.Protection = 1 Then
MsgBox "The VBA in this workbook Is protected," & _
"not possible To Import the code"
Exit Sub
End If
' Establecer la ruta de importación como la carpeta de origen
' Set the import path as the source folder
szImportPath = FolderWithVBAProjectFiles & "\"
' Crear un objeto FileSystemObject para trabajar con archivos
' Create a FileSystemObject to work with files
Set objFSO = New Scripting.FileSystemObject
' Comprobar si hay archivos para importar en la carpeta de origen
' Check if there are files to import in the source folder
If objFSO.GetFolder(szImportPath).Files.Count = 0 Then
MsgBox "There are no files To import"
Exit Sub
End If
' Eliminar los módulos de código y formularios de usuario existentes en el libro de destino
' Delete existing code modules and userforms in the target workbook
Call DeleteVBAModulesAndUserForms
' Obtener una referencia a los componentes de VBA del libro de destino
' Get a reference to the VBA components of the target workbook
Set cmpComponents = wkbTarget.VBProject.VBComponents
' Iterar a través de los archivos en la carpeta de origen
' Iterate through the files in the source folder
For Each objFile In objFSO.GetFolder(szImportPath).Files
' Importar el archivo si tiene una extensión válida
' Import the file if it has a valid extension
If (objFSO.GetExtensionName(objFile.Name) = "cls") Or _
(objFSO.GetExtensionName(objFile.Name) = "frm") Or _
(objFSO.GetExtensionName(objFile.Name) = "bas") Then
cmpComponents.Import objFile.Path
End If
Next objFile
Debug.Print "Import Is ready" End Sub
Function FolderWithVBAProjectFiles() As String
' Función para obtener la carpeta de destino de los archivos VBA
' Function to get the destination folder of the VBA files
Dim wshShell As Object
Dim fso As Object
Dim SpecialPath As String
' Crear objetos Shell y FileSystemObject
' Create Shell and FileSystemObject objects
Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("scripting.filesystemobject")
' Obtener la ruta de la carpeta "Mis documentos"
' Get the path of the "My Documents" folder
SpecialPath = wshShell.SpecialFolders("MyDocuments")
' Agregar una barra diagonal si no está presente al final de la ruta
' Add a forward slash if not present at the end of the path
If Right(SpecialPath, 1) <> "\" Then
SpecialPath = SpecialPath & "\"
End If
' Crear la carpeta "VBAProjectFiles" si no existe
' Create the folder "VBAProjectFiles" if it doesn't exist
If fso.FolderExists(SpecialPath & "VBAProjectFiles") = False Then
On Error Resume Next
MkDir SpecialPath & "VBAProjectFiles"
On Error GoTo 0
End If
' Devolver la ruta de la carpeta "VBAProjectFiles" si existe, o "Error" si no existe
' Return the path of the "VBAProjectFiles" folder if it exists, or "Error" if it doesn't
If fso.FolderExists(SpecialPath & "VBAProjectFiles") = True Then
FolderWithVBAProjectFiles = SpecialPath & "VBAProjectFiles"
Else
FolderWithVBAProjectFiles = "Error"
End If End Function
Function DeleteVBAModulesAndUserForms()
' Función para eliminar los módulos de código y formularios de usuario existentes
' Function to remove existing code modules and userforms
Dim VBProj As VBIDE.VBProject
Dim vbComp As VBIDE.VBComponent
' Obtener una referencia al proyecto VBA del libro activo
' Get a reference to the VBA project of the active workbook
Set VBProj = ActiveWorkbook.VBProject
' Iterar a través de los componentes de VBA en el proyecto
' Iterate through the VBA components in the project
For Each vbComp In VBProj.VBComponents
' Eliminar el componente si no es de tipo Document
' Delete the component if it is not of type Document
If vbComp.Type = vbext_ct_Document Then
Else
VBProj.VBComponents.Remove vbComp
End If
Next vbComp End Function