VBA复制特定区域单元格到新工作簿，并保存命名

童歌

VBA小白，曾经写过一个复制sheet到新工作簿并按路径保存命名的功能，现在想根据这个改写，将sheet中A215:I240单元格（值和格式，不带有公式）复制到新的工作簿，并按合作商日报+日期的方式命名，现在报错，求大佬帮忙指教改写，感谢。


Sub Macro1()
'
' Macro1 Macro
'
    Application.DisplayAlerts = False
    Dim a As String
    a = Worksheets("当月").Range("B2")
   
    Set OrigWB = ThisWorkbook
    Set DestWB = Workbooks.Add
    Set ws = OrigWB.Worksheets("日").Range("A215:I240")
    ws.Copy after:=DestWB.Sheets(1).Range("A1:I26")

    mypath = ThisWorkbook.Path & "\"
    myName = Dir(mypath & "*.xlsx")
    DestWB.SaveAs ThisWorkbook.Path & "\" & "合作商厅日报" & Format(a, "mmdd")

    Application.DisplayAlerts = True
End Sub

pirate101

Sub Macro1()

    Application.DisplayAlerts = False
    Dim a As String
    a = Worksheets("当月").Range("B2")
   
    Set OrigWB = ThisWorkbook
    Set DestWB = Workbooks.Add
    Set ws = OrigWB.Worksheets("日").Range("A215:I240")
    ws.Copy

    DestWB.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    DestWB.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
    Application.CutCopyMode = False

    mypath = ThisWorkbook.Path & "\"
    myName = Dir(mypath & "*.xlsx")
    DestWB.SaveAs ThisWorkbook.Path & "\" & "合作商厅日报" & Format(a, "mmdd")
    DestWB.Close

    Application.DisplayAlerts = True
End Sub

3190496160

ws.Copy after:=DestWB.Sheets(1).Range("A1:I26")
改为
ws.Copy DestWB.Sheets(1).Range("A1")

ykcbf1100

请参考。。。

童歌

pirate101 发表于 2023-3-15 12:06
Sub Macro1()

    Application.DisplayAlerts = False

感谢，非常完美