[已解决]另存工作表任意选择到新工作簿且自定义任意工作表名称在新工作

icenotcool

各位老师，我有一个VBA想修改一下，要求：我的操作按钮在操作文件里，另存后工作表（效果）在“年度汇总”工作簿里，另存后的工作表不要保留原文件的宏（VBA）及按钮和还有报表里的函数公式，只保留报表格式格式及数值，另存的这个工作表想在另存时临时决定选择任意一个工作簿，且临时自定义在新工作簿的表名称，谢谢老师了！附件 举例.rar (13.95 KB, 下载次数: 3)

2014-1-7 20:03 上传

点击文件名下载附件

Sub 另存工作表任意选择到新工作簿且自定义任意工作表名称在新工作簿()

    Dim NowWorkbook As Workbook

    Dim FileName$, nm$

    On Error GoTo line

    Sheet1.Activate

    nm = [a1].Value

    [a1].CurrentRegion = [a1].CurrentRegion.Value

    FileName = Application.GetSaveAsFilename _

        (InitialFileName:="D:\" & nm, _

        fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")

    If FileName <> "False" Then

        ThisWorkbook.SaveAs FileName

        GoTo line

    End If

    Exit Sub

line:

    ThisWorkbook.Close False

End Sub

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2014-1-8 12:52

icenotcool 发表于 2014-1-8 11:58
老师，效果基本达到了，可是还有一个小问题就是保存的新工作表里还有函数公式，我想单元格里的数据全变成数 ...

看看现在行不行：
修改举例.rar (15.82 KB, 下载次数: 24)

2014-1-8 12:52 上传

点击文件名下载附件

跳转到最佳答案楼层

yyyydddd8888

不太明白要求

yyyydddd8888

工作表另存不提供另存在另外的工作簿中，只提供另存为新工作簿和本工作簿。
不过可以换一个思路：
直接复制本工作表的数据及格式，在目标工作簿中新建一个工作表，再粘贴复制的数据。

你看这样行不行？如果可行，我可以开始写代码。

yyyydddd8888

请测试：
举例.rar (16.93 KB, 下载次数: 9)

2014-1-8 11:36 上传

点击文件名下载附件

icenotcool

老师，效果基本达到了，可是还有一个小问题就是保存的新工作表里还有函数公式，我想单元格里的数据全变成数值

yyyydddd8888

icenotcool 发表于 2014-1-8 11:58
老师，效果基本达到了，可是还有一个小问题就是保存的新工作表里还有函数公式，我想单元格里的数据全变成数 ...

看看现在行不行：
修改举例.rar (15.82 KB, 下载次数: 24)

2014-1-8 12:52 上传

点击文件名下载附件

icenotcool

老师，谢谢你的解答，那个问题，我解决了，我加了一句粘贴格式的语句上去就可以了额，谢谢老师的解答， 举例更新.rar (12.27 KB, 下载次数: 6, 售价: 2 个金币)

2014-1-8 19:11 上传

点击文件名下载附件