请教如何导出指定工作簿中的代码

OKK

Sub 将代码导出()
Dim code As VBComponent
For Each code In ThisWorkbook.VBProject.VBComponents
code.Export ThisWorkbook.Path & "\" & code.Name & "." & Split("cls bas cls frm")(code.Type Mod 4)
Next
End Sub
上述代码只能将自身工作簿的代码导出，请教怎样改写代码才能将其它工作簿（指定工作簿）
中的代码导出哪？