错误:范围类的Pastespecial方法失败

Question

我在这个网站上看了几个类似的问题,但看起来他们都没有做到这一点.我正在尝试创建一个新的工作簿,复制其活动工作表的内容并将其粘贴到这个新创建的工作簿.以下是我使用的代码:

Sub new_workbook()

    Dim ExtBk As Workbook
    Dim ExtFile As String

    Columns("A:N").Copy

    Workbooks.Add.SaveAs Filename:="output.xls"
    ExtFile = ThisWorkbook.Path & "\output.xls"

    Set ExtBk = Workbooks(Dir(ExtFile))
    ExtBk.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

    Application.DisplayAlerts = False
    ExtBk.Save
    Application.DisplayAlerts = True

End Sub

我PasteSpecial在该主题上指定错误的行收到错误.我有点困惑,因为如果我将它指向源工作簿,这是有效的.

也许我需要使用Windows(output.xls)？

Answer 1

Copy如果您只关心保存值,请不要使用方法.

Sub new_workbook()
Dim wbMe As Workbook: Set wbMe = ThisWorkbook
Dim ws As Worksheet: Set ws = wbMe.ActiveSheet
Dim ExtBk As Workbook

Set ExtBk = Workbooks.Add
ExtBk.SaveAs Filename:=wbMe.Path & "\output.xls"

ExtBk.Worksheets("Sheet1").Range("A:N").Value = ws.Range("A:N").Value

Application.DisplayAlerts = False
ExtBk.Save
Application.DisplayAlerts = True

End Sub

注意:如果ThisWorkbook未保存,这将失败(以前的代码也会失败).