清空剪贴板怎样写

zyz218

如题!

huanghai

最简单的办法COPY一个空值,哈哈.

当然正规的办法使用API来实现,网上找找相关文章

zyz218

Private Sub CopyData()
'打开相关工作表
Set xl = CreateObject("Excel.Sheet")
xl.Application.Workbooks.Open "人员状况1.xls"
xl.Application.Workbooks.Open "人员状况2.xls"
xl.Application.Workbooks.Open "人力需求.xls"
'清空历史数据
    Windows("人员状况.xls").Activate
    Worksheets("sheet2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
'==================================================
    Windows("人员状况.xls").Activate
    Worksheets("sheet3").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
'==================================================
    Windows("人员状况.xls").Activate
    Worksheets("sheet4").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
'复制新数据
    Windows("人员状况2.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("人员状况.xls").Activate
    Worksheets("sheet2").Select
    Cells.Select
    ActiveSheet.Paste
'==================================================
    Windows("人员状况1.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("人员状况.xls").Activate
    Worksheets("sheet3").Select
    Cells.Select
    ActiveSheet.Paste
'==================================================
    Windows("人力需求.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("人员状况.xls").Activate
    Worksheets("sheet4").Select
    Cells.Select
    ActiveSheet.Paste
'关闭相关工作表
Set clipboard = Nothing
Workbooks("人员状况1.XLS").Close SaveChanges:=False
Workbooks("人员状况2.XLS").Close SaveChanges:=False
Workbooks("人力需求.XLS").Close SaveChanges:=False
End Sub
以上为将三个EXCEL中的工作表COPY到一个工作簿中,COPY完以后需关闭那三个文件,但因剪贴板中有东西,所以总出现一个对话框,问需不需要保留剪贴板的东东以作他用,很烦,咋办?

zsj1101

試試這個

取消復制/剪貼模式
   Application.CutCopyMode=False/True

zyz218

你说的完全正确，多谢！