excel实时保存vba(vba保存sheet为新的文件)

1. vba保存sheet为新的文件

Sub myMove() i = Sheets.Count Workbooks.Open Filename:="带路径的EXCEL工作簿名.xls" Sheets("工作表名").Select Sheets("工作表名").Move After:=Workbooks("当前打开的EXCEL工作簿名.xls").Sheets(i)End Sub

2. vba保存数据至另外一张表

假设表1从A2到A102有101行数据 Submypro() DimarrA(100)AsSinglerem定义数组arrA来储存A列的数据 DimarrB(100)AsSinglerem定义数组arrB来储存将要返回到B列的数据 DimiAsInteger Fori=0To100 arrA(i)=Sheet1.Cells(i+2,1).Valuerem数组arrA赋值 Next arrB(0)=arrA(0)remB2的值等于初始值A2的值 Fori=1To100 IfarrA(i)=arrA(i-1)Then arrB(i)=arrA(i)+arrB(i-1)remA3的值等于A2，那么B3的值就等于A3+B2 Else arrB(i)=arrA(i)remA3的值不等于A2，那么B3的值就等于A3 EndIf Next Fori=0To100 Sheet1.Cells(i+2,2).Value=arrB(i)rem循环结束后一次性将结果返回到表里 EndSub

3. vba保存为xls

Sub copySheet()

Dim wkbk As Workbook

Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件

wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前

End Sub

这样是最简单的代码了，但是有些限制：如果工作表的某些单元格中字符数超过255个，则副本的该单元格中只保留前255个字符。

如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中，用下列代码：

Sub copySheet()

Dim wkbk As Workbook

Set wkbk = Workbooks("book2") '先打开要复制的文件

wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容

ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前工作簿第一个工作表中

End Sub

4. vba保存excel文件

1：首先，这里需要进行一个处理，否则打印成的pdf会很乱，设置方式打开表格点击“打印预览”

2：进行调整，每一页在打印打印页面范围内，调整完毕才可以接着下方的操作，如果这里没有调整好，打印出来的pdf是会乱的。

3：调整完毕，点击先选中一个工作表下面的表名例如：sheet1，然后安装ctrl，使用鼠标点击剩下的工作表名，将其全部选中。然后点击左上角的“文件”，进入到文件栏目，点击“文件”栏目下的“另存为”，进入另存界面，点击“计算机”，将其另存到计算机中，

这里的保存类型找到并选择为“pdf”格式，然后点击右下角的“确定”。

4：很快就转化完毕，这时候打开pdf文件，可以看见，所有的工作表都打印到了一个pdf文件中。

5. vba保存到当前位置

Sub save() Dim str As String Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False str = Application.InputBox(prompt:="请输入想要保存的文件名", Type:=2) If str = "" Then Exit Sub End If Set ws = ActiveSheet ws.SaveAs Filename:=str, FileFormat:=xlExcel8 ActiveWindow.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ****PS：在输入想要保存的文件名的时候，可以以这种格式输入D:文件名.xls就可以改变文件名和保存路径

6. vba保存sheet为新的文件 文件名按固定单元格内容变化

表格的实现原理

如果没有启用宏，则只显示名为“提示”的工作表，其它工作表无法通过正常的方法取消隐藏，你的同事也就无法使用（提示工作表里面可以写一些说时，如启用宏的方法，一些填写规范等等）

如果启用了宏，就隐藏“提示”工作表，恢复其它工作表，可以正常使用

而且，如果“校验公式单元格不平”，就给出提示，而且无法退出EXCEL（强制关掉还是可以的），只有在“校验公式单元格平”时才能保存退出。

检验的单元格我设置为sheet2中的A1，你可以按ALT+F11，然后点击thisworkbook，查看里面的代码，然后根据你的需要，重新设置校验单元格

主要设置里面这一句 sheets("sheet2").range("a1") = "校验内容"

里面的sheet2是对应工作表的名称，a1是单元格地址

为了防止同事不小心修改了代码，你可以为VBA设置密码

7. vba 保存

word的VBA中有section（节）对象，用个循环遍历每个节，提取内容然后保存就可以了