[已解决]如何将宏导入到新的工作表当中去

qjsu

我想做一个工作表，这个工作表内的宏将打开当前文件夹内的多个工作表，在打开的每个工作表里面建立2个按钮。每个按钮指定一段宏代码，再将每个文件夹保存为启用宏的工作表。代码如下：
第一段：
Sub 工作表重命名()
Dim I
Dim Y
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Sheets
I = sh.Name
If Not I = "汇总" Then
If Not I = "Sheet1" Then
Y = Mid(I, 1, 5)
sh.Name = Y
End If
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

第二段：
Sub 合并文档()
    Dim I%, Y%
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    For I = 3 To Sheets.Count
        With Sheets(I)
            If I > 3 Then .Rows("1:2").Delete
        End With
    Next
    Sheets.Add After:=Sheets(2)
    ActiveSheet.Name = "汇总表"
    For Y = 4 To Sheets.Count
        If Y = 4 Then
        Worksheets(Y).Range("A1").CurrentRegion.Copy Worksheets("汇总表").Range("A65536").End(xlUp)
    Else
        Worksheets(Y).Range("A1").CurrentRegion.Copy Worksheets("汇总表").Range("A65536").End(xlUp).Offset(1)
        End If
    Next
    ActiveWorkbook.Save
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-7 18:45

重新传个，之前的有时打开会有启用宏的提示。
(, 下载次数: 43)

上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

按钮添加操作也不难，添加代码部分就是操作VBE的了，也不难，呆会帮你写吧。


再将每个文件夹保存为启用宏的工作表，

qjsu

hwc2ycy 发表于 2013-6-5 17:12
按钮添加操作也不难，添加代码部分就是操作VBE的了，也不难，呆会帮你写吧。

好的，在线等~~~~~~~~~~~~

hwc2ycy

那得晚点，我呆会有个班会要参加，亲。

hwc2ycy

做了个大概出来，还有很多细节没搞。
你先测下，最近白天没时间。
添加代码和按钮.rar (22.1 KB, 下载次数: 37)

2013-6-6 00:11 上传

点击文件名下载附件

qjsu

hwc2ycy 发表于 2013-6-6 00:11
做了个大概出来，还有很多细节没搞。
你先测下，最近白天没时间。

生成的文件打开以后是这样的
第一段、第二段我都能看明白，第三段看不懂

hwc2ycy

文件打开后你要  取消隐藏

hwc2ycy

因为用了getobject后工作簿是隐藏的，所以关闭后再打开也就成这样了。

qjsu

hwc2ycy 发表于 2013-6-6 09:18
因为用了getobject后工作簿是隐藏的，所以关闭后再打开也就成这样了。

有的时候会出现这个问题，是怎么回事啊

qjsu

hwc2ycy 发表于 2013-6-6 09:18
因为用了getobject后工作簿是隐藏的，所以关闭后再打开也就成这样了。

ps：不用每张表格都添加按钮，只在sheet1里面添加就可以了，这样速度是不是还能快一点呢？
还有就是能不能直接取消隐藏表格啊？