Question

EXCEL 如何不带公式另存工作簿中的单个工作表？求VBA代码。

Sheets("报价表").Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Close SaveChanges:=True, _
Filename:=Path & "D:\1\" & Range("g4")
End Sub

这段代码有什么问题？为什么保存时提示“无法在未启用宏的工作簿中保存以下功能”

Answer 1

问题应该出在这里：Filename:=Path & "D:\1\" & Range("g4")

指定的文件名不正确

追问

需要怎么改？

追答

Filename:=ThisWorkbook.Path & Range("g4") & "xlsx"
将文件保存在当前代码工作簿所在的文件夹里，要求G4单元格的文本符合文件名的命名要求。如果你要保存在指定文件夹中应该取消Path：Filename:= "D:\1\" & Range("g4")，文件夹 D:\1\ 必须已存在。

追问

还是不行啊。

追答

复制后G4的内容是什么？

追问

任意名称，不为空值。

追答

Filename:= "D:\1\" & Range("g4") & "xlsx"

这样试没有？

追问

还是不行，不知道哪里出了问题。谢谢……

追答

你把完整代码贴出来分析分析，或者把文件发到我的QQ邮箱，我肯定能帮你搞清楚

追问

别人帮我解决了……这上面的代码可以……但有另外一个问题，我隐藏空白行后再运行这个代码就会出现错误的提示。

Answer 2

他提示你“无法在未启用宏的工作簿中保存以下功能”，建议你先启用宏再试试。。。

追问

已经启用宏了

追答

你是想保存单个工作表，但你用的是ActiveWorkbook.Close SaveChanges:=True，这是保存工作簿(xlsm格式,估计是因为这样才报错),建议你新建一个workbook,然后把你需要的worksheet粘贴到新workbook，再保存新workbook.

追问

ActiveWorkbook.Close SaveChanges:=True
这个可以改不？