尝试将Range从工作表复制到新工作簿中。 Excel VBA

Question

这是我所拥有的：

Sub exportDataAM()
Dim wbS As Workbook, wbT As Workbook
Dim wsS As Worksheet, wsT As Worksheet

Set wbS = ThisWorkbook 'workbook that holds this code
Set wsS = wbS.Worksheets("Recap").Range("A1:R5")

wsS.Copy
Set wbT = ActiveWorkbook 'assign reference asap

Set wsT = wbT.Worksheets("Recap").Range("A1:R5")
wsT.Name = "Recap" 'rename sheet

wbT.SaveAs wbS.Path & "\" & "Recap AM" & Format(Now, " dd-mm-yyyy ") 'save new workbook
End Sub

我遇到了类型不匹配的问题，对于第6行的.Range来说，这对我来说没有任何意义。我知道还有其他方法可以做到这一点，但是如果没有.Range，这还是可以的，我想具体找出原因也许。

任何帮助，将不胜感激。

Answer 1

您已将变量wsS和wsT为工作表。 但是，您尝试将范围添加到变量中。 这将导致不匹配。

将变量声明为Range ，或仅将工作表添加到变量中。

Answer 2

以下应该工作

Private Sub Copy()
Set newBook = Workbooks.Add
With newBook
    .Title = "Recap Am"
    .Subject = "RFQ"
    .SaveAs Filename:="Recap.xls"
  Dim rng As Excel.Range

Set rng = ThisWorkbook.Worksheets("SheetName").Cells.SpecialCells (xlCellTypeVisible)

rng.Copy newBook.Worksheets("Sheet1").Range("A1")

End With
End Sub