1. vba另存为
vba文件，点击另存为按钮，选择代码原件。
2. VBA另存为删除宏
如果不需要使用宏，可以将文件另存为普通的XLSX文件。
或者先备份一下宏，然后直接删除宏代码。具体步骤：
1.按下快捷键Alt+F11，打开VBA宏编辑器
2.打开模块列表，将其中的代码导出，或复制出来备份。
3.然后右击模块名称，将其删除。
4.另存Excel文件为XLSX格式文件。
3. VBA另存为文件名怎么样用动态的
我个人喜欢用的这种：
步骤1、插入一个模块，放入以下代码Sub 计时()Sheet1.Range("A1").Value = Format(Date, "yyyy年MM月DD日") & " " & TimeApplication.OnTime Time + TimeSerial(0, 0, 1), "计时", , TrueEnd Sub 步骤2、THISWORKBOOK代码编辑器中放入以下代码Private Sub Workbook_Open()Call 计时End Sub 步骤3、运行步骤2或重启该电子表格
4. VBA另存为图片代码
你这个肯定的啊，你的这个代码的显示的文件夹的图片，1.别人不一定有，2.不一定叫这个名字，3.你的代码是每改动一个单元格就会删除所有图片然后重新读取图片。所以你发给别人肯定是有问题的。
5. VBA另存为未启用宏的文件
1、打开Excel，点击左上角的【文件】。
2、找到并点击【选项】按钮。
3、弹出窗口后，在左侧点击【信任中心】。
4、然后点击右下角的【信任中心设置】。
5、弹出窗口，点击左侧的【宏设置】。
6、选择【启用所有宏】，并勾选【信任对VBA工程对象模型的访问】。
7、选择完毕后点击【确定】。
8、然后点击上方工具栏的【视图】。
9、找到宏，点击选择【录制宏】。
10、输入宏的名称以及保存路位置后点击【确定】即可开始录制。
11、录制结束后，点击上方宏里面的【停止录制】即可。
12、需要使用时，点击宏里的【查看宏】。
13、选择宏然后点击【执行】即可。
6. vba另存为工作簿
把你要保留的工作表的名字放到数组里，再把数组放到字典里，然后遍历工作表，判断工作表名是否在字典里存在，如果存在，把工作表移动到新工作簿里然后另存为
不想用字典和数组的话，也可以把工作表名列一列，用VBA调用countif函数判断
工作表移动到新工作簿里然后另存为的代码录制宏可以得到
7. VBA另存为CSV但不打开CSV
如果你这里说的“回车”是指通过 Alt＋回车 使单元格里的内容可以换行的这种回车，在EXCEL里不容易处理，但在WORD里就简单了。 你只要将内容或表格先复制到WORD里，你会发现在EXCEL里的换行，在WORD里变成了一个向下箭头的回车符（硬回车，向左拐弯的是软回车），只要用“查找/替换”功能，在“查找内容”中输入：^l （这是小写的英文字母L）在“替换为”就什么都不输入，确定后就可以将所有硬回车去除，再将这些内容或表格粘贴回EXCEL里就行了。
8. vba另存为别的文件不保存宏
如果已经设置启用宏，依旧弹出错误信息，可能是当前打开的 excel 文件，是通过优盘编辑或者网络传输，导致了保护视图的触发，无法执行 VBA 所致，你可以尝试将文件另存为一个新的 xlsm，再打开。
9. VBA另存为手动重命名
Sub 新建工作簿()
Application.ScreenUpdating = False
Dim gzb As Workbook
Set gzb = Workbooks.Add
ActiveSheet.Name = "1-a"
Workbooks("A.xls").Sheets("a").Cells.Copy [a1]
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "1-b"
Workbooks("A.xls").Sheets("b").Cells.Copy [a1]
gzb.SaveAs ThisWorkbook.Path & "\1-A.xls", FileFormat:=xlExcel8
Set gzb = Nothing
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
这个vba代码写在A工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。
10. VBA另存为 后不打开存储的文件
方法/步骤如下
1
我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。
2
保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。
3
在过程中输入打开文件的代码：
Workbooks.Open：在Workbooks表示文件，Open是打开的动作。
如果仅执行以上代码，会报错。
4
因此，打开文件夹的动作后面需要加上必要的参数：
Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。
5
执行以上代码后，就可以打开文件test.xlsx。
6
打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!
代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。
7
再次执行以上代码后，可以看到文件内容已更新
- 相关评论
- 我要评论
-
