[已解决]老师请问个关于add方法新建工作薄后能对新的工作薄进行编辑吗？

股网千王

999.zip (75.91 KB, 下载次数: 2)

2013-5-16 10:22 上传

点击文件名下载附件
阅读权限: 100 我在甲工作薄里用代码新建了乙工作薄，并把甲里的工作表复制到了乙里面，现在想对乙工作表里的第一个工作表复制并选择性粘贴（就是想把甲和乙之间的公式关系去掉，甲工作表里有公式）这样的代码该怎么写呢？能实现吗？

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2013-5-16 13:27

股网千王 发表于 2013-5-16 12:54
高手们都休息了吗？

Sub 月度汇总()
    Dim arr
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        Worksheets(i).Unprotect
        arr = Worksheets(i).Range("a1:z" & Cells(Rows.Count, 3).End(xlUp).Row)
        Worksheets(i).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    Next
    ThisWorkbook.SaveAs "d:\乙.xls"
     Application.DisplayAlerts = True
End Sub

保存地址在D盘根目录下
999.rar (75.28 KB, 下载次数: 7)

2013-5-16 13:28 上传

点击文件名下载附件

跳转到最佳答案楼层

股网千王

老师们，请教了{:011:}

股网千王

高手们都休息了吗？{:041:}

happytiger2012

添加后用ActiveWorkbook 或则使用 workbooks(工作簿名)来调用

JLxiangwei

股网千王 发表于 2013-5-16 12:54
高手们都休息了吗？

Sub 月度汇总()
    Dim arr
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        Worksheets(i).Unprotect
        arr = Worksheets(i).Range("a1:z" & Cells(Rows.Count, 3).End(xlUp).Row)
        Worksheets(i).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    Next
    ThisWorkbook.SaveAs "d:\乙.xls"
     Application.DisplayAlerts = True
End Sub

保存地址在D盘根目录下
999.rar (75.28 KB, 下载次数: 7)

2013-5-16 13:28 上传

点击文件名下载附件

股网千王

多谢老师指教{:171:}