如何用EXCELVBA保存文件

Question

请问一下，
我现在用VBA做了一整套操作（将某个路径文件夹下的文件自动放到excel进行处理），接下来想要自动实现保存到此文件夹的操作，顺便保存的文件名和原路径的文件夹名称相同，请教如何写这个VBA。
谢谢

Answer 1

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保存文件了。

Answer 2

Dim N_NAME,N_PATH

Workbooks.Add
Sheets("SHEET1").Select

'......这里对新文件的一系列操作,如
ActiveSheet.Range("A1") = "ABCD"
'......这里对新文件的一系列操作

N_PATH=ThisWorkbook.Path '定义保存路径，可自己定义保存位置
N_NAME = N_PATH & "\导出文件名称 .xls" ’定义保存文件路径及文件名
ActiveWorkbook.SaveAs N_NAME

ActiveWorkbook.Close

MsgBox ("保存" & N_NAME & "成功.")