另一个Excel中的复制问题：
如何才能将工作表从WorkbookA.xlsx复制到WorkbookB.xlsx中，而不至于在复制后的工作表仍然引用WorkbookA.xlsx，例如：当复制过来时，公式=B!23变成了=[WorkbookA.xlsx]!B!23。
我想保留 “相对 "单元格引用，而不是 "绝对 "单元格引用(如果在Excel世界中还没有这个术语，我将发明这个术语)。Excel将 "值 "视为计算出的值，而不是单元格中的实际公式。如果我选择了粘贴公式，它仍然给出了绝对引用。我们需要不断地对这个xlsx进行 "升级"，所以一个人可能会创建一个副本，并在那里对一个单张进行修改。同时，另一个人也可能会对另一张表进行修改。鉴于这些表没有依赖其他表的单元格，就像一个总结报告一样，我们最好是将这些表复制并合并到原来的xlsx中。但是 "绝对 "引用给我们带来了很多麻烦。
试着用Ctrl + ~来显示公式。然后用Ctrl + A选择所有的内容，复制，然后粘贴到记事本中。
最后，将其从记事本中复制出来，粘贴到其他工作簿中。
或者只需执行以下操作：
转换为：
=database_feed!A1
，当你在不同工作表之间复制时，就不会再修改参考资料。现在，当复制到新的电子表格时，你只有一个单元格需要更新。
这对我来说很有效。
如果因为你在VBA程序中拉入表，所以需要自动完成这个操作。用这个方法：
Public Sub ChangeSource()
'
' ChangeSource Macro
' Edit the links to point to the current workbook.
'
Dim allLinks As Variant
allLinks = ThisWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(allLinks) Then
Dim eachLink As Long
For eachLink = 1 To UBound(allLinks)
If InStr(3, "String found in source book name.", allLinks(eachLink)) Then
ThisWorkbook.ChangeLink Name:=allLinks(eachLink), NewName:=ThisWorkbook.FullName, Type:=xlExcelLinks
End If
Next eachLink
End If
End Sub
只要将 “String found in source book name. "改为与你要替换的旧链接相匹配。如果你想替换所有的链接，你可以把这个if块去掉。
另一个 “技巧”–在复制源工作表之前，将所有的公式修饰符=替换成其他字符集（例如###=）。
两个工作簿都必须打开才有效。你运行这个宏，它会将workbookA!sheet1复制到workbookB!sheet1，然后替换所有的workbookA的引用。这很粗糙，但很有效*。很明显，你可以修改代码以匹配你的WorkbookA.xlsx名称，但要确保它们有正确的扩展名，并保持引号。
_Oh，制作一个宏，如果你不知道的话，按alt + F11调出Visual Basic编辑器。然后在WBA insert - module上点击右键，将下面的代码复制粘贴到模块中。然后按F5键运行宏。如果宏无法运行，可能是因为宏没有被启用，所以请继续保存并重新打开，当提示启用宏时，启用宏。