无法解决如何从封闭的工作簿中获取数据然后仅粘贴值

Question

我知道我的问题似乎很简单，但确实找不到方法。 FSYS文件很大，带有宏，当我尝试使用简单的测试文件而不是FSYS时，我可以打开文件并获取数据，而不仅是值。

这是我最好的数据，而无需打开FSYS文件。

请帮助！

我的代码：

Private Sub CommandButton1_Click()

Dim src As Workbook
Set src = Workbooks.Open("C:\excel\FSYSv33.xlsx", True, True)


'Workbooks.Open Filename:="C:\excel\FSYSv33.xlsx"

a = Workbooks("FSYSv33").Worksheets("Darbinis").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a



If Workbooks("FSYSv33").Worksheets("Darbinis").Cells(i, 4).Value = Workbooks("paimti").Worksheets("lapas1").Range("M1") Then
Workbooks("FSYSv33").Worksheets("Darbinis").Rows(i).Copy
Workbooks("paimti").Worksheets("lapas2").Activate
b = Worksheets("lapas2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("lapas2").Cells(b + 1, 1).Select
ActiveSheet.Paste
Workbooks("paimti").Worksheets("lapas1").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("lapas1").Cells(1, 1).Select
End Sub