这个很简单,VSTO提供了一个Run方法,可以直接运行Marco,就和你在VBA的一个过程里调用另一个过程一样。




MsgBox "Hello world"
End Sub
题记:春节期间,情况特殊,希望大家尽可能待在家里,静下心,多学习有用的知识,多提高自己的水平和能力,这才是正道。适当节制自我的各种欲望,谁都逃不过时间的历练,谁都是命运的行者,谁都是在人生的道路上一步一趋,把生活与工作打理好,不负年华。
今日内容是和大家分享VBA编程中常用的 “积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。今日分享的是NO.203-NO.203,内容是:
NO. 203:在VBA代码中使用工作表函数与不使用工作表函数的时间比较
VBA过程代码203:在VBA代码中使用工作表函数与不使用工作表函数的时间比较
Sub mynz ()
Dim i
Dim t As Date
Dim t1 As String
Dim t2 As String
Range("B1:B4").ClearContents
Application.ScreenUpdating = False
t = Timer
For i = 1 To 60000
Sheets("86").Cells(1, 2) = Sheets("86").Cells(1, 2) + Sheets("86").Cells(i, 1)
Next
t1 = Timer - t
t = Timer
Sheets("86").Cells(2, 2) = Application.WorksheetFunction.Sum(Sheets("86").Range("A1:A60000"))
t2 = Timer - t
Application.ScreenUpdating = True
Sheets("86").Cells(3, 2) = Format(t1, "0.00000")
Sheets("86").Cells(4, 2) = Format(t2, "0.00000")
MsgBox "第一次运行时间:" & Format(t1, "0.00000") & "秒" _
& Chr(13) & "第二次运行时间:" & Format(t2, "0.00000") & "秒"
End Sub
代码解析:Mynz过程分别使用VBA代码和调用工作表Sum函数对单元格区域进行求和计算,最后使用消息显示运行时间。运行Mynz过程,消息框显示两种方法的运行时间,可以看出调用工作表函数进行计算的运行时间要远远小于使用累加方法运行的时间。
VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA学习教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是一块“积木”,可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。
第一套:“VBA代码解决方案”是PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;
第二套:“VBA数据库解决方案”是PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
第三套:“VBA数组与字典解决方案”是PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。
第四套:“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,精进VBA”,越早参与,回馈越多。现在录制到第三册的124讲,以上各教程的代码都是经过实测,可以拿来即用。
春节期间,情况特殊,大家尽可能待在家里,多学习有用的知识,多提高自己。
大家好,本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九,但之九的内容是错误的处理,为了大家能更好的掌握之九二师兄的成才内容,我们临时加入一讲专门讲解VBA中错误处理,这一讲中我重点讲一下VBA代码中的错误处理语句。对于VBA中的错误处理语句,最主要的是4个语句。
① On Error GoTo line
② On Error Resume Next
③ Resume line(NEXT)
④ On Error GoTo 0
一 一般的VBA错误处理语句
为了说明上面的几个语句,我们简单的写几行代码,如下:
Sub mynz_37()
On Error GoTo ErrHandler
k = 1 / 0
ExitProcedure:
On Error Resume Next
k = 1 / 0 + 1
MsgBox k
Exit Sub
ErrHandler:
MsgBox "错误代码: " & Err.Number & vbCrLf & _
"错误描述: " & Err.Description & vbCrLf & _
"错误来源: " & Err.Source, vbCritical
Resume ExitProcedure
End Sub
代码截图:
代码解析:
1 上述mynz过程在开始利用了On Error GoTo ErrHandler语句,代表在执行代码中发现了运行错误,就转跳到“ErrHandler”行后的语句,
2 “ErrHandler”是代表行的位置。
3 ErrHandler后的代码首先利用了MsgBox向你说明错误编号,错误描述,错误来源;
4 接下来执行Resume ExitProcedure,这句代码的意思翻译过来就是说:好了,错误处理已经结束,可以继续执行从ExitProcedure行开始执行代码了。
5 随后代码转跳到ExitProcedure行接着往下执行:
6 这个地方仍有一行错误处理语句:On Error Resume Next 它的含义是如果发现错误,直接忽略,往下执行(Next)。直到Exit Sub。
二 关于错误处理代码,除了刚刚介绍的那些意外,还有一个也很重要的代码
On Error GoTo 0
这句代码的意义是:使用这条语句后,后面的程序一旦有错误发生就会提示错误,并结束脚本执行,禁止当前过程中任何已启动的错误处理程序。我们来看下面的小测试代码:
Sub mynz_37_1()
x = 1
y = 0
On Error GoTo ErrHandler
MsgBox x / y
On Error GoTo 0
MsgBox x / y
MsgBox " 继续执行错误代码行的下一行代码 "
Exit Sub
ErrHandler:
MsgBox "除数不能为 0"
Resume Next
End Sub
代码截图:
代码解析:在上面的代码中,由于及时使用了 On Error Goto 0 语句,因此,在第 2 次错误发生时(即第 2 个 x/y ),系统将显示内置错误消息,而不是运行ErrHandler标签处的代码。我们看代码的运行结果:
总结:
1 在上述过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ,其中的“ ErrHandler ”为自定义的错误标签名称。
2 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
3 在过程的末尾(正常程序的末尾)添加代码行 Exit Sub ,这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit Sub 的下一行添加一个错误标签,该标签由名称和冒号组成,例如“ErrHandler: ”在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行,可以使用 Resume Next 语句。
4可以在过程的末尾添加多个错误处理程序,但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束,这样可以避免从当前错误程序之后继续执行其后的错误处理程序。
好了,有了上面的错误处理语句的基础,我们下一讲继续二师兄的成长系列之九,类代码中的错误处理方式。
今日内容回向:
1 一般的错误处理有几种语句?各是什么含义?
2 屏蔽掉错误处理语句是那一条语句?
在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。
“水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,有一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。
VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程。
第一套:VBA代码解决方案 是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;
第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习。
第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。
第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,可以对促进自己理论的提高。
学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递,大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。
最后将一阙词送给致力于VBA学习的朋友:
浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。
望星,疏移北斗,奈将往事雁同行。
阡陌人,昏灯明暗,忍顾长亭。
多少VBA人,暗夜中,悄声寻梦,盼却天明。
怎无凭!
分享成果,随喜正能量
你已选中了添加链接的内容蓝字关注,加微信NZ9668获资料信息
VBA解决方案 系列丛书作者
头条百家平台 VBA资深创作者
_______________________________
大家好,本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九,但之九的内容是错误的处理,为了大家能更好的掌握之九二师兄的成才内容,我们临时加入一讲专门讲解VBA中错误处理,这一讲中我重点讲一下VBA代码中的错误处理语句。对于VBA中的错误处理语句,最主要的是4个语句。① On Error GoTo line② On Error Resume Next③ Resume line(NEXT)④ On Error GoTo 0 一 一般的VBA错误处理语句 为了说明上面的几个语句,我们简单的写几行代码,如下: Sub mynz_37() On Error GoTo ErrHandler k = 1 / 0ExitProcedure: On Error Resume Next k = 1 / 0 + 1 MsgBox kExit SubErrHandler: MsgBox "错误代码: "& Err.Number & vbCrLf & _ "错误描述: "& Err.Description & vbCrLf & _ "错误来源: "& Err.Source, vbCritical Resume ExitProcedureEnd Sub代码截图:代码解析:1 上述mynz过程在开始利用了OnError GoTo ErrHandler语句,代表在执行代码中发现了运行错误,就转跳到“ErrHandler”行后的语句, 2 “ErrHandler”是代表行的位置。 3 ErrHandler后的代码首先利用了MsgBox向你说明错误编号,错误描述,错误来源;4 接下来执行ResumeExitProcedure,这句代码的意思翻译过来就是说:好了,错误处理已经结束,可以继续执行从ExitProcedure行开始执行代码了。 5 随后代码转跳到ExitProcedure行接着往下执行:6 这个地方仍有一行错误处理语句:On Error Resume Next 它的含义是如果发现错误,直接忽略,往下执行(Next)。直到Exit Sub。 二 关于错误处理代码,除了刚刚介绍的那些意外,还有一个也很重要的代码 On Error GoTo 0 这句代码的意义是:使用这条语句后,后面的程序一旦有错误发生就会提示错误,并结束脚本执行,禁止当前过程中任何已启动的错误处理程序。我们来看下面的小测试代码:Sub mynz_37_1() x = 1 y = 0 On Error GoTo ErrHandler MsgBox x / y On Error GoTo 0 MsgBox x / y MsgBox " 继续执行错误代码行的下一行代码 " Exit SubErrHandler: MsgBox "除数不能为 0" Resume NextEnd Sub代码截图:
代码解析:在上面的代码中,由于及时使用了 On Error Goto 0 语句,因此,在第 2 次错误发生时(即第 2 个 x/y ),系统将显示内置错误消息,而不是运行ErrHandler标签处的代码。我们看代码的运行结果:
总结: 1 在上述过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ,其中的“ ErrHandler ”为自定义的错误标签名称。2 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。3 在过程的末尾(正常程序的末尾)添加代码行Exit Sub ,这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit Sub 的下一行添加一个错误标签,该标签由名称和冒号组成,例如“ErrHandler: ”在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行,可以使用 Resume Next 语句。4可以在过程的末尾添加多个错误处理程序,但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束,这样可以避免从当前错误程序之后继续执行其后的错误处理程序。 好了,有了上面的错误处理语句的基础,我们下一讲继续二师兄的成长系列之九,类代码中的错误处理方式。今日内容回向:1 一般的错误处理有几种语句?各是什么含义?2 屏蔽掉错误处理语句是那一条语句?
在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。“水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,有一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程。第一套:VBA代码解决方案是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;第二套:VBA数据库解决方案数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习。第四套:VBA代码解决方案之视频是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。第五套:VBA中类的解读和利用这是一部高级教程,讲解类的虚无与肉身的度化,可以对促进自己理论的提高。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递,大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。最后将一阙词送给致力于VBA学习的朋友:浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。望星,疏移北斗,奈将往事雁同行。阡陌人,昏灯明暗,忍顾长亭。多少VBA人,暗夜中,悄声寻梦,盼却天明。怎无凭!
分享成果,随喜正能量
_____________________________
有启发 点在看,转给朋友 约作者 请留言,直接交流更多关联阅读
昨天一个同事问我,怎么在VSTO的控件上运行工作簿中的VBA代码。
这个很简单,VSTO提供了一个Run方法,可以直接运行Marco,就和你在VBA的一个过程里调用另一个过程一样。VSTO里的代码:private void button1_Click(object sender, EventArgs e)
{
Application.Run("test");
}
VBA代码:test() test()
MsgBox "Hello world"
End Sub很简单吧。注意:我现在用的是VS2010,所以Run方法后面的可选参数可以省略。如果你用的还是VS2008,你还是得一个个的把”missing”写上。作者:laoyebin(Paladin.lao)个人网站英文出处:http://mrvsto.com/个人网站中文出处:http://cn.mrvsto.com/版权:版权归作者和博客园所有,转载务必请注明出处转载于:https://blog.51cto.com/laoyebin/306408