VBA：跨模块调用 Sub/Function

【笔记】在模块2中，调用模块1中的函数selectBooks

模块2：跨模块调用模块1函数 selectBooks
-----------------------------------------------------------------------
Sub bookIn()
  Dim v As Object
  Set v = 模块1.selectBooks 'v 用于接收跨模块函数的返回值
End Sub

 模块1：
1. 若想让调用者接收到函数的返回值，被调用的“跨模块函数”必须抛出返回值；
2. 若不抛出返回值，函数可被调用，但调用者无法接收到返回值，适用于无需返回值的操作
-----------------------------------------------------------------------
Public Function selectBooks() As Object
  Dim bk, dic_bk as Object
  Set dic_bk = CreateObject("Scripting.Dictionary")
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    If .Show = -1 Then '0：未选文件
      For Each bk In .SelectedItems
        arr = Split(bk, "\"): n = UBound(arr): arr = Split(arr(n), "."): bkName = arr(0)
        dic_bk.Add (bk), bkName
      Next: Set selectBooks = dic_bk '抛出函数的返回值（可供跨模块/甚至跨文件调用）
    End If
  End With
End Function