Excel VBA 工作簿未添加到对象集合

Question

我正在尝试创建一个工作簿集合，以便我更轻松地跟踪所有打开的工作簿。因为每次工作簿的命名都不同，而且我需要在不假设 Excel 没有打开其他工作簿的情况下完成这项工作，所以我不能使用索引。因此我决定使用一个集合。但是，当我放入第二个工作簿时，我不断收到错误，我不确定发生了什么。我已经在两个模块中设置了代码（我不确定这是否会成为问题），但我只是提供了相关代码以便于阅读。

Sub run()
   Dim usedWorkbooks As New Collection
   Dim mainWorkBook As Workbook
   Set mainWorkBook = ActiveWorkbook
   Dim testwb As Workbook

   usedWorkbooks.Add Item:=mainWorkBook, key:="main" 'Added successfully
   usedWorkbooks.Add Item:=testwb, key:="test" 'Added successsfully
   addNewFile(usedWorkBooks)
End Sub

'In a separate module
Public Sub addNewFile(ByRef usedWorkBooks as Collection) 
   Dim ptCsv As String
   ptCsv = someFilePath
   'Filegrabber.grab simply returns the path of the desired workbook and works correctly
   'This is not the problem, can be substituted with any file path string
   ptCsv = FileGrabber.grab(ptCsv) 
   Dim ptCsvWorkBook As Workbook
   Set ptCsvWorkBook = Workbooks.Open(ptCsv) 'Successfully opens workbook

   'Prints out the type of object as "Workbook"
   MsgBox "the object is: " & TypeName(ptCsvWorkBook)
   'Fails to add. Says I need an object  
   usedWorkbooks.Add Item:=ptCsvWorkBook, key:="ptCsv"
End Sub 

我不确定是因为该集合位于不同的模块中，还是我上面的代码有问题。我完全不知所措。任何帮助都会很棒。

更新

我已经回答了这个问题，但在相关说明中，似乎每次我引用该集合时，它都会清除该集合的所有先前部分。我把这段代码放在我的答案下面，但我在这里添加它以供参考：

'UserForm to login to system
Dim usedWorkbooks As New Collection 
Private Sub login_Click()
   Dim mainWorkBook As Workbook
   Set mainWorkBook = ActiveWorkbook

   usedWorkbooks.Add Item:=mainWorkBook, key:="main"
   usedWorkBooks.Add Item:=testwb, key:="test"
   MsgBox "the size of the array is: " & usedWorkBooks.Count 'Prints out 2 as the size

   intializeProcess 'a worksheet is added to the array here
   'This will print out as saying there are 0 worksheets
   MsgBox "the size of the array is: " & usedWorkBooks.Count
End Sub

Public Sub addNewFile(filepath As String, sheetKey As String)
   Dim newWorkBook As Workbook

   Set newWorkBook = Workbooks.Open(filepath)

   usedWorkBooks.Add Item:=newWorkBook, key:=sheetKey
   MsgBox "the size of the array is: " & usedWorkBooks.Count

End Sub

'Part of the initialize Module
Public Sub intializeProcess()
   Call LoginModule.login(username, password, "pt", ie)
   ptCsv = FileGrabber.grab(ptCsv) 'ptcsv is set to some filepath by the grab sub

   'This will print out that the array size is 1
   UserLogin.addNewFile ptCsv, "ptCsv"  
End Sub

我不明白发生了什么。您似乎无法在 VBA 中传递集合的引用？我已经阅读了有关 New 操作实际上如何不创建对象的帖子，但这对我来说并不清楚。如果您认为这应该是一个单独的问题，请告诉我，我会这样做。谢谢。

Answer 1

上面的代码被重写以避免页面上的代码过多。我不确定我做了哪些更改解决了这个问题，所以我在这里添加了我之前拥有的原始代码，以防有人想要解决原始问题。以后遇到问题时，我可能应该发布整个代码：

'UserForm to login to system
Dim usedWorkbooks As New Collection 'Correct placement of collection
Private Sub login_Click()
   Dim usedWorkbooks As New Collection 'Should be defined outside of this sub
   Dim mainWorkBook As Workbook
   Set mainWorkBook = ActiveWorkbook

   usedWorkbooks.Add Item:=mainWorkBook, key:="main"
   intializeProcess
End Sub

Public Sub addToWorkbookCollection(obj As Workbook, name As String)
   usedWorkBooks.Add Item:=obj, key:=name
End Sub

'Part of the initialize Module
Public Sub intializeProcess()
   ptCsv = FileGrabber.grab(ptCsv)
   Dim ptCsvWorkBook As Workbook

   Set ptCsvWorkBook = Workbooks.Open(ptCsv)

   MsgBox "the object is: " & TypeName(ptCsvWorkBook)
   UserLogin.addToWorkbookCollection ptCsvWorkBook, "ptCsv"

End Sub

在阅读了我刚刚在上面输入的代码之后，我意识到我在 login_click() 子中创建了集合，从而产生了范围问题。很抱歉这个问题，但至少它帮助解决了我的问题。