存为指定的文件名

hhxq001

原代码不能指定新表的文件名，怎么才能保存为指定的文件名




选择保存路径0726.rar (30.78 KB, 下载次数: 11)

2024-7-26 09:33 上传

点击文件名下载附件

ykcbf1100

附件更新一下。

ykcbf1100

参与一下。。。

1. Sub 保存()   '//2024.7.26
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     ActiveSheet.Copy '复制
   
5.     Set wb = ActiveWorkbook
   
6.     With wb.Sheets(1)
   
7.         .UsedRange.Value = .UsedRange.Value
   
8.         '删除所有图形、按钮
   
9.         .DrawingObjects.Delete
   
10.     End With
    
11.     wb.SaveAs Filename:=ThisWorkbook.Path & "\结果", FileFormat:=51
    
12.     wb.Close
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    
16. 
    

复制代码

Jaofuan

ykcbf1100

改一下，文件名自输

1. Sub 保存()   '//2024.7.26,文件名自定
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     fn = Application.InputBox("请输入另存文件名", "文件名输入", "结果")
   
5.     ActiveSheet.Copy '复制
   
6.     Set wb = ActiveWorkbook
   
7.     With wb.Sheets(1)
   
8.         .UsedRange.Value = .UsedRange.Value
   
9.         '删除所有图形、按钮
   
10.         .DrawingObjects.Delete
    
11.     End With
    
12.     wb.SaveAs Filename:=ThisWorkbook.Path & fn, FileFormat:=51
    
13.     wb.Close
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    

复制代码

hhxq001

ykcbf1100 发表于 2024-7-26 09:52
附件更新一下。

不能自己选择路径。只想实现在我原另存为弹窗的文件名为指定文件名

ykcbf1100

hhxq001 发表于 2024-7-26 10:15
不能自己选择路径。只想实现在我原另存为弹窗的文件名为指定文件名

嗯，让其他老师来吧。

hhxq001

Jaofuan 发表于 2024-7-26 09:53

需要自由选择保存路径

Yalishanda30

hhxq001 发表于 2024-7-26 10:25
需要自由选择保存路径

                         。