ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 28172|回复: 25

VBA多线程及线程优先级演示程序.

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-11-23 23:32 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:Windows API应用

DDp3PVjh.rar (35 KB, 下载次数: 2627)


程序的思路来自于:http://club.excelhome.net/viewthread.php?tid=279965

目的是为了演示: VBA多线程的开发示例.

当然为了演示的效果,VBA代码中求和用的是最呆的方法,循环相加,实际大家都知道,如用优化算法一步就能实现.

VBA的多线程是很不稳定的,跟CreateThread函数有很大的关系.当然主要VBA是解释执行的程序,
 实际代码是在一些Runtime库运中行的, 必须存有一个动态刷新的控件,否则Excel肯定Crash.

[此贴子已经被作者于2007-11-23 23:35:08编辑过]

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2007-11-24 13:24 | 显示全部楼层
谢谢分享

TA的精华主题

TA的得分主题

发表于 2007-11-24 16:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-11-24 18:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

不错,不错

我原本也想做一个这样的例子,不过经常crash,所以没继续研究下去了

TA的精华主题

TA的得分主题

发表于 2007-11-29 16:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-1-18 14:10 | 显示全部楼层
QUOTE:
以下是引用PeterYeung在2007-11-24 16:47:32的发言:
"VBA多线程",在实际应用中,对Excel的数据处理有什么作用? 

解释下啊:多线程处理既然容易crash,那么为何要呢,有什么作用吗,速度?

TA的精华主题

TA的得分主题

发表于 2008-1-31 21:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

VB里用多线程都危险,何况是VBA?Excel里用多线程意义不大,除非楼主能够找到最好的用途的实例。

TA的精华主题

TA的得分主题

发表于 2008-3-3 23:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

代码盲, 太多了, 没怎么看懂

只是来问版主一个问题

在一个线程中一但做了excel的写操作后,再对excel某个格赋值就会挂掉

例:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

 Public threadid1 As Long

Private Sub Workbook_Open()   
    Call CreateThread(Null, ByVal O&, AddressOf Module.init, VarPtr(0), ByVal 0&, threadid1)

End Sub

Public Sub init()
Sheet1.writecell
end sub

'sheet1

Option Explicit

Public Sub writecell()
    Range("A1") = "test"
End Sub

Private Sub CommandButton1_Click()
Dim l_ret As Long
TerminateThread
l_ret = TerminateThread(threadid1, 0&)
    Range("A1") = "do"
End Sub

不知道怎么解决

2我要在可见性这个时机做一个处理, 怎么办? 我只想到了做一个线程来监听, 注意是可见这个时机啊, 不是OPEN

希望给解答一下

TA的精华主题

TA的得分主题

发表于 2009-8-6 14:25 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-5 12:44 | 显示全部楼层
» VBA多线程及线程优先级演示程序. » 发表回复
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 02:58 , Processed in 0.054289 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表