Excel 复制后缺少vba值

我想将所有信息从一个有计算的工作簿复制到另一个没有计算的工作簿。问题出现了，然后我保存新文件，关闭并再次打开。遗漏了一些信息。这正是作为原始文件中不同工作表的引用引入的信息。 我可以向代码中添加什么来避免此问题？是否可能只是复制价值观，而是复制一切

Sub Doc()
  Dim ws As Worksheet
  Application.ScreenUpdating = False 
  Sheets(Array("Introduction_Page", "Observation_Overview", "ICS Analysis", "ICS Table")).Copy

   For Each ws In ActiveWorkbook.Worksheets
     ws.Cells.Copy
     ws.Cells.Hyperlinks.Delete
     Application.CutCopyMode = False
     Cells(1, 1).Select
     ws.Activate
    Next ws

  Cells(1, 1).Select                       
  Application.ScreenUpdating = True
End Sub

---

我不确定我是否理解你的问题。你能解释得更清楚些吗？我看到你复制了你的工作簿

ws.cells.copy

，但我看不到你把它们粘贴到哪里了？我不认为这段代码真的能做很多事情。我在VBA中有一个工具，可以执行所有的计算。我只想将几张表格作为一个单独的Excel文件（“简介页面”、“观察概述”、“ICS分析”、“ICS表格”）。在其中一张工作表中，即“简介页面”，有一个指向另一张工作表的链接（值puts作为对另一张工作表的引用），该链接不会复制到新工作簿中。因此，在保存、关闭并再次打开新文件后，该值消失。如何解决这个问题？是的，我只需要将这些工作表复制到单独的文件中。