作者:乔山办公网日期:
返回目录:excel表格制作
vb.net没用抄袭过,vb6.0的话可以用getobject这种方法,百你可以改改试试度,看知能不能用道
Dim xlApp As Object
Set xlApp = GetObject(ExcelFileName).Application '获取Excel对象
Set ExcelBook = Workbooks.Open(OLE1.SourceDoc) '打开百度ole显示的excel
改为:
Set ExcelBook = ExcelApp.Workbooks.Open(OLE1.SourceDoc) '打开ole显示的excel
也就是加知上 ExcelApp前缀否则这道个 excelbook 不属于内 excelapp ,你释放也没容用,
Shell "cmd.exe /c taskkill /f /im excel.exe", vbHide
如果你抄打开了多个EXCEL,即执行多次,如果不袭知道多少,百可以判断进程是否存在再执行。
代码度:
BACKENDP:
If CheckApplicationIsRun("EXCEL.exe") = True Then
Shell "cmd.exe /c taskkill /IM EXCEL.exe /F /T", vbHide
GoTo BACKENDP:
End If
通常在使用完对象,应该使用以下三个步骤,这样进程就不会存在于内存中了. excel.ActiveWorkbook.Close() excel.Quit() excel = Nothing