我正在尝试遍历将自动筛选的范围从一个工作簿复制并粘贴到另一个工作簿的代码。我

Question

我有一个循环，它在工作簿a中取一个动态范围，并将其粘贴到工作簿B的单元格D4中。然后它再次循环并在工作簿C单元格D4中粘贴另一个动态范围。但是这两个范围可能大小不同。
我得到一个“范围类的pastespecial方法失败”

Sub CopyPaste()
  Dim AX As Workbook
  Dim WB As Workbook
  Dim rng As Range
  Dim autofiltrng As Range
  Dim xlApp As Excel.Application

  Set xlApp = CreateObject("Excel.Application")
  Set AX = Workbooks.Open("C:\Desktop\AXFile.xlsx")
  Set WB = Workbooks.Open("C:\Desktop\ClientA.xlsx")

  'filtering AX file to show 1 specific client
  With Axys
    AX.Sheets(1).Range("A2").AutoFilter Field:=4, Criteria1:="ClientA"
  End With

  With ActiveSheet.AutoFilter.Range
    On Error Resume Next                        
  Set autofiltrng = .Offset(1, 0).Resize(.Rows.Count - 1,_ 
    1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
  End With

  Set rng = AX.Sheets(1).AutoFilter.Range
  'copy/paste data for specific client in their own XLS
  rng.Offset(1, 5).Resize(rng.Rows.Count - 5).Copy
  WB.Sheets(1).Range("a14").PasteSpecial xlPasteValues
  Application.CutCopyMode = False

WB.Save
WB.Close
AX.Close

End Sub

我从上面的代码中去掉了循环，但是每次我通过50+客户端循环创建50+EXCEL文件时，我都会在过程中的某个随机点得到一个特殊的错误。从来不是同一个地方。

Answer 1

建议您显式地捕获您感兴趣的信息，而不是使用筛选器和复制/粘贴。然后将该信息直接加载到目标中。

不需要创建一个从未使用过的xlApp，也不需要处理它（设置xlApp=nothing）。