Question

我正在从工作表ws复制数据，并且我只是尝试将值粘贴回原始工作表，从而用纯文本覆盖原始数据。当我关闭工作簿时，我收到一条excel消息告诉我“剪贴板上有大量信息。你想将这些信息传递到另一个程序吗？”我永远不想这样做。我不希望此消息出现或假设答案为“否”。

Function FindPresenters(MyDate As Date, MyWS As String) As String
    'MyDate is in format of 10/3/2016
    'MyWS is the target worksheet to find MyDate
    Dim GCell As Range
    Dim xlApp As Object
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim MyLoop As Integer
    Dim Found As Boolean

    On Error GoTo ErrorHandler

    Set xlApp = CreateObject("Excel.application") 'New Excel.Application
    Application.ScreenUpdating = True
    xlApp.Visible = True

    Set WB = xlApp.Workbooks.Open ("Sched(Others).xlsx")
    Set WS = WB.Worksheets("Oct 2016 Training Schedule")
    With WS '.UsedRange
        '.Cells.Select
        .UsedRange.Select
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, _
         Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False 'This should suppress msg, but doesn't
        .Range("B2").Select
    End With
    WS.Activate
    Set GCell = WS.Cells.Find(MyDate)

    Found = False
    For MyLoop = 1 To MaxDayItems 'Find the entrees for the month
        Debug.Print GCell.Offset(MyLoop, 0).Text
        If Not Found And InStr(1, GCell.Offset(MyLoop, 0).Text, "C.O.") > 0 Then         
           'Found data
            Found = True
            FindPresenters = GCell.Offset(MyLoop, 0).Text
            MyLoop = MaxDayItems + 1 'Terminate searching
        End If
    Next MyLoop

Done:
    Application.DisplayAlerts = False 'Tried this to suppress the message
    WB.Close True  'This is where the Clipboard error appears
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Set WS = Nothing
    Set WB = Nothing
    xlApp.Quit
    Set xlApp = Nothing
Exit Function

'Error Handling section.
ErrorHandler:
    ...
    GoTo Done

End Function

Answer 1

由于您要复制的单元格属于xlApp（Excel.Application的单独实例），因此您需要使xlApp.CutCopyMode等于false。

xlApp.CutCopyMode = False

我同意共产国际的评论＆＃34;你只是粘贴价值观 - 只需直接写下来＆＃34;

您似乎可以使用其值替换工作表上的所有公式。这可以通过以下方式实现：

WS.UsedRange.Value = WS.UsedRange.Value

如何抑制剪贴板消息上的excel大信息

1 个答案: