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

stanleypan

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

2007-11-23 23:31 上传

点击文件名下载附件
VBA多线程及线程优先级演示程序.

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

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

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

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

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

yvhf

谢谢分享

PeterYeung

"VBA多线程",在实际应用中,对Excel的数据处理有什么作用? 

BrandSex

不错，不错

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

chat163

高手

lgcmeli

QUOTE:

以下是引用PeterYeung在2007-11-24 16:47:32的发言：
"VBA多线程",在实际应用中,对Excel的数据处理有什么作用? 

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

tianying

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

kkc235

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

只是来问版主一个问题

在一个线程中一但做了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

不知道怎么解决

２我要在可见性这个时机做一个处理，　怎么办？　我只想到了做一个线程来监听，　注意是可见这个时机啊，　不是ＯＰＥＮ

希望给解答一下

caili2005

我想看一看.学习一下下.

abc126

» VBA多线程及线程优先级演示程序. » 发表回复