【求问】怎么提取模块里面的全部语句？？

xdwy81129

求大虾、大侠赐教：

【求问】怎么提取模块里面的全部语句？？







宏提取.rar (32.61 KB, 下载次数: 13)

2018-5-14 13:24 上传

点击文件名下载附件

abc123281

复制  粘贴就行

lsc900707

点击模块名称---右键----导出  试试

xdwy81129

lsc900707 发表于 2018-5-14 14:06
点击模块名称---右键----导出  试试

谢谢关注

但需要是输入到表格里面，而不是需要一个文件

继续等待大虾、大虾帮助

Zamyi

1. Sub tq()
   
2. Dim m As Object, a
   
3. For Each m In ThisWorkbook.VBProject.VBComponents
   
4.   If m.Name = "【测】" Then
   
5.     a = Split(m.CodeModule.Lines(1, m.CodeModule.CountOfLines), Chr(10))
   
6.     [d1].Resize(UBound(a) + 1) = Application.Transpose(a)
   
7.   End If
   
8. Next
   
9. End Sub

复制代码