Excel中,如何用vba实现另存为工作表?(去掉公式)

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

问题应该出在这里：Filename:=Path
&
"D:\1\"
&
Range("g4")
指定的文件名不正确

Sub Macro1()
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete '删除最后一个工作表
For i = 70 To 367
s = i & " " & Range("b6")
ActiveWorkbook.SaveCopyAs Filename:="D:\My Documents\信用村评定\" & s & ".xls", _
FileFormat:=xlExcel8
Next
Application.DisplayAlerts = True
End Sub

1、首先，找到要进行操作的Excel表格，右键单击Excel图标，然后在弹出的右键菜单中选择打开命令。

2、从打开的工作簿左下角的工作表标签可知，该工作簿默认生成工作表为一个。

3、按下组合键Alt+F11，即可快速调出VBA窗口。

4、在VBA界面中单击菜单栏中的插入，选择模块命令，此时会弹出一个另存为的模块窗口。

5、在另存为的模块窗口中复制粘贴以下代码：

Sub New_worksheet()

Sheets(1).Select

Worksheets.Add

End Sub

则会另存为sheet2工作表了。

楼主你好,我给你想了个有效的办法
首先全选,然后选择性粘贴,只粘贴数值,这样就能在不改变任何东西的情况下去掉公式,只留下数值了,楼主快去试一试吧

Cells.Select
'全选

Selection.Copy
'复制

Selection.PasteSpecial Paste:=xlPasteValues
'选择性粘贴,只粘贴数值,去掉公式,不破坏格式

ActiveWorkbook.SaveAs Filename:="C:\Noformula.xls"

这个只是基本步骤
当然了,如果只这样的话,那么原来表格里面的公式也没了,楼主根据自己的具体情况稍微一修改就行了

楼主,写完之后我又看了看,觉得这样不能去掉宏,只能去掉公式,于是我又写了一段,这段的思路如下:
新建一个工作簿,然后选择性的把数据粘贴过去,然后保存,这样的话就可以在不破坏任何东西的情况下去掉公式和宏(vba代码)了
代码如下:

Cells.Select
'全选

Selection.Copy
'复制

Dim xlApp As Excel.Application

'创建一个新的excel

Dim xlBook As Excel.Workbook

Dim xlSheet1 As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
'创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.Worksheets("sheet1")
'设置活动工作表
xlApp.DisplayAlerts = False

'关闭警告
xlApp.Visible = True

'设置EXCEL对象可见

xlSheet1.Activate

'激活新的excel工作表
xlSheet1.Cells.PasteSpecial Paste:=xlPasteValues
'选择性粘贴,只粘贴数值,去掉公式,不破坏格式
xlBook.SaveAs Filename:="C:\Noformula.xls"
'楼主,这个保存路径名称你自己改

msgbox "文件保存为C:\Noformula.xls"

xlApp.DisplayAlerts = True

xlBook.Close

'关闭工作表

xlApp.Quit

'退出excel程序

楼主,我写得很辛苦哦,我女朋友给我聊qq我都没理她

---

南江县18258682208： 将excel中数据保存至另一个excel中用vba - ？
邰胖可立： 将excel中数据保存至另一个excel中用vba,可以这样: 1、插入一个ActiveX控件中的按钮,双击添加如下代码: Private Sub CommandButton1_Click() ThisWorkbook.SaveAs Filename:=＂C:\Users\Administrator\Desktop\Book1.xlsx＂ End Sub ...

南江县18258682208： Excel中,如何用vba实现另存为工作表?(去掉公式) - ？
邰胖可立： 1、首先,找到要进行操作的Excel表格,右键单击Excel图标,然后在弹出的右键菜单中选择打开命令.2、从打开的工作簿左下角的工作表标签可知,该工作簿默认生成工作表为一个. 3、按下组合键Alt+F11,即可快速调出VBA窗口. 4、在VBA界面中单击菜单栏中的插入,选择模块命令,此时会弹出一个另存为的模块窗口. 5、在另存为的模块窗口中复制粘贴以下代码: Sub New_worksheet() Sheets(1).Select Worksheets.Add End Sub 则会另存为sheet2工作表了.

南江县18258682208： 怎么把excel vba帮助另存 - ？
邰胖可立： 工作簿在 E:\a申请信息表\ 这个路径下 x = 4 开始循环 x= x + 1 工作簿中(＂A＂ & x) 分别是 张三 李四 ...人名 如何用VBA循环 另存为这个工作簿到 E:\a申请信息表\ 这个路径下 另存的工作簿命名为 单元格(＂A＂ & x) 的人名 A 列的人名数量...

南江县18258682208： 用VBA 把excel中某个区域 导出另存新档 - ？
邰胖可立： 以A1:B2为例, 新档案另存为＂c:\abc.xls＂, 代码如下:Range(＂A1:B2＂).Copy Workbooks.Add With ActiveWorkbook.ActiveSheet .Paste .SaveAs Filename:=＂c:\abc.xls＂ End With

南江县18258682208： 请问如何用VBA实现将EXCEL中的一个工作表保存在指定文件夹内? - ？
邰胖可立： ThisWorkbook.Path 改成你需要的路径就可以了,比如改成 “C:＂,就在C盘根目录下

南江县18258682208： excel vba 另存文件 - ？
邰胖可立： Excel 开发人员参考Workbook.SaveAs 方法在另一不同文件中保存对工作簿所做的更改. 语法表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, ...

南江县18258682208： excel用VBA另保存excel中特定的工作表 - ？
邰胖可立： Sub CopySelectedSheets()'定义新工作簿名称为NewBookNameDim NewBookName As String'获取原工作簿(这里的名字是text.xls)第一张表格里的A1单元格内的值作为NewBookName...

南江县18258682208： 如何用VBA实现将Excel 关闭后直接另存到一个指定的路径,并在另存文件名后自动获取系统时间？
邰胖可立： 本例假设文件另存为:C:\aaa.xls,你可以自行修改 请在ThisWorkBook对象中输入如下代码: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.SaveAs Filename:=＂C:\aaa.xls＂, _ FileFormat:=xlNormal, Password:=＂＂, WriteResPassword:=＂＂, _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub

南江县18258682208： EXCEL 怎样在保存的同时另存一份到指定的文件夹? - ？
邰胖可立： 可以用VBA解决这个问题,在EXCEL中按ALT+F11调出VBA窗口,按“插入-模块”插入一个用户模块,把下面代码粘贴进去:Sub 保存文件()'要另存的位置在上面 ActiveWorkbook.SaveAs Filename:=＂\\192.168.5.6\备份\1.xlsm＂'下面这个...

南江县18258682208： 用vba代码把当前excel工作薄另存到局域网内其他电脑的共享文件夹内 - ？
邰胖可立： 你先把别的电脑的共享文件夹 映射到本地,然后就会有个虚拟的盘符,跟本地磁盘一样操作就可以了 或者路径是 \\192.168.0.102\共享文件夹 这样的