备份到新工作簿

丰收互联

如何将本表中每日数据B-P列的内容(A列和F列除外)点击备份到<备份资料表>工作簿中?每次资料点击备份时都自动备份,不需要其他操作.每次不覆盖原来的数据，叠加在后面。哪位好心人帮助实现一下，感谢！

3190496160

Sub 备份()
With Sheets("价格")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 3 Then MsgBox "数据表为空": Exit Sub
    ar = .Range("b3:e" & r)
    br = .Range("g3:p" & r)
End With
f = Dir(ThisWorkbook.Path & "\备份资料表.xls*")
If f = "" Then MsgBox "找不到备份资料表": Exit Sub
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
With wb.Worksheets(1)
    rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(rs, 1).Resize(UBound(ar), UBound(ar, 2)) = ar
    .Cells(rs, 5).Resize(UBound(br), UBound(br, 2)) = br
End With
wb.Close True
MsgBox "ok!"
End Sub

3190496160

备份资料.rar (30.32 KB, 下载次数: 12)

2021-7-5 08:14 上传

点击文件名下载附件

丰收互联

3190496160 发表于 2021-7-5 08:13
Sub 备份()
With Sheets("价格")
    r = .Cells(Rows.Count, 2).End(xlUp).Row

非常感谢大侠提供的代码，我试了一下，我新增加数据后，点击备份，在备份数据表里面没有看到备份的资料，是怎么回事呢？ 谢谢您！

3190496160

丰收互联 发表于 2021-7-6 20:01
非常感谢大侠提供的代码，我试了一下，我新增加数据后，点击备份，在备份数据表里面没有看到备份的资料， ...

经测试代码是没有问题的

丰收互联

3190496160 发表于 2021-7-8 07:00
经测试代码是没有问题的

你好！代码是没有问题，但是在备份数据表里面没有看到添加更新BI-0009-024的数据，不知道是不是我的版本有问题。还请指正一下好吗？谢谢您！

3190496160

丰收互联 发表于 2021-7-8 20:45
你好！代码是没有问题，但是在备份数据表里面没有看到添加更新BI-0009-024的数据，不知道是不是我的 ...

把你的每日数据和备份数据工作表一致往下拉看看，你就明白是什么原因了

丰收互联

3190496160 发表于 2021-7-9 07:51
把你的每日数据和备份数据工作表一致往下拉看看，你就明白是什么原因了

是的，谢谢您的代码。但是如果是同样的数据时就提示数据重复，那样就不备份到备份资料里面去。要怎么弄呢？不知道怎么感谢您。

3190496160

丰收互联 发表于 2021-7-9 21:52
是的，谢谢您的代码。但是如果是同样的数据时就提示数据重复，那样就不备份到备份资料里面去。要怎么弄呢 ...

判断是否是同样的数据的标准是什么呢？？？？

丰收互联

3190496160 发表于 2021-7-10 11:22
判断是否是同样的数据的标准是什么呢？？？？

谢谢您，我也正好在线上，判断的标准是料号与品名在之前有记录过的时候就提示有相同信息。