'将文本复制到剪贴板
Sub copyToClipbox(strText As String, Optional noMsg As Boolean)
On Error Resume Next
'1C3B4210-F441-11CE-B9EA-00AA006B1A69 是标识符,通俗点说就是COM对象的身份证号码。
'明确的称呼是 GUID(Globally Unique Identifier的简称,中文翻译为“全局唯一标示符”),在Windows系统中也称之为Class ID,缩写为CLSID。
'至于这串标识符所代表的某COM对象长啥样,你可以打开注册表编辑器(regedit),以这串字符串为关键字,就会得到结果
With CreateObject("new:{
1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText strText
.PutInClipboard
End With
On Error GoTo 0
If noMsg = False Then
MsgBox "语句已经复制到剪贴板", vbInformation, "友情提示"
End If
End Sub
'循环当前工作簿的所有工作表,将其他sheet数据复制到同一sheet
Sub cycleExcel()
Application.ScreenUpdating = False
Application.EnableEvents = False
ThisWorkbook.Activate
Dim STRNAME As String
Dim I As Integer, j As Integer
j = 3
I = 0
STRNAME = ""
On Error Resume Next
vba常用小程序
最新推荐文章于 2024-06-22 08:30:38 发布
本文介绍了VBA在日常办公中的几种常见应用,包括自动化数据处理、创建宏命令以及简化Excel工作流程等,帮助提高工作效率。
摘要由CSDN通过智能技术生成