求助：复制“宏代码”的代码

CNS1993

求助：复制“宏代码”的代码，谢谢！ 复制宏宏代码.zip (8.54 KB, 下载次数: 9)

2023-1-9 11:34 上传

点击文件名下载附件

CNS1993

顶一下。....

tanglf188

Sub ReadCode()
    Sheet1.Columns("J:J").ClearContents
    Sheet1.Columns("M:M").ClearContents
    Sheet1.Columns("P:P").ClearContents
    i = 1
    Dim varLines() As String
    Dim strTmp As Variant
    With Application.VBE.VBProjects(1).VBComponents(Sheet1.Name).CodeModule
        varLines = Split(.Lines(1, .CountOfLines), vbCrLf)
    End With
    For Each strTmp In varLines
        Sheet1.Cells(i, "J") = strTmp
        i = i + 1
    Next strTmp
    i = 1
    With Application.VBE.VBProjects(1).VBComponents(Sheet3.Name).CodeModule
        varLines = Split(.Lines(1, .CountOfLines), vbCrLf)
    End With
    For Each strTmp In varLines
        Sheet1.Cells(i, "M") = strTmp
        i = i + 1
    Next strTmp
    i = 1
    With Application.VBE.VBProjects(1).VBComponents("模块1").CodeModule
        varLines = Split(.Lines(1, .CountOfLines), vbCrLf)
    End With
    For Each strTmp In varLines
        If strTmp = "Sub AACC()" Then wr = 1
        If strTmp = "End Sub" Then
            Sheet1.Cells(i, "P") = strTmp
            wr = 0
        End If
        If wr = 1 Then
            Sheet1.Cells(i, "P") = strTmp
            i = i + 1
        End If
    Next strTmp
End Sub

tanglf188

直接贴的代码看不见了，传附件吧

CNS1993

tanglf188 发表于 2023-1-11 13:24
直接贴的代码看不见了，传附件吧

谢谢您！辛苦了！

tanglf188

CNS1993 发表于 2023-1-11 14:33
谢谢您！辛苦了！

不客气，谢谢您的鲜花。