excel 中，怎么利用vba把文件另存为另一个文件名？

实现的方法和详细的 *** 作步骤如下：

1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，创建一个新的工作簿，将其命名为“第一章目录”，然后按“alt  + f11”组合键打开“宏”界面，如下图所示，然后进入下一步。

3、接着，完成上述步骤后，在VBA中，单击“插入”按钮，然后选择“模块”选项以创建新模块，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，输入如下红框中的代码，如下图所示，然后进入下一步。

5、随后，完成上述步骤后，返回到名为“第一章目录”的工作簿，然后按“alt  + f8”组合键调出“宏”对话框，如下图所示，然后进入下一步。

6、最后，完成上述步骤后，单击“宏”对话框中的“执行”按钮，“宏”对话框自动关闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式，如下图所示。这样，问题就解决了。

excel中使用vba来创建新的工作薄并另存为的方法，有需要的朋友可以参考本文，来看看吧！

步骤

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub AddSaveAsNewWorkbook()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

Wk.SaveAs Filename:="D:/SalesData.xls"

End Sub

3、工作薄是workbook是一个对象，所以我们定义一个变量wk为对象使用set语句，add新建方法是workbooks对象中的方法，Set Wk = Workbooks.Add即是新建一个工作薄。

4、这里我们禁止exceld出警告对话框，目的是在运行vba的过程中不会d出中止过程运行的需要人工去干预的一个警告对话框。大家可以理解一下当你在另存为时，excel会d出的那个对话框去点击“确定”过程。

5、另存为方法会让你选择存储文件的路径和名字，这里我们直接用函数来给其赋值wk是对象，saveas是方法，filename是参数，直接输入路径和文件名即可。

是正斜杠\，不是反斜杠/

6、参数的输入使用的是：=而不是直接使用=，这点大家要记住。另外因为前面使用过禁止显示信息提示，在使用完这个过程后，excel会处在不提示状态，所以我们应该加一句Application.DisplayAlerts = True来恢复设置。

7、运行以上的代码，会出现错误提示，大家可以找一下为什么会出错，该如何修正，我提示一下错误的位置在于某个符号。

以上就是excel使用vba创建新的工作薄并另存为方法介绍， *** 作很简单的，大家学会了吗？希望这篇文章能对大家有所帮助！

1、在新工作表的Sheet1上点击右键

2、选择查看代码

3、点击倒三角，选择Worksheet

4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发

5、点击候出现如下代码框架

6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格

7、点击保存，然后关闭VBA窗口

8、由于A1,B1没有数据，所以C1为0

9、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。

10、就可以用EXCELVBA保存文件了。

---