从封闭的工作簿中复制特定工作表。值但不是公式

Question

我正在尝试制作一种工具，以使我的工作更快。 我想做的基本上是。 将客户Excel工作簿带和将其与我们的工作簿进行比较。

客户工作簿中充满了配方和vlookups等。 我想将其复制到该工作簿中的新表格中，而只能从某些列中获取价值而不是公式。 （列M; n; o; p）

Ive设法进行了副本和粘贴，但不能仅能使糊状值工作。 我希望该公式可以使比较宏的工作更轻松。

这是我到目前为止的一切，有人可以提供帮助吗？

Sub getData()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse to Danfoss Open Orders.", FileFilter:="Excel Files(*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(8).Copy After:=Sheets(Sheets.Count)
OpenBook.Close False
End If
Application.ScreenUpdating = True

With Worksheets(2).Columns("O:O").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End With

End Sub