excelvba自动保存文件

❶ EXCEL文件自动保存到指定路径怎么写VBA

Sub save()
Dim str As String
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

str = Application.InputBox(prompt:="请输入制想要保存的文件名", Type:=2)
If str = "" Then
Exit Sub
End If

Set ws = ActiveSheet
ws.SaveAs Filename:=str, FileFormat:=xlExcel8
ActiveWindow.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
****PS：在输入想要保存的文件名的时候，可以以这种格式输入D:\文件名.xls就可以改变文件名和保存路径

❷ EXCEL 怎么用VBA实现每隔1分钟自动执行ctrl+s（保存）命令

1、首先在电脑上鼠标右键单击任意Excel表格，在右键菜单中选择打开命令。