VBA如何让Excel点击保存自动执行以单元格A1内容命名这个Excel表保存

A1080261

VBA如何让Excel点击保存自动执行以单元格A1内容命名这个Excel表并保存到这个Excel表所在文件夹

chenbiao2012

你是指当前工作簿吗

A1080261

chenbiao2012 发表于 2019-12-14 16:06
你是指当前工作簿吗

是的，有什么好办法吗，网上找到的代码都是有指定路径的保存，我打开的表格都是已经建立好的，只要保存到当前的路径就要以。

chenbiao2012

Sub test()
    With ActiveSheet
        p = ThisWorkbook.Path & "\"
        m = .[a1].Value
    End With
    ThisWorkbook.SaveAs p & m
End Sub

A1080261

chenbiao2012 发表于 2019-12-14 16:25
Sub test()
    With ActiveSheet
        p = ThisWorkbook.Path & "\"

试了一下，这种是另存为的方式。却也不是保存的方式。别外如果加入这点击保存执行宏Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)，可以正常执行吗

Datous

A1080261 发表于 2019-12-14 16:57
试了一下，这种是另存为的方式。却也不是保存的方式。别外如果加入这点击保存执行宏Private Sub Workbook ...

参照四楼

1. Private Sub Workbook_AfterSave(ByVal Success As Boolean)
   
2.     If Success Then
   
3.         ThisWorkbook.SaveAs ThisWorkbook.Path & ActiveSheet.[a1].Value
   
4.     End If
   
5. End Sub

复制代码

A1080261

Datous 发表于 2019-12-14 19:08
参照四楼

试过了在A1输入内容点保存，没有按A1的内容命名。