Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > Connect to Excel.Application แล้วมันมี EXCEL.EXE ค้างที่ Task Manager ตรง Processes

Connect to Excel.Application แล้วมันมี EXCEL.EXE ค้างที่ Task Manager ตรง Processes

เริ่มหัวข้อใหม่

ฺBank

โพสกระทู้ ( 2 )
บทความ ( 0 )

ใช้คำสั่ง
'*** Create Exce.Application ***'
Set xlApp = Server.CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(Server.MapPath(OpenFile))
Set xlSheet1 = xlBook.Worksheets(1)

แล้วก็ตามด้วย
'*** Quit and Clear Object ***'
xlApp.Application.Quit
Set xlSheet1 = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

ตามรูปเลยอะค่ะ
Task manager

ยิ่งเปิดมากก็จะเพิ่มมากขึ้น จนทำให้การเปิด excel ค้างไปเลย ต้องลบ process ออกเอง
ไม่ทราบจะแก้อย่างไรดี

Tag : - - - -

Date : 2009-03-03 14:43:06

By : bymyself

View : 4230

Reply : 6

No. 1

เด็กเสื้อเขียว

โพสกระทู้ ( 27 )
บทความ ( 0 )

ใช้ ๆ เจอเหมือนกันคับ ลบไงคับ

คิดว่าจะใช้ code
xlApp.Application.Quit
แล้วจะหายนะคับ แต่ไม่หายอะคับ

Date : 2009-03-03 15:56:38

By : เด็กเสื้อเขียว

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

ลองดูในบทเรียนครับ ผมทำแล้วหายครับ ไม่เหลือ Process ครับ

Date : 2009-03-04 17:02:41

By : webmaster

No. 3

Guest

Private Sub KillProcess()

Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Excel")

For Each p As Process In pProcess
'เช็คเฉพาะที่เป็น Process ค้าง
If p.MainWindowTitle.Length = 0 Then

p.Kill()

End If
Next

End Sub

*******************************************************************

ลองดู Code นี้ดูครับ สร้างเป็น sub แล้วเอาไปแทรกก่อนเปิด Excel อะครับให้เช็คก่อนว่ามี Process ค้างหรือปล่าว ถ้ามีก็ปิดมันซะ

Date : 2009-06-09 23:28:30

By : แค่ผ่านมา

No. 4

Guest

คำสั่ง
'*** Create Exce.Application ***'
Set xlApp = Server.CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(Server.MapPath(OpenFile))
Set xlSheet1 = xlBook.Worksheets(1)

แล้วก็ตามด้วย
'-เพิ่มการ Close เข้าไปครับ
'-ให้ทำการปิดเอกสารที่เปิดไว้ก่อนที่จะทำลาย objectทิ้งครับน่าจะ O น่ะ
[font=Verdana]xlBook.Close[/font]
'*** Quit and Clear Object ***'
xlApp.Application.Quit
Set xlSheet1 = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Date : 2009-06-21 09:07:35

By : yuwakaroon

No. 5

Thee

โพสกระทู้ ( 2 )
บทความ ( 0 )

Private Sub KillProcess()

ใช้ไม่ได้กับ ASP

อยากได้ Code kill process ASP

'//----- Kill process -----//'
Function Kill_Process(varApp)
Dim strComputer,objWMIService,objProcess,colProcessList
'fso,'Set fso = CreateObject("Scripting.FileSystemObject")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = '"&varApp&"'")

For Each objProcess in colProcessList
objProcess.Terminate()
Next
'Set fso = nothing
End Function

Call Kill_Process("EXCEL.EXE")
ใช้ได้กรณีที่ เรียกจาก Locahost เท่านั้นอ่ะ
ถ้าเป็นเครื่อง Client เกิด Error

err.number=-2147217405
Error 0x80041003

ไม่รู้จะทำยังไงดี ผู้รู้กรุณาชี้แนะด้วยจร้า...

Date : 2010-02-04 10:48:19

By : doctorengi

No. 6

Guest

ขอบคุณ comment 3 มากครับใช้ได้เลยครับ

Date : 2010-11-26 16:51:33

By : tom

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : Connect to Excel.Application แล้วมันมี EXCEL.EXE ค้างที่ Task Manager ตรง Processes

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก