复制生成新工作簿无法保存

bbyod26 · 发表于 2018-10-2 22:26

本帖最后由 bbyod26 于 2018-10-3 21:50 编辑

我完全菜鸟，这些都是根据百度到的代码改的，所以不懂到底哪里出了问题，希望大家帮忙调试一下，谢谢！！！
我想把当前公式生成数值的工作表复制移动并另存为新工作簿，只复制数值不保留公式，以单据编号命名，a6单元格就是单据编号

<div class="blockcode"><blockquote>Sub 生成单据()
Sheets(1).Copy
With ActiveWorkbook
a = Right(Range("a6").Value, 11)
.Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
.Filename = Application.GetSaveAsFilename(InitialFileName:=a, filefilter:="Excel files(*.xl*),*.xls,Allfiles(*.*),*.*", Title:="请选择保存文件的位置及文件名称")
If Filename <> False Then Exit Sub
.SaveAs Filename:=Filename, FileFormat:=xlNormal
.Save
End With
ActiveWorkbook.Close
End Sub

复制代码

朱荣兴 · 发表于 2018-10-3 11:54

提示: 作者被禁止或删除内容自动屏蔽

bbyod26 · 发表于 2018-10-3 21:51

朱荣兴发表于 2018-10-3 11:54
没有附件支持的求助帖，一般不会得到别人的帮助的，请上传你的excel附件来看看

嗯嗯，谢谢提醒~已经重新上传了

bbyod26 · 发表于 2018-10-5 13:49

我已经解决了~谢谢大家

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-10-3 11:54 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 复制生成新工作簿无法保存