Office中国论坛/Access中国论坛

标题: 清空剪贴板怎样写 [打印本页]

作者: zyz218 时间: 2006-5-29 21:58
标题: 清空剪贴板怎样写
如题!

作者: huanghai 时间: 2006-5-29 22:25
最简单的办法COPY一个空值,哈哈.

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

作者: zyz218 时间: 2006-5-29 23:12
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 时间: 2006-5-30 03:09
試試這個

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

作者: zyz218 时间: 2006-5-30 18:50
你说的完全正确，多谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)