เปลี่ยน Excel เวอร์ชั่นใหม่เป็น 2013 แล้วไม่สามารถ Export ไป Excel ได้

[UnKnown]

คุณ Jenkhuan Original post

พอดีผมได้ทำรายงานดึงข้อมูลออกไปเป็นไฟล์ Excel ก่อนหน้านี้เป็นเวอร์ชั่น 2003,2007 สามารถใช้งานได้ แต่พอเปลี่ยนเป็น 2013 แล้ว มันขึ้น Error มาที่ Code ด้านล่างนี้ครับ ไม่ทราบว่าเราจะต้องเปลี่ยนแปลง Code ด้านล่างนี้ หรือ ส่วนใหนครับเพื่อให้สามารถใช้งานได้ ขอบคุณครับ

Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open(PathAndFileOriginal)       'à»Ô´¿ÍÃìÁÊÓËÃѺ»ÃÐàÁÔ¹ Supplier ª×èÍÇèÒ  PHF009-5-FORM.xls
'Set xlSheet = xlWorkbook.Worksheets.Item("PHF009-4")   'àÅ×Í¡ä»·Õè sheet 1
Set xlSheet = xlWorkbook.Worksheets.Item(1)
xlApp.Visible = True    ' à»Ô´ Excel

[สันติสุข]

- Error บรรทัดไหน, รหัสอะไร, ข้อความแสดงออกมาว่ายังไง
- เกิดปัญหาในเครื่องเดิมที่ติดตั้ง Excel 2003/2007 หรือว่าบนเครื่องอื่น
- PathAndFileOriginal เก็บค่าที่อยู่ของไฟล์ถูกต้องหรือไม่

[UnKnown]

คุณ Jenkhuan Original post

- Error ที่ Set xlApp = CreateObject("Excel.Application")
- บนเครื่องที่ติดตั้งครับ

[UnKnown]

คุณ Jenkhuan Original post

PathAndFileOriginal เก็บค่าที่อยู่ของไฟล์ถูกต้องครับ

[UnKnown]

คุณ Jenkhuan Original post

[pizza_p]

ลองเปลี่ยนจาก
Set xlApp = CreateObject("Excel.Application")
เป็น
Set xlApp =  New Excel.Application

ได้ไม่ได้แจ้งมาอีกทีครับ

[UnKnown]

คุณ Jenkhuan Original post

ไม่ได้ครับ ขึ้น Error เหมือนเดิมครับ

[สันติสุข]

ถ้ายังไม่ทำการคอมไพล์ ให้ทำก่อนครับ
หรือถ้าคำสั่ง Compile เป็นตัวจาง ก็ให้ลบสักบรรทัดแล้วคีย์กลับเข้าไปอย่างเดิม แล้วคอมไพล์ครับ

[pizza_p]

ทดลองอีกทีครับ จาก Set xlApp =  New Excel.Application เป็น

Set xlApp =  New Excel.Application() หรือ
xlApp =  New Excel.Application()

[UnKnown]

คุณ Jenkhuan Original post

ลองทำตามทั้ง 2 แบบแล้ว ยังคงเป็นเหมือนเดิม

[pizza_p]

Error ที่บรรทัดไหนครับ

[UnKnown]

คุณ Jenkhuan Original post

ตามรูปในความเห็นด้านบนเลยครับ

[pizza_p]

บรรทัดนี้ได้ลบไปหรือยังครับ Set xlApp = CreateObject("Excel.Application")

ผมบอกว่าให้ลองเปลี่ยนจาก
Set xlApp = CreateObject("Excel.Application")
เป็น
Set xlApp =  New Excel.Application

[TTT]

อื่ม! อาการเหมือนเครื่องไม่มีโปรแกรม Excel อะครับ
ลองดูใน References ของ VBE ดูว่ามี Microsoft Excel 15.0 Object Library หรือเปล่า


- ถ้ามีก็ให้ทำเครื่องหมายถูกไว้ แล้วทำอย่างที่ อ. pizza_p แนะนำ เราจะสามารถเขียนคำสั่ง Property ต่างๆได้อย่างถูกต้อง และตรวจสอบ Debug ได้
- แต่ถ้าไม่มี แสดงว่าเครื่องคุณลงโปรแกรม Excel ผิดปกติอะครับ แนะนำลองลง Excel ใหม่ดูครับ