excel - VBA Excel 粘贴有效，PasteSpecial 无效

Question

我正在尝试通过复制并粘贴到另一个工作表来从多表电子表格中导出范围(作为 csv)。这非常适用于 Paste 函数，但不适用于 PasteSpecial 函数。

这可以:

Sheets("Company").Select
  Range("Company_Data").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:= _
    "D:\Documents and Settings\Charles\Development\G4H Dev\Book3.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

但这会返回错误 1004

`Sheets("Output").Select
  Range("Output_Data").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.PasteSpecial xlPasteValues
    ActiveWorkbook.SaveAs Filename:= _
    "D:\Documents and Settings\Charles\Development\G4H Dev\Book2.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

我尝试了多种选择，包括

format:=xlPasteValues

但在我自己的引用书的 MS 文档中，除了最粗略(且无益)的处理之外，我找不到任何东西。

Answer 1

PasteSpecial 的版本使用 xlPasteValues适用于 Range对象，而不是工作表版本:

ActiveCell.PasteSpecial xlPasteValues