[已解决]VBA引用动态工作表的问题

dosship

思路：
把　发货情况表　内数据复制到
　　　以　每批验收单　M11　的值为名称的工作表上
可是，运行总不成功，请高手帮忙一下。谢谢。


Sub COPY()
   
   If MsgBox("批量打印完毕！是否另保存本批数据？", vbYesNo, "系统提示") <> vbYes Then Exit Sub
   
    cc = Worksheets("每批验收单").Range("M11").Value
  
    With ThisWorkbook.Worksheets(cc)
    nBook.Worksheets("发货情况表").Range("G5:P24").COPY
    .Range("G5").PasteSpecial Paste:=xlPasteValues
   End With
           
End Sub

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-3-13 22:45

两个区域复制内容可以直接用等号
book1.sheets().range()=book2.sheets().range().value

跳转到最佳答案楼层

dosship

这么简单？{:011:}
太感谢您了。谢谢谢谢{:191:}

兰色幻想

两个区域复制内容可以直接用等号
book1.sheets().range()=book2.sheets().range().value

dosship

哎，高手帮帮忙哦，小弟水平不够呀。