vb.net - 复制 Excel 公式而不引用 vb.net 中的先前工作表

Question

我目前将整个工作表从文件 A 复制到文件 B。某些工作表只需复制值而无需复制公式。有 1 个特定的工作表，我需要将格式与公式一起复制，但我不希望公式引用原始文件。我希望它引用新文件中的工作表。我如何复制工作表/公式而不引用原始文件。

下面我有代码复制工作表，然后将公式替换为一次性工作表的值。

  xlWorksheetSource = xlWorkbookSource.Sheets(sheet.Name)
                 xlWorksheetSource.Copy(After:=xlWorkbookDestination.Worksheets(xlWorkbookDestination.Worksheets.Count))

                xlWorkDestSource = xlWorkbookDestination.Worksheets(xlWorkbookDestination.Worksheets.Count)
                ws = xlWorkDestSource

With ws.UsedRange
                   .Copy()
                    .PasteSpecial(Paste:=XlPasteType.xlPasteValues, _
                    Operation:=XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
                    xlApp.CutCopyMode = False
 End With

尝试解决方案粘贴公式时出错

  .Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Me.Range("BE4")) Is Nothing Then
BE4 = Target.Value

If BE4 = "X" Then
    Worksheets("Invoice 2").Visible = xlSheetVisible
    Exit Sub
End If

If BE4 = "" Then
    Worksheets("Invoice 2").Visible = xlSheetVeryHidden
    Exit Sub
End If

结束如果

Answer 1

将PasteSpecial的第一个参数值更改为xlPasteFormulas

.PasteSpecial(Paste:=XlPasteType.xlPasteFormulas, _     
Operation:=XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
                xlApp.CutCopyMode = False