[已解决]怎样把宏代码粘贴到表格里？谢谢

jutou

怎样把宏代码添加到表格？纯菜鸟问题 哈哈

最佳答案

月排行榜 / 总排行榜

雨狐

2009-10-9 22:36

1是对的

2按过事会出现VBE窗口，

怎样把宏代码粘贴到表格里？谢谢

跳转到最佳答案楼层

雨狐

先复制好代码－ALT＋F11－添加一个模块－粘贴

jutou

老师，感谢！

“先复制好代码－ALT＋F11－添加一个模块－粘贴”

1是在新建的工作簿  同时按ALT+F11吗？

2添加一个模块是在哪个项目里有这个选项？

  是数据--宏--编辑器----后面是？是这样吗

让你笑掉牙啦老师

雨狐

1是对的

2按过事会出现VBE窗口，

怎样把宏代码粘贴到表格里？谢谢

jutou

虽然还是没有得出合并表格的结果，但还是感谢老师！加最佳  谢谢

http://www.excelpx.com/forum.php?mod=viewthread&tid=93558这个是原问题，放假搞到现在还没搞定

着急啊  第一次用宏 搞不出求和  老师

[em04]

jutou

Sub pldrwb1007()
    Dim myFs As FileSearch
    Dim myPath As String, Filename$
    Dim i As Long, n As Long
    Dim Sht1 As Worksheet, sh As Worksheet
    Dim wb1 As Workbook
    Dim wb As Workbook
    Dim aa, nm$, nm1$, m, arr, r1, col1%
    Application.ScreenUpdating = False
    Set wb1 = ThisWorkbook
    Set myFs = Application.FileSearch
    myPath = ThisWorkbook.Path
    With myFs
        .NewSearch
        .LookIn = myPath
        .FileType = msoFileTypeNoteItem
        .Filename = "*.xls"
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            n = .FoundFiles.Count
            col1 = 2
            ReDim myfile(1 To n) As String
            For i = 1 To n
                myfile(i) = .FoundFiles(i)
                Workbooks.Open myfile(i)
                Set wb = ActiveWorkbook
                m = [a65536].End(xlUp).Row
                Cells(m + 1, 1).Formula = "=sum(r2c:r[-1]c)"
                Cells(m + 1, 2).Formula = "=sum(r2c:r[-1]c)"
                [c2].formua = "=rc[-2]+rc[-1]"
                [c2].AutoFill Range("c2:c" & m + 1)
                If wb <> wb1 Then
                    wb.Close savechanges:=True
                    Set wb = Nothing
                End If
            Next
        Else
            MsgBox "该文件夹里没有任何文件"
        End If
    End With
    Set myFs = Nothing
Application.ScreenUpdating = True
End Sub