[已解决]帮忙修改一下代码：导出工作表

飞云流水

Sub dc()
     Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    On Error GoTo line
    Worksheets(Array("计算表")).Copy
    ActiveWorkbook.Close SaveChanges:=True, _
        Filename:=ThisWorkbook.Path & "\计算草稿.xlsx"
    Exit Sub
line:
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub


备注：改为只导出“值和数字格式”，不要保留计算的公式！

最佳答案

月排行榜 / 总排行榜

爱疯

2011-10-29 23:08

1. 
   
2. Sub test()
   
3.     Dim x As Workbook, y As Workbook
   
4.     Set x = ThisWorkbook
   
5.     Set y = Workbooks.Add
   
6.     Application.ScreenUpdating = False
   
7.     x.Activate
   
8.     Sheets("计算表").Activate
   
9.     Sheets("计算表").UsedRange.Select
   
10.     Selection.Copy
    
11.     y.Activate
    
12.     Sheets("sheet1").Activate
    
13.     Range("a1").PasteSpecial Paste:=xlPasteValues
    
14.     Sheets("sheet1").Name = "计算表值"
    
15.     x.Sheets("参数").UsedRange.Copy y.Sheets("sheet2").Range("a1")
    
16.     y.Activate
    
17.     Sheets("sheet2").Activate
    
18.     Sheets("sheet2").Name = "参数副本"
    
19.    
    
20.     Application.DisplayAlerts = False
    
21.     Sheets("sheet3").Delete
    
22.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "计算表值.xlsx", xlWorkbookNormal
    
23.     Application.DisplayAlerts = True
    
24.     ActiveWorkbook.Close
    
25.    
    
26.     '返回按钮工作表
    
27.     x.Activate
    
28.     Sheets("界面").Activate
    
29. End Sub

复制代码

计算表.rar (11.37 KB, 下载次数: 25)

2011-10-29 23:07 上传

点击文件名下载附件 {:041:}

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub dc()
   
3.     Application.DisplayAlerts = False
   
4.     Application.ScreenUpdating = False
   
5.     On Error GoTo line
   
6.     Worksheets(("计算表")).Activate
   
7.     Cells.Select
   
8.     Selection.Copy
   
9.     Workbooks.Add
   
10.     Selection.PasteSpecial Paste:=xlPasteValues
    
11.     Application.CutCopyMode = False
    
12.     ActiveWorkbook.Close SaveChanges:=True, _
    
13.                          Filename:=ThisWorkbook.Path & "\计算草稿.xlsx"
    
14.     Exit Sub
    
15. line:
    
16.     ActiveWorkbook.Close False
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

{:041:}

飞云流水

回复 爱疯 的帖子

如何把工作簿名称为"计算表.xlsx",同时工作簿中有计算表，数据库，参数，导出工作簿为"计算草稿.xlsx",其中计算表中数值保存为“计算表值”，参数表保存为“参数副本”，就是导出的工作簿包含多个工作表且表名称和原来都不同，拜托老师了，同时要求保存的为“值和数字格式”

爱疯

没看明白意思。
要不列举下：上传你的附近，以及你希望的结果。

飞云流水

回复 爱疯 的帖子

随便举例数据说明，工作簿“计算表值”及其中的表名是想要的结果

爱疯

1. 
   
2. Sub test()
   
3.     Dim x As Workbook, y As Workbook
   
4.     Set x = ThisWorkbook
   
5.     Set y = Workbooks.Add
   
6.     Application.ScreenUpdating = False
   
7.     x.Activate
   
8.     Sheets("计算表").Activate
   
9.     Sheets("计算表").UsedRange.Select
   
10.     Selection.Copy
    
11.     y.Activate
    
12.     Sheets("sheet1").Activate
    
13.     Range("a1").PasteSpecial Paste:=xlPasteValues
    
14.     Sheets("sheet1").Name = "计算表值"
    
15.     x.Sheets("参数").UsedRange.Copy y.Sheets("sheet2").Range("a1")
    
16.     y.Activate
    
17.     Sheets("sheet2").Activate
    
18.     Sheets("sheet2").Name = "参数副本"
    
19.    
    
20.     Application.DisplayAlerts = False
    
21.     Sheets("sheet3").Delete
    
22.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "计算表值.xlsx", xlWorkbookNormal
    
23.     Application.DisplayAlerts = True
    
24.     ActiveWorkbook.Close
    
25.    
    
26.     '返回按钮工作表
    
27.     x.Activate
    
28.     Sheets("界面").Activate
    
29. End Sub

复制代码

计算表.rar (11.37 KB, 下载次数: 25)

2011-10-29 23:07 上传

点击文件名下载附件 {:041:}

飞云流水

回复 爱疯 的帖子

老师，用03版导出后可以打开，但用2010版导出后无法打开，文件名或格式无效

爱疯

飞云流水 发表于 2011-10-30 08:52
回复 爱疯 的帖子

老师，用03版导出后可以打开，但用2010版导出后无法打开，文件名或格式无效

计算表2.rar (9.39 KB, 下载次数: 6)

2011-10-30 12:23 上传

点击文件名下载附件

飞云流水

回复 爱疯 的帖子

老师，你看看问题出在那里

爱疯

计算表4.rar (20.47 KB, 下载次数: 10)

2011-10-30 12:49 上传

点击文件名下载附件 这行吗