vba保存工作表到新的excel,电子表格vba保存当前工作表

1. vba保存当前工作表

你说的是Excel表格里面加了vba代码吧？这样的话你要保存为Excel的宏格式。在你保存文件的时候，在下拉框里保存Excel宏文件就可以了。

2. vba保存当前工作表为工作簿

如果不是所有的excel文件都无法保存，只是某个特定的表格可编辑不能保存，暂不管什么原因，解决的办法有许多，列举几个：第一，原始文件打开后，先另存为符合现用版本的excel文件簿格式，（不带宏，vba,）编辑后可否正常保存。

第二，复制关键工作表到新工作簿，必要的话，复制全部。新工作簿保存。

三，直接复制所有数据到新建的一个工作簿，如不需原始运算方式，只复制粘贴数值。

3. vba保存工作表到新的工作簿 取消公式

'运行以下过程,清除当前工作簿中所有工作表中小于12且大于30000的数据,只是清除单元格内容,运行前请备份文件,以免出错Sub DelCell() '若要删除单元格刚将C.ClearContents改为C.Delete即可 Dim C As Range Dim Sht As Worksheet For Each Sht In ThisWorkbook.Sheets For Each C In Sht.UsedRange If IsNumeric(C.Value) And C.Value < 12 Or C.Value > 30000 Then C.ClearContents Next NextEnd Sub

4. vba保存工作表时去掉公式

答解决方法如下

　　操作步骤

　　1、打卡Excel表格单击菜单栏“工具”→“选项”。

　　2、进入“选项”设置，点击“安全性”在“个人信息选项”下勾掉“保存时从文件属性中删除个人信息”即可解决问题。

　　3、还有一种方法就是用VBA代码解决这个问题，按ALT+F11进入VBA界面，选择ThisWorkbook。

　　4、在“ThisWorkbook”窗口内输入以下代码，然后关闭Excel在打开即可。

　　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean， Cancel As Boolean)

　　ActiveWorkbook.RemovePersonalInformation = False

　　End Sub

5. vba保存工作表的图片

直接保存或者另存为或者复制保存

6. vba保存工作表的图片到指定路径

可以用VBA解决这个问题，在EXCEL中按ALT+F11调出VBA窗口，按“插入－模块”插入一个用户模块，把下面代码粘贴进去：

Sub 保存文件()'要另存的位置在上面 ActiveWorkbook.SaveAs Filename:="\\192.168.5.6\备份\1.xlsm"'下面这个是平时常用的位置 ActiveWorkbook.SaveAs Filename:="e:\文件\1.xlsm"End Sub

然后回到EXCEL表格窗口，插入一个按钮（或者插入一个文本框、艺术字等都行），用鼠标右键给它“指定宏”为“保存文件”，就可以了。使用时点击这个按钮就能自动保存两份到指定位置。说明：代码中上面的那个路径是服务器的，我没法测验是否能用，如果是本地硬盘上的路径，绝对没问题。

7. vba保存工作表到指定路径并并重命名

工作中经常会遇到这样的情况，上级部门在收集了下级部门的Excel工作薄后，需要将信息汇总到一个工作表中，通过复制粘贴的话，这个过程枯燥乏味，如果出错就得不偿失了。Microsoft Excel版本太低，没有那么多的功能来方便我们的工作，那么只能通过“万能”的VBA来实现了。

Microsoft Excel快速合并多个工作簿至一个工作簿中详细操作流程：

步骤一：首先将需要合并的Microsoft Excel工作薄放在一个文件夹中，然后在这个文件夹中新建一个Microsoft Excel工作表，并重命名为【合并.xlsx】。左键双击打开【合并.xlsx】Microsoft Excel工作表。右键单击【合并】工作表后，左键单击右键菜单中的【查看代码(V)】选项，打开【Visual Basic编辑器】。

步骤二：编辑VBA代码。左键单击选中【Sheet1 合并】后，在右侧代码窗口中键入以下代码，您也可以选择复制粘贴，请注意代码中的标点符号为英文标点符号。代码输入完成后，同时按下键盘上的【Ctrl + S】键保存代码，先左键单击【Microsoft Excel】对话框中的【是（Y）】按钮，再左键单击【Microsoft Excel】对话框中的【确定】按钮，最后关闭【Visual Basic编辑器】即可完成代码编辑。

Sub 合并工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

步骤三：Microsoft Excel快速合并多个工作簿至一个工作簿使用方法。执行VBA代码，首先需要在菜单栏中显示【开发工具】。显示【开发工具】详细操作流程请参照：PPT小技巧：如何把视频嵌入到PPT演示文稿中合并成一个文件？PPT和Excel操作流程基本一致。左键单击菜单栏中的【开发工具】选项卡，左键单击【代码】功能区中的【宏】按钮。左键单击选中【宏】对话框中的【Sheet1.合并工作薄】后，左键单击【执行（R）】按钮。

步骤四：在弹出的【合并工作薄】对话框中，长按键盘上的【Ctrl】键，鼠标左键单击选中需要合并的Microsoft Excel工作表，这样可以跳跃式选择，当然【合并】工作表不需要选中，选择完成后，左键单击【打开(O)】按钮。等待片刻多个工作簿已经合并一个工作簿中啦！如想进一步操作请参照：Microsoft Excel怎么快速合并当前工作簿下的所有工作表？

至此，Microsoft Excel快速合并多个工作簿至一个工作簿中操作流程已全部结束。

8. vba保存当前工作表数据

呵呵，这小白需求，无语。实现起来倒是很容易：每个工作表下面写这个：

Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.SaveEnd Sub只要有单元格被改就自动保存。总体感觉这需求毫无意义也没有必要用VBA实现。

9. excel vba保存工作表

方法1:

Private Sub CommandButton1_Click()

With Sheets(1)

Row = .Range("A65536").End(xlUp).Row

If Row = 1 And .Range("A" & Row) = "" Then Row = 0

.Range("A" & Row + 1).Value = TextBox1.Value

End With

End Sub

方法2:

Dim N As Long

Private Sub CommandButton1_Click()

N = N + 1

Sheets(1).Range("A" & N).Value = TextBox1.Value

End Sub

10. vba保存工作表代码

可以使用如下代码： Sub 按钮1_Click() ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = Day(Date) ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value End Sub