在其中有公式的两个工作簿之间复制工作表

时间:2018-07-30 13:23:17

标签: excel vb.net

我正在尝试将工作表复制到两个工作簿中。这是我的代码。 xlWorkbook包含数据,我想从xlDesTemplatebook中添加包含我所有公式的工作表。代码可以工作并复制所有工作表,但是具有公式的单元格显示为#REF&如果我选择具有公式的单元格然后按Enter即可。但是我的问题是我在程序中使用xlworkbooklater,因此我需要计算的数据而不是那些单元格中的#REF。我怎样才能解决这个问题 ?

 xlWorkBook = xlApp.Workbooks.Open(TextBox1.Text)
 XlDesTemplateBook=xlApp.Workbooks.Open("C:\Users\user\Desktop\Formulas.xlsx")
 Dim oSheetsList() As Object = {"IB6", "IB7", "IOB6", "IOB7", "LI", "LO", "VB"}
 XlDesTemplateBook.Sheets(oSheetsList).Copy(After:=xlWorkBook.Worksheets("PLC EXPORT-VB"))

显示我的问题的屏幕截图

enter image description here

1 个答案:

答案 0 :(得分:1)

我通过以下操作解决了这个问题:

1)复制您要发送的工作表

2)选择全部或仅包含公式的单元格

3)用xyxyxy或从未出现过的东西进行编辑/替换并替换=

4)将工作表移到另一个工作簿上

5)全选并用=

替换xyxyxy

对我来说总是很好...