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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

29 ม.ค. 61 , 11:52:47
อ่าน 745 ครั้ง

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
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:45:40 โดย UnKnown »

 

30 ม.ค. 61 , 12:31:21
ตอบกลับ #1

สันติสุข

- Error บรรทัดไหน, รหัสอะไร, ข้อความแสดงออกมาว่ายังไง
- เกิดปัญหาในเครื่องเดิมที่ติดตั้ง Excel 2003/2007 หรือว่าบนเครื่องอื่น
- PathAndFileOriginal เก็บค่าที่อยู่ของไฟล์ถูกต้องหรือไม่
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

02 ก.พ. 61 , 13:47:20
ตอบกลับ #2

UnKnown

คุณ Jenkhuan Original post
อ้างถึง
- Error ที่ Set xlApp = CreateObject("Excel.Application")
- บนเครื่องที่ติดตั้งครับ
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:46:00 โดย UnKnown »

 

02 ก.พ. 61 , 13:49:13
ตอบกลับ #3

UnKnown

คุณ Jenkhuan Original post
อ้างถึง
PathAndFileOriginal เก็บค่าที่อยู่ของไฟล์ถูกต้องครับ
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:48:37 โดย UnKnown »

 

02 ก.พ. 61 , 13:55:10
ตอบกลับ #4

UnKnown

คุณ Jenkhuan Original post
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:49:54 โดย UnKnown »

 

02 ก.พ. 61 , 14:49:20
ตอบกลับ #5

pizza_p

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

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

 

02 ก.พ. 61 , 15:35:02
ตอบกลับ #6

UnKnown

คุณ Jenkhuan Original post
อ้างถึง
ไม่ได้ครับ ขึ้น Error เหมือนเดิมครับ
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:50:16 โดย UnKnown »

 

02 ก.พ. 61 , 16:26:42
ตอบกลับ #7

สันติสุข

ถ้ายังไม่ทำการคอมไพล์ ให้ทำก่อนครับ
หรือถ้าคำสั่ง Compile เป็นตัวจาง ก็ให้ลบสักบรรทัดแล้วคีย์กลับเข้าไปอย่างเดิม แล้วคอมไพล์ครับ
« แก้ไขครั้งสุดท้าย: 02 ก.พ. 61 , 16:29:25 โดย สันติสุข »
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

02 ก.พ. 61 , 16:43:09
ตอบกลับ #8

pizza_p

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

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

 

06 ก.พ. 61 , 11:09:38
ตอบกลับ #9

UnKnown

คุณ Jenkhuan Original post
อ้างถึง
ลองทำตามทั้ง 2 แบบแล้ว ยังคงเป็นเหมือนเดิม
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:50:34 โดย UnKnown »

 

06 ก.พ. 61 , 12:36:40
ตอบกลับ #10

pizza_p

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

 

06 ก.พ. 61 , 12:59:04
ตอบกลับ #11

UnKnown

คุณ Jenkhuan Original post
อ้างถึง
ตามรูปในความเห็นด้านบนเลยครับ
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:50:48 โดย UnKnown »

 

06 ก.พ. 61 , 13:55:19
ตอบกลับ #12

pizza_p

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

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

 

06 ก.พ. 61 , 15:04:12
ตอบกลับ #13

TTT

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


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


บอร์ดเรียนรู้ Access สำหรับคนไทย