[已解决]复制数据至另一张工作簿

123zjfh123

各位老师：
       我有一个复制数据至另一张工作簿的代码写的太复杂，希望老师帮我指点指点。详见附件中名为“甲班包装”的工作簿。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-11-20 18:50

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("B2").Value <> "" Then
        With Workbooks.Open("D:\标签数据\标签数据.xlsm")
            ThisWorkbook.Sheets(1).Range("A2:O2").Copy .Sheets("标签数据").Range("A65536").End(3)(2)
            .Close True
        End With
    End If
End Sub

跳转到最佳答案楼层

zjdh

难道只需要保存一行数据吗？

123zjfh123

是的

zjdh

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("B2").Value <> "" Then
        With Workbooks.Open("D:\标签数据\标签数据.xlsm")
            ThisWorkbook.Sheets(1).Range("A2:O2").Copy .Sheets("标签数据").Range("A65536").End(3)(2)
            .Close True
        End With
    End If
End Sub