1. VBA如何保存
对于2003版的xls文件，保存工作簿时就自动保存了其中的VBA。对于2007以上版本，默认工作簿为没有宏的xlsx文件，它无法保存VBA，要保存VBA，必须另存为启用宏的工作簿.xlsm。实际上在保存编辑有VBA的xlsx文件时，系统会有这个提示的。如下图：
2. ACCESS用VBA设置控件属性后如何保存
你可以建立一个表来保存参数值然后在窗体的打开事件中从表中 取出参数值对控件进行设置，在窗体的关闭事件中，更新可或保存窗体上控件的属性到表中
3. 在VBA中如何将数据保存在文件中
open "c:\test.txt" for output as #1 ‘创建并打开文件test.txtprint #1,"你要保存的数据" ’在文件号1的位置写文件close #1 ‘关闭文件号1 或open "c:\test.txt" for output as #1write #1,"你要保存的数据"close #1
4. VBA中如何实现保存的文件名可变
建公式下拉有一定难度，用VBA简单。附件是一个样子，改变C列的值后D列自动修改公式，改变B1的值，公式中的文件夹也改变。或在打开此文件时调用一个事件处理程序，代码写上另存表格为你需求的那个文件名就行了。如下示例未具体给定保存的文件名位置，应注意在文件名前加上自己需要的路径。
5. 如何用EXCELVBA保存文件
1、在新工作表的Sheet1上点击右键
6. 用VBA如何批量将工作表保存到指定的文件夹
用vba保存到指定的文件夹，这种情况下，我们就是在电脑上先建立一个文件夹，然后上传保存就可以了
7. EXCEL 怎么用VBA实现每隔1分钟自动执行ctrl+s（保存）命令
1、首先在电脑上鼠标右键单击任意Excel表格，在右键菜单中选择打开命令。
8. VBA如何实现将一个文件另存为一个新文件
excel中使用vba来创建新的工作薄并另存为的方法，有需要的朋友可以参考本文，来看看吧！步骤1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub AddSaveAsNewWorkbook()Dim Wk As WorkbookSet Wk = Workbooks.AddApplication.DisplayAlerts = FalseWk.SaveAs Filename:="D:/SalesData.xls"End Sub3、工作薄是workbook是一个对象，所以我们定义一个变量wk为对象使用set语句，add新建方法是workbooks对象中的方法，Set Wk = Workbooks.Add即是新建一个工作薄。4、这里我们禁止excel弹出警告对话框，目的是在运行vba的过程中不会弹出中止过程运行的需要人工去干预的一个警告对话框。大家可以理解一下当你在另存为时，excel会弹出的那个对话框去点击“确定”过程。5、另存为方法会让你选择存储文件的路径和名字，这里我们直接用函数来给其赋值wk是对象，saveas是方法，filename是参数，直接输入路径和文件名即可。是正斜杠\，不是反斜杠/6、参数的输入使用的是：=而不是直接使用=，这点大家要记住。另外因为前面使用过禁止显示信息提示，在使用完这个过程后，excel会处在不提示状态，所以我们应该加一句Application.DisplayAlerts = True来恢复设置。7、运行以上的代码，会出现错误提示，大家可以找一下为什么会出错，该如何修正，我提示一下错误的位置在于某个符号。以上就是excel使用vba创建新的工作薄并另存为方法介绍，操作很简单的，大家学会了吗？希望这篇文章能对大家有所帮助！
9. excel 怎么用vba实现每一行单独保存为一个文件（重点：包含原批注）
现在代码使用的是.Range(…)=topR、EverR的赋值语句，对新工作表存入值，这样注释自然是没有过去的，而且文字、背景颜色等也没有过去，甚至日期都会显示为数字（2021-10-29会显示为44498），有办法一次性解决这些问题，就是在对.Range赋值之前，添加复制语句，具体修改如下：在程序开始执行后保存当前工作表，添加下面的语句：Dim src as WorkSheetSet src = ActiveSheet赋值的With里面添加两个语句，添加后为：With .Sheets(1)src.Range("A1:" & strEndC1 & "1").Copy .Range("A1:" & strEndC1 & "1").Range("A1:" & strEndC1 & "1") = topRsrc.Range("A" & cx & ":" & strEndC1 & cx).Copy .Range("A2:" & strEndC1 & "2").Range("A2:" & strEndC1 & "2") = EveryREnd With
10. 求助，用vba实现自动批量复制并修改保存文件
代码在文件模块里，或把以下代码粘到模块里
Sub 写入数据()
wbpath = ThisWorkbook.Path & ""
模板文件地址 = wbpath & "模板文件" & ""
到文件夹 = wbpath & "生成表格复制到该文件夹" & ""
my_file = Dir(模板文件地址)
Do While my_file <> ""
Workbooks.Open Filename:=模板文件地址 & my_file
With ThisWorkbook
data_row = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To data_row
If Val(.ActiveSheet.Cells(i, 4)) = Val(Split(ActiveWorkbook.Name, ".")(0)) Then
ActiveWorkbook.ActiveSheet.Range("F2") = .ActiveSheet.Cells(i, 3).Value
ActiveWorkbook.SaveAs Filename:=到文件夹 & .ActiveSheet.Range("B" & i) & ".xlsx"
ActiveWorkbook.Close False
End If
Next i
End With
my_file = Dir
Loop
End Sub
