小编Azi*_*ziz的帖子

当我查看"Temp"表时,此脚本正常工作.但当我在另一张纸上时,复制命令失败..它给出了"应用程序定义的或对象定义的错误"

Sheets("Temp").Range(Cells(1), Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial

我可以使用这个脚本,但后来我有粘贴它的问题

Sheets("Temp").Columns(1).Copy
Sheets("Overview").Range("C40").PasteSpecial

• 我不想激活"Temp"表来获得这个

我还可以做些什么

在Excel VBA中粘贴之前是否可以检查剪贴板的内容

我今天有这个：

Sheets.Add After:=Sheets(Sheets.Count)   ' Create new sheet
ActiveSheet.Paste                        ' Paste from Clipboard
IsMultiLevel = (InStr(Range("A1"), "Multi-Level") > 0) ' Determine type of report
If Not IsMultiLevel Then
    MsgBox ("ERROR in Clipboard Data!!")
    End
Else
    ActiveSheet.Delete
End If

我希望在添加新工作表之前检查数据，然后我不需要删除它..我想要这样的东西

IsMultiLevel = (InStr([CLIPBOARD], "Multi-Level") > 0) ' Determine type of report
If Not IsMultiLevel Then
    MsgBox ("ERROR in Clipboard Data!!")
    End
End If
Sheets.Add After:=Sheets(Sheets.Count)   ' Create new sheet
ActiveSheet.Paste                        ' Paste from Clipboard