疑惑中，为什么把vba代码移植到vb中运行速度确慢很多，很多？

作者：杨子忧愁_347 | 来源：互联网 | 2023-05-27 09:55

如题。另select……case语句和if语句哪个运行速度快一些呢？

如题。另select ……case语句和if语句哪个运行速度快一些呢？

13 个解决方案

#1

VBA的代码移植到VB，编译后的速度绝对不会变慢！
一般来说,if...else..endif比较select case 速度快，但在语言表达上不及后者清晰。

#2

lyserver你好，我看过您的好多个帖子，对您非常佩服，觉得您对内存的理解非常透彻，以后要多向您学习。

第一，我以前确实没有编译，直接在源程序里面运行的。
第二，我刚才编译了一下，速度还是慢，是不是我在循环里面用的select case语句多了？

但是，程序在excel中的vb编辑器中运行的速度就快的多了……先买是我的代码，麻烦帮我分析一下ok？

xlApp.ScreenUpdating = False



xlApp.Workbooks.Open ("D:\" & School & ".xls")



num = xlApp.activesheet.range("G1").CurrentRegion.Rows.Count

  With xlApp.activesheet

For i = 2 To num

  '替换物理等级

    If .range("G" & i).Value >= wl.Scoreaj Then

        

     .range("N" & i).Value = "A+"

    ElseIf .range("G" & i).Value >= wl.Scorea Then

       .range("N" & i).Value = "A"

    ElseIf .range("G" & i).Value >= wl.Scorebj Then

         .range("N" & i).Value = "B+"

     ElseIf .range("G" & i).Value >= wl.Scoreb Then

        .range("N" & i).Value = "B"

     ElseIf .range("G" & i).Value >= wl.Scorec Then

          .range("N" & i).Value = "C"

     ElseIf xlApp.WorksheetFunction.CountBlank(.range("G" & i)) <> 1 Then '判断excel单元格为空

        .range("N" & i).Value = "D"

      End If

        

   '替换化学等级

  Select Case .range("h" & i).Value

     Case Is >= hx.Scoreaj

     .range("o" & i).Value = "A+"

     Case Is >= hx.Scorea

       .range("o" & i).Value = "A"

     Case Is >= hx.Scorebj

         .range("o" & i).Value = "B+"

     Case Is >= hx.Scoreb

        .range("o" & i).Value = "B"

     Case Is >= hx.Scorec

          .range("o" & i).Value = "C"

     Case Else

            If xlApp.WorksheetFunction.CountBlank(.range("h" & i)) <> 1 Then '判断excel单元格为空

    

            .range("o" & i).Value = "D"

          End If

     End Select

      '替换生物等级

  Select Case .range("i" & i).Value

     Case Is >= sw.Scoreaj

     .range("p" & i).Value = "A+"

     Case Is >= sw.Scorea

       .range("p" & i).Value = "A"

     Case Is >= sw.Scorebj

         .range("p" & i).Value = "B+"

     Case Is >= sw.Scoreb

        .range("p" & i).Value = "B"

     Case Is >= sw.Scorec

          .range("p" & i).Value = "C"

     Case Else

            If xlApp.WorksheetFunction.CountBlank(.range("i" & i)) <> 1 Then

            .range("p" & i).Value = "D"

            End If

    End Select

    

     '替换政治等级

  Select Case .range("j" & i).Value

     Case Is >= zz.Scoreaj

     .range("q" & i).Value = "A+"

     Case Is >= zz.Scorea

       .range("q" & i).Value = "A"

     Case Is >= zz.Scorebj

         .range("q" & i).Value = "B+"

     Case Is >= zz.Scoreb

        .range("q" & i).Value = "B"

     Case Is >= zz.Scorec

          .range("q" & i).Value = "C"

     Case Else

            If xlApp.WorksheetFunction.CountBlank(.range("j" & i)) <> 1 Then

            .range("q" & i).Value = "D"

            End If

    End Select



     '替换历史等级

  Select Case .range("k" & i).Value

     Case Is >= ls.Scoreaj

     .range("r" & i).Value = "A+"

     Case Is >= ls.Scorea

       .range("r" & i).Value = "A"

     Case Is >= ls.Scorebj

         .range("r" & i).Value = "B+"

     Case Is >= ls.Scoreb

        .range("r" & i).Value = "B"

     Case Is >= ls.Scorec

          .range("r" & i).Value = "C"

     Case Else

            If xlApp.WorksheetFunction.CountBlank(.range("k" & i)) <> 1 Then

            .range("q" & i).Value = "D"

            End If

    End Select

    

    

     '替换地理等级

  Select Case .range("l" & i).Value

     Case Is >= dl.Scoreaj

     .range("s" & i).Value = "A+"

     Case Is >= dl.Scorea

       .range("s" & i).Value = "A"

     Case Is >= dl.Scorebj

         .range("s" & i).Value = "B+"

     Case Is >= dl.Scoreb

        .range("s" & i).Value = "B"

     Case Is >= dl.Scorec

          .range("s" & i).Value = "C"

     Case Else

            If xlApp.WorksheetFunction.CountBlank(.range("l" & i)) <> 1 Then

            .range("q" & i).Value = "D"

            End If

    End Select

 

Next i





'换一种样式

 For i = 2 To num

      .range("G" & i).Value = .range("G" & i).Value & .range("k" & i).Value

      .range("H" & i).Value = .range("H" & i).Value & .range("i" & i).Value & .range("j" & i).Value & .range("l" & i).Value

    '等级合并到一列

    .range("N" & i).Value = .range("N" & i).Value & .range("R" & i).Value

    .range("O" & i).Value = .range("O" & i).Value & .range("P" & i).Value & .range("Q" & i).Value & .range("S" & i).Value

Next i



      .range("I:L,P:U").Delete

      .range("G1") = "物理/历史"

      .range("H1") = "化/生/政/地"

      .range("J1") = "物/历/等级"

      .range("K1") = "化/生/政/地/等级"

       .Columns("G:G").ColumnWidth = 8.25

       .Columns("H:H").ColumnWidth = 10

       .Columns("J:J").ColumnWidth = 10

       .Columns("K:K").ColumnWidth = 15

End With



'另存一份替换好等级的工作表到d盘

xlApp.Cells.Copy

Set newbook = xlApp.Workbooks.Add

Set NewSheet = xlApp.worksheets.Add  '创建新表

NewSheet.Name = School & "等级成绩表"

 NewSheet.Paste

#3

人呢？今天是不是放假啊，怎么人这么少啊？帮帮忙啊？

#4

等了2个多小时了，怎么还不来人帮我啊，:(，痛哭流涕！

#5

为什么会这样子？在excel中运行的速度也就是15秒左右，而到了vb里面确要等5分钟左右？

#6

哦，我明白了，访问Office套件时，在VBA里确实比VB里快，原因VB只能使用Dispatch接口访问Office对象，而Office里访问这些对象时，可以直接通过vtable访问（因为二者在同一个进程里，甚至可以在同一个公寓线程里），在大量单元格访问时，二者速度相差很多。
你把完整的代码和数据给我，也许我能帮你优化一下。

#7

Dim dScor#
num = xlApp.activesheet.range("G1").CurrentRegion.Rows.Count
  With xlApp.activesheet
  For i = 2 To num
  '替换物理等级
    dScor = val(.range("G" & i).Text)
    If dScor>= wl.Scoreaj Then

     .range("N" & i).Value = "A+"
    ElseIf dScor>=  wl.Scorea Then
       .range("N" & i).Value = "A"
    ElseIf dScor >= wl.Scorebj Then
         .range("N" & i).Value = "B+"
     ElseIf dScor >= wl.Scoreb Then
        .range("N" & i).Value = "B"
     ElseIf dScor >= wl.Scorec Then
          .range("N" & i).Value = "C"
     'ElseIf xlApp.WorksheetFunction.CountBlank(.range("G" & i)) <> 1 Then '判断excel单元格为空
     ElseIf dScor > 0 then
        .range("N" & i).Value = "D"
      End If

   '替换化学等级
    dScor = val(.range("h" & i).Text)
  Select Case dScor
     Case Is >= hx.Scoreaj
     .range("o" & i).Value = "A+"
     Case Is >= hx.Scorea
       .range("o" & i).Value = "A"
..........
     End Select

............

Next i

'换一种样式
...........

#8

好的，我把他打成包上传一下。

#9

'另存一份替换好等级的工作表到d盘
'xlApp.Cells.Copy
'Set newbook = xlApp.Workbooks.Add
'Set NewSheet = xlApp.worksheets.Add '创建新表
'NewSheet.Name = School & "等级成绩表"
'NewSheet.Paste

'==============================
xlApp.ActiveSheet.Name = School & "等级成绩表"
xlApp.ActiveWorkbook.SaveAs "d:\等级成绩表.xls"

#10

第一条优化建议：
一般来说，如果是使用CreateObject函数实例化Office组件，可以改成Dim XX As New YYY，速度上也有较大提升，原因是VB对用New实例化的对象做了一定的优化，使用了专门的管理器，而CreateObjet是所有语言都可以使用的通用COM管理器。
第二条优化建议：
在赋值操作时，尽量使用类型明确的变量，比如：
Dim v As Variant
oSheet.Cells(1,1).Value = v '多一个运行期间的类型判断
如果改成
oSheet.Cells(1,1).Value = CStr(v) '直接指定VARIANT类型的vt成员为BSTR，速度比上一条语句快。
或者改成
Dim v As String
oSheet.Cells(1,1).Value = v
第三条建议
对Excel的数据进行读取时，可使用本地数组加快速度。数组的使用可参考：
http://support.microsoft.com/kb/177991/zh-cn

#11

引用 6 楼 lyserver 的回复:

哦，我明白了，访问Office套件时，在VBA里确实比VB里快，原因VB只能使用Dispatch接口访问Office对象，而Office里访问这些对象时，可以直接通过vtable访问（因为二者在同一个进程里，甚至可以在同一个公寓线程里），在大量单元格访问时，二者速度相差很多。
你把完整的代码和数据给我，也许我能帮你优化一下。

很正确!!

#12

学习了

#13

哦，原来如此，谢了lyserver，做了个Excel某一列数据查重，把Excel的数据读到数组里再比较查重比在Excel里直接查快了好几十倍，数据量小还不体现，上千数据量就已经差别很大了

推荐阅读

default
手机移动端HTML5和JavaScript如何实现视频上传和压缩视频质量？

本文讨论了在手机移动端如何使用HTML5和JavaScript实现视频上传并压缩视频质量，或者降低手机摄像头拍摄质量的问题。作者指出HTML5和JavaScript无法直接压缩视频，只能通过将视频传送到服务器端由后端进行压缩。对于控制相机拍摄质量，只有使用JAVA编写Android客户端才能实现压缩。此外，作者还解释了在交作业时使用zip格式压缩包导致CSS文件和图片音乐丢失的原因，并提供了解决方法。最后，作者还介绍了一个用于处理图片的类，可以实现图片剪裁处理和生成缩略图的功能。 ... [详细]

蜡笔小新 2023-12-12 15:58:44
buffer
Netty拆包粘包问题解决 —— 特殊结束符

本文介绍了解决Netty拆包粘包问题的一种方法——使用特殊结束符。在通讯过程中，客户端和服务器协商定义一个特殊的分隔符号，只要没有发送分隔符号，就代表一条数据没有结束。文章还提供了服务端的示例代码。 ... [详细]

蜡笔小新 2023-12-14 18:02:45
usb
利用Visual Basic开发SAP接口程序初探的方法与原理

本文介绍了利用Visual Basic开发SAP接口程序的方法与原理，以及SAP R/3系统的特点和二次开发平台ABAP的使用。通过程序接口自动读取SAP R/3的数据表或视图，在外部进行处理和利用水晶报表等工具生成符合中国人习惯的报表样式。具体介绍了RFC调用的原理和模型，并强调本文主要不讨论SAP R/3函数的开发，而是针对使用SAP的公司的非ABAP开发人员提供了初步的接口程序开发指导。 ... [详细]

蜡笔小新 2023-12-13 10:56:31
main
Nginx使用（server参数配置）

本文介绍了Nginx的使用，重点讲解了server参数配置，包括端口号、主机名、根目录等内容。同时，还介绍了Nginx的反向代理功能。 ... [详细]

蜡笔小新 2023-12-14 17:08:34
char
C语言注释工具及快捷键，删除C语言注释工具的实现思路

本文介绍了C语言中注释的两种方式以及注释的作用，提供了删除C语言注释的工具实现思路，并分享了C语言中注释的快捷键操作方法。 ... [详细]

蜡笔小新 2023-12-14 11:22:08
main
如何在有序字符序列中插入新字符并保持有序

本文介绍了如何在给定的有序字符序列中插入新字符，并保持序列的有序性。通过示例代码演示了插入过程，以及插入后的字符序列。 ... [详细]

蜡笔小新 2023-12-14 11:16:33
request
t-io 2.0.0发布-法网天眼第一版的回顾和更新说明

本文回顾了t-io 1.x版本的工程结构和性能数据，并介绍了t-io在码云上的成绩和用户反馈。同时，还提到了@openSeLi同学发布的t-io 30W长连接并发压力测试报告。最后，详细介绍了t-io 2.0.0版本的更新内容，包括更简洁的使用方式和内置的httpsession功能。 ... [详细]

蜡笔小新 2023-12-14 10:17:48
request
图解redis的持久化存储机制RDB和AOF的原理和优缺点

本文通过图解的方式介绍了redis的持久化存储机制RDB和AOF的原理和优缺点。RDB是将redis内存中的数据保存为快照文件，恢复速度较快但不支持拉链式快照。AOF是将操作日志保存到磁盘，实时存储数据但恢复速度较慢。文章详细分析了两种机制的优缺点，帮助读者更好地理解redis的持久化存储策略。 ... [详细]

蜡笔小新 2023-12-13 20:24:11
char
Python正则表达式学习记录及常用方法

本文记录了学习Python正则表达式的过程，介绍了re模块的常用方法re.search，并解释了rawstring的作用。正则表达式是一种方便检查字符串匹配模式的工具，通过本文的学习可以掌握Python中使用正则表达式的基本方法。 ... [详细]

蜡笔小新 2023-12-13 16:37:19
main
Java中vector的使用详解

本文详细介绍了Java中vector的使用方法和相关知识，包括vector类的功能、构造方法和使用注意事项。通过使用vector类，可以方便地实现动态数组的功能，并且可以随意插入不同类型的对象，进行查找、插入和删除操作。这篇文章对于需要频繁进行查找、插入和删除操作的情况下，使用vector类是一个很好的选择。 ... [详细]

蜡笔小新 2023-12-13 14:14:39
main
[大整数乘法] java代码实现

本文介绍了使用java代码实现大整数乘法的过程，同时也涉及到大整数加法和大整数减法的计算方法。通过分治算法来提高计算效率，并对算法的时间复杂度进行了研究。详细代码实现请参考文章链接。 ... [详细]

蜡笔小新 2023-12-13 11:21:32
main
Go Cobra命令行工具入门教程

本文介绍了Go语言实现的命令行工具Cobra的基本概念、安装方法和入门实践。Cobra被广泛应用于各种项目中，如Kubernetes、Hugo和Github CLI等。通过使用Cobra，我们可以快速创建命令行工具，适用于写测试脚本和各种服务的Admin CLI。文章还通过一个简单的demo演示了Cobra的使用方法。 ... [详细]

蜡笔小新 2023-12-12 20:02:41
get
C#制作Java+Mysql+Tomcat环境安装程序，一键式安装教程

本文介绍了如何使用C#制作Java+Mysql+Tomcat环境安装程序，实现一键式安装。通过将JDK、Mysql、Tomcat三者制作成一个安装包，解决了客户在安装软件时的复杂配置和繁琐问题，便于管理软件版本和系统集成。具体步骤包括配置JDK环境变量和安装Mysql服务，其中使用了MySQL Server 5.5社区版和my.ini文件。安装方法为通过命令行将目录转到mysql的bin目录下，执行mysqld --install MySQL5命令。 ... [详细]

蜡笔小新 2023-12-12 19:29:55
get
java命令运行

Java在运行已编译完成的类时，是通过java虚拟机来装载和执行的，java虚拟机通过操作系统命令JAVA_HOMEbinjava–option来启 ... [详细]

蜡笔小新 2023-12-12 19:26:55
post
如何在codeigniter中识别angularjs请求

本文讨论了如何在codeigniter中识别来自angularjs的请求，并提供了两种方法的代码示例。作者尝试了$this->input->is_ajax_request()和自定义函数is_ajax()，但都没有成功。最后，作者展示了一个ajax请求的示例代码。 ... [详细]

蜡笔小新 2023-12-12 12:37:07

杨子忧愁_347

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章