都是一些代码片段,忘记了方便查
Function MQ(dict As Scripting.Dictionary, filePath As String)
Dim fso As Object, modelFile As Object
Dim ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set modelFile = Workbooks.Open(filePath)
Set ws = modelFile.Sheets(1)
....后续的逻辑
End Function