VBA将筛选的数据从一个工作簿复制粘贴到另一个工作簿

Sub CopyDataBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿的文件路径")
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标工作簿的文件路径")
    
    ' 指定源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    ' 复制源工作表的筛选数据到目标工作表
    sourceWorksheet.Range("筛选的数据范围").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=targetWorksheet.Range("粘贴的目标位置")
    
    ' 关闭工作簿并保存更改
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub