excel筛选后内容另存xls 如果有文件覆盖并且不提示

最新推荐文章于 2021-07-08 16:52:18 发布

nongcunqq

最新推荐文章于 2021-07-08 16:52:18 发布

阅读量347

点赞数

分类专栏： vb

本文链接：https://blog.csdn.net/nongcunqq/article/details/115251072

版权

vb 专栏收录该内容

15 篇文章 1 订阅

订阅专栏


Sub エ栋17()
'
' エ栋17 エ栋
'

'
Application.DisplayAlerts = False
    Dim i As Integer

i = Range("e65535").End(xlUp).Row

Range("a1") = i
    Range("A1:E" & i).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets(2).Select
    Application.CutCopyMode = False
    Sheets(2).Move
    ActiveWorkbook.SaveAs Filename:="D:\code\03_liaohao\茂170.xls", FileFormat _
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWindow.Close
    
Application.DisplayAlerts = True
End Sub