VBA EXCEL: 我可以将Userform的代码复制到一个txt文件吗？
VBA EXCEL: Can I copy Userform's code to a txt file?
我想使用宏从用户窗体复制代码，但找不到任何方法，请帮忙。
此函数将获取用户窗体、代码模块或 class 模块的文本。您将需要@SHK 提到的 Microsoft VBA Extensibility 5.5 参考。
Function getCodeText(wb As Workbook, moduleName As String) As String
Dim myCode As VBIDE.CodeModule
Set myCode = wb.VBProject.VBComponents.Item(moduleName).CodeModule
getCodeText = myCode.Lines(1, myCode.CountOfLines)
End Function
Sub testCall()
MsgBox getCodeText(Workbooks("MyWorkbook.xlsm"), "MyUserformName")
End Sub
我想使用宏从用户窗体复制代码，但找不到任何方法，请帮忙。
此函数将获取用户窗体、代码模块或 class 模块的文本。您将需要@SHK 提到的 Microsoft VBA Extensibility 5.5 参考。
Function getCodeText(wb As Workbook, moduleName As String) As String
Dim myCode As VBIDE.CodeModule
Set myCode = wb.VBProject.VBComponents.Item(moduleName).CodeModule
getCodeText = myCode.Lines(1, myCode.CountOfLines)
End Function
Sub testCall()
MsgBox getCodeText(Workbooks("MyWorkbook.xlsm"), "MyUserformName")
End Sub