如何用EXCELVBA保存文件

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

Sub a()

Dim time

Dim wb As Workbook

Dim db As Workbook

time = Now()

time = Replace(time, "告亏:", "")

Set db = ThisWorkbook

Set wb = Workbooks.Add

db.Activate

db.ActiveSheet.Copy before:=wb.Sheets(1)

wb.SaveAs Filename:=ThisWorkbook.Path &"\"指友宴 &time &".xls"

wb.Close

db.Activate

MsgBox "已经保存在目录下唯银" &time &".xls"

End Sub

路径有需要的自己改下

---