包含代码的工作表跨工作簿复制

Bazinga666

1. 操作目的：从别的工作簿完整复制目标工作表，能够执行目标工作表项下的代码。
2. 情况说明：操作A工作簿从B工作簿中复制b1工作表，复制的方式如下。在原来的B工作簿中，b1工作表下写了些代码。比如双击触发等等。在复制完成后，A工作簿下的b1工作表保留了这些代码，但无法运行（比如双击触发）。想请问各位大神，这个怎么解决？或者有什么其他方法可以推荐？


    Set sourceWorkbook = Workbooks.Open(dbFile)     '<---B工作簿
    Set sourceWorksheet = sourceWorkbook.Sheets(dbsht)    '<---b1工作表
    sourceWorksheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)  
    sourceWorkbook.Close SaveChanges:=False

3190496160

生成附件来看看呗