我写的一个过程由于调用很多excel文件,所以在执行时会占用很多cpu资源,从而导致程序运行时无法接受其它响应,也就是程序完全被这个过程占用。
请问如何解决?盼赐教
请问如何解决?盼赐教
解决方案 »
- js调vb控件,如何在vb中进行单步调试?
- 继续提问,基于构件的管理系统,请高人帮忙看下程序问题
- 各们大虾,我想做个多语言版的软件,怎么样实现啊?
- mshflexgrid 怎样防止整个一行的数据重复插入?这里多谢了!
- 菜鸟的MDI窗口创建问题
- datagrid和ADODC怎样同步?
- 一波未平,一波又起access建表问题!来者有分
- 怎样将简单的数据保存到一个图片文件?
- 请问应该用哪一个API函数才能使VB程序始终在最上(ALWAYS ON THE TOP)
- [Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
- active report2 打印MsflexGird的问题!
- active dll问题,大家讨论一下
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)Private Sub Command1_Click()
Dim pId As Long
Dim pHnd As Long
pId = Shell("C:\Program Files\Microsoft Office\Office\Excel.exe", vbNormalNoFocus)
pHnd = OpenProcess(PROCESS_ALL_ACCESS, 0, pId)
MsgBox ("Hello!")
Call CloseHandle(pHnd)
End Sub
'我举个例子:
private function myfun(...)
...'其中调用了很多excel文件,如下
Dim xexl As Object
Set xexl = CreateObject("Excel.Application")
xexl.Workbooks.Open ("test1.xls")
...'对test1.xls有很多操作,test1.xls有很多数据
xexl.Workbooks("test1.xls").Close (True)
end function
''
Private Sub Command1_Click()
call myfun(...)'调用myfun过程之行时间太长,而且程序“死”这里,要很长时间
MsgBox ("Hello!")
End Sub'如何解决?
Doenents
'you Code
Loop