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