Snasui Excel Forum

เมื่อทดสอบ listbox 2 ตัว ดังนี้:
Code ใน Module1:
Show Userform1,ListBox1,ListBox2
Open 1.xls
Fill ListBox1 with Rowsource
Close 1.xls
Open 2.xls
Fill ListBox2 with Rowsource
Close 2.xls
ทั้งสอง listbox แสดงรายการครบถ้วนครับ
--------------------------------------------------------------------------------------------------------------------------------------------
แต่พอแก้ไขเป็นดังนี้:
Codes ใน Module1:
Show Userform1,ListBox1,ListBox2, เพิ่ม CommandButton1

Codes in Userform1:
CommandButton1_Click
Open 1.xls
Fill ListBox1 with Rowsource
Close 1.xls
มี error message แสดงข้อความ" Not enough storage is available to operate this operation."
และ ListBox1 แสดงข้อมูลของ 1.xls เพียง 2-3 แถว นอกนั้นเป็นแถวว่างบ้าง บางแถวข้อมูลแหว่งบ้าง เป็นขยะบ้าง

เหตุกาณ์นี้น่าจะมาจากสาเหตุใดครับ ขอบคุณครับ

ทราบสาเหตุแล้วครับ
โดยสังเกตุจาก Task Manager
พบว่าวิธีแรกใช้ CPU 100% จึงรอดไปได้
ส่วนวิธีที่2 ใช้ CPU เกินครับ จึงไม่รอด

จึงขอรบกวนอาจารย์ลบ Topic นี้ด้วยครับ
เพราะไม่สู้จะมีประเด็นอะไรครับ

ไม่เป็นไรครับ สามารถเอาไว้อ้างอิงเรื่องการใช้ CPU ได้ครับ