vba - 将一个工作簿导出到另一个工作簿的数据

Question

我想将数据从一个工作簿导出到另一个............要从源工作簿导出的数据（源工作簿的名称应该写在单元格“M1”中）和工作表“SALARY”从范围列E4 到 S TO 目标工作簿（目标工作簿的名称应写在“N11”中）和工作表“SALARY DETAIL”范围列 A2 到 O。如果列“US”的值大于零，我想导出数据。

Sub Salary() 
Name = ThisWorkbook.Worksheets("24Q INPUT DATA").Range("M1").Value 
Set src = Workbooks(Name).Sheets(6) 
x = Workbooks(Name).Sheets(6).Range("N11").Value 

Set des = Workbooks(x).Sheets(4) 
' desitination file 
  L2 = src.Cells(Rows.Count, 1).End(xlUp).Row 

If WorksheetFunction.Sum(src.Columns("US")) > 0 Then 
   src.Range("UJ12:ZB" & L2).Copy 
   des.Range("A3").PasteSpecial xlPasteValues 
End If 
Set src = Nothing 
Set des = Nothing 

End Sub

现在，数据正在导出，但所有数据都在导出，即使“美国”列为零。

标签： vba