[已解决]导出指定工作表删除工作表中代码

scl5801 · 发表于 2016-1-2 22:33

本帖最后由 scl5801 于 2016-1-3 10:10 编辑

附件中的总分平衡表中有代码，导出时代码一同导出，怎么改能把导出的
代码删除？
Sub 报表输出()
Application.ScreenUpdating = False
w = Array("资产负债表", "利润表", "总分平衡表")
Sheets(w).Select
Sheets(w).Copy
For i = 1 To UBound(w) + 1
   Sheets(Array(i)).Select
   ActiveSheet.Unprotect
   For Each shp In ActiveSheet.Shapes
      shp.Delete
   Next
Next i
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2016-1-3 09:27

2015 账.rar (107.3 KB, 下载次数: 17)

砂海 · 发表于 2016-1-2 22:46

复制粘贴这个
sheets().range().value

scl5801 · 发表于 2016-1-2 22:52

砂海发表于 2016-1-2 22:46
复制粘贴这个
sheets().range().value

复制到那？

砂海 · 发表于 2016-1-2 23:05

本帖最后由砂海于 2016-1-2 23:08 编辑

新建空白工作表

Sheets(w).Copy这句变成 sheets().range(:A1:AA65536").value.copy '根据你的页面
然后去粘贴值
==================================

改正,假设要的是A1:g20的区域 ,粘贴A:g的整列,在粘贴1:20的整行,可以把格式都带过来

scl5801 · 发表于 2016-1-2 23:15

本帖最后由 scl5801 于 2016-1-2 23:21 编辑

砂海发表于 2016-1-2 23:05
新建空白工作表

Sheets(w).Copy这句变成 sheets().range(:A1:AA65536").value.copy '根据你的页面

请老师给改一下，我搞不定，一次导出多个表哦。

zjdh · 发表于 2016-1-3 09:27

2015 账.rar (107.3 KB, 下载次数: 17)

scl5801 · 发表于 2016-1-3 10:08

感谢zklh

		自动登录	找回密码
密码			注册