关闭工作簿 VBA 时保存剪贴板

Question

这似乎是一个简单的问题，但我似乎无法在 Google 上找到正确的答案。

我想要做的是打开一个工作簿，复制一个部分，然后在保存我刚刚复制的部分的同时关闭工作簿。

我知道禁用剪贴板提示的功能：

Application.CutCopyMode = False
ActiveWindow.Close

但这不会保存剪贴板。到目前为止，我已经编写了以下代码：

Sub Input()

Application.ScreenUpdating = False

Dim wb As Workbook
Dim wbPad As String

On Error GoTo ErrHandler

wbPad = ThisWorkbook.Sheets("Voorblad").Range("C10").Value
    Set wb = Workbooks.Open(wbPad)

    Cells.Select
    Selection.Copy
    Windows("Masterfile.xlsm").Activate
    Worksheets("INPUT").Activate
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Worksheets("Voorblad").Activate

Exit Sub

ErrHandler:
    MsgBox ("Bestand niet gevonden. Controleer de maand en de naam van het bestand dat je wilt openen")

End Sub

如果这是不可能的，我想.Activate 我使用单元格引用打开的工作簿并关闭它。

Answer 1

也许您可以跳过整个.select 和.activate 命令并使用.copy 函数的可选Destination 参数。

(https://docs.microsoft.com/de-de/office/vba/api/excel.range.copy)

Answer 2

由于您没有提供保存范围的方式，我在下面添加了多个基本示例。

OPT1 - 另存为.xlsx 或.csv

Dim cpyRng As Range, newWb As Workbook, sPath As String

Application.DisplayAlerts = False 'remove system alert prompts

Set cpyRng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10") 'Change sheet and range as needed

sPath = ThisWorkbook.Path & "\"

    Set newWb = Workbooks.Add

    With newWb
        cpyRng.Copy
        .Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
        .SaveAs Filename:=sPath & "Test" & "_" & Format(Date, "yyyymmdd") & ".xlsx", FileFormat:=51 'change file name to suit

        'If you want to save as .csv use
        '.SaveAs Filename:=sPath & "Test" & "_" & Format(Date, "yyyymmdd") & ".csv", FileFormat:=6

        .Close
    End With

    'save your workbook and quit Excel
    ThisWorkbook.Save = False 'use "True" if you want to save changes
    Application.Quit

    Application.DisplayAlerts = True 'Turn system alert prompts back on(best practice)

OPT2 - 另存为 .pdf

Dim cpyRng As Range, sPath As String

Application.DisplayAlerts = False 'remove system alert prompts

Set cpyRng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10") 'Change sheet and range as needed

sPath = ThisWorkbook.Path & "\"

    'Change file name to suit
    cpyRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "Test" & "_" & Format(Date, "yyyymmdd") & _
    ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.DisplayAlerts = True 'Turn system alert prompts back on(best practice)

OPT3 - 另存为 Word 文档

Dim cpyRng As Range
Set cpyRng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10") 'Change sheet and range as needed

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

    cpyRng.Copy

    With objWord
        .Visible = True
        .Documents.Add
        .Selection.Paste
    End With

Application.CutCopyMode = False

Set objWord = Nothing