Excel文件点击保存自动另存命名并删除原Excel文件

A1080261

点击保存自动以某单元格内容命名Excel文件另存到原文件夹并删除原来的Excel文件。另存和命名已经有了（如下），但不会添加点陆保存执行宏和删除原Excel文件，求助

1. Sub 自动命名()
   
2. '
   
3. ' 自动命名 宏
   
4. '
   
5. 
   
6. '
   
7. With ActiveSheet
   
8.         p = ThisWorkbook.Path & ""
   
9.         m = .[a1].Value
   
10.     End With
    
11.     ThisWorkbook.SaveAs p & m
    
12. End Sub

复制代码

。

dong20030432

公众号里面有看见星光发的表格自杀的代码，你可以看下。保存按钮指的是自己加的保存，还是Ｅxcel自己的保存？

A1080261

dong20030432 发表于 2020-1-10 11:08
公众号里面有看见星光发的表格自杀的代码，你可以看下。保存按钮指的是自己加的保存，还是Ｅxcel自己的保存 ...

Excel原带的保存

扑腾

Sub 自动命名()
'
' 自动命名 宏
'

'
With ActiveSheet
        p = ThisWorkbook.Path & "\"
        m = .[a1].Value
    End With
    Application.Displayalerts=False   
         ThisWorkbook.SaveAs p & m
     Application.Displayalerts=True   
End Sub

A1080261

扑腾 发表于 2020-1-10 21:11
Sub 自动命名()
'
' 自动命名 宏

谢谢，试了下还是不能删除掉原来的文件

lovemh1987

A1080261 发表于 2020-1-11 08:11
谢谢，试了下还是不能删除掉原来的文件

kill  你想删的文件

A1080261

唉，还是花点小钱找某宝去解决一下算了。回复的都对不上问题。