Page 1 of 1
copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Thu Feb 20, 2020 11:21 am
by sosadboy
ขอรบกวนอาจารย์อีกครั้งครับ เดิมผมบันทึก macro ให้ copy ข้อมูลจากไฟล์ที่ยังไม่ได้ทำการ save มาใส่ในไฟล์ที่เป็นไฟล์ database โดยไฟล์ต้นทางเป็นไฟล์ report ที่ออกมาจากโปรแกรมของที่ทำงาน โดยตัวไฟล์ยังไม่มีการ save ข้อมูลมาก่อน เดิมตัวโค๊ดนั้นใช้ได้ แต่พอเปลี่ยนเป็น Office 2016 โค๊ดกลับ run ไม่ได้ จึงอยากให้ช่วยดูโค๊ดให้หน่อยครับ
Code: Select all
Sub CopyData()
Windows("Sheet1").Activate
Cells.Select
Range("A1").Activate
Selection.Copy
Windows("4.ตัดสรุป ชนค้างลูกค้าติดตามออร์เดอร์.xlsm").Activate
ActiveSheet.Paste
End Sub
Re: copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Thu Feb 20, 2020 12:50 pm
by puriwutpokin
ลองแนบไฟล์ตัวอย่างมาดูครับว่าติดตรงไหนของข้อมูลครับ
Re: copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Thu Feb 20, 2020 2:16 pm
by sosadboy
puriwutpokin wrote: Thu Feb 20, 2020 12:50 pm
ลองแนบไฟล์ตัวอย่างมาดูครับว่าติดตรงไหนของข้อมูลครับ
คือ ตัวรายงานที่ต้องการ copy ข้อมูลเป็นรายงานที่ export ออกมาจากโปรแกรมของทางบริษัทในรูปแบบ
ไฟล์ excel ซึ่งยังไม่ได้มีการ save ข้อมูลครับ ปกติจะออกรายงานมาแล้ว copy ข้อมูลจากรายงานนี้ไปใส่ในไฟล์ที่
ต้องการ ซึ่งไฟล์ปลายทางจะทำมาโครไว้เพื่อตัดสรุปข้อมูลรวมทั้งปรับแต่งค่าต่างๆ อัติโนมัติ โดยปัญหาที่พบคือทาง
เทคนิคคอมของบริษัทได้ลง Office 2016 ให้ใหม่ เดิมใช้ 2010 หรือ 2013 ผมไม่แน่ใจครับ แล้วโค๊ดในส่วนของการ
copy ข้อมูลก็ error ในส่วนนี้ครับ
Runtime error '9': Subscript out of range
ที่สงสัยคือเป็นเพราะเปลี่ยนเวอร์ชั่นของ MS Office หรือเปล่าครับ เพราะก่อนหน้านี้ใช้ได้ปกติ พอลองจะบันทึกมาโครใหม่ก็ไม่ได้ครับ โค๊ดที่บันทึกได้มีแต่ในส่วนของการ paste ไม่มีส่วนของการ copy ข้อมูลจากไฟล์ต้นทางเลยครับ ตอนนี้ผมได้ลองทดสอบเปิดไฟล์ในเครื่องอื่นที่เป็น Office 2010 โค๊ดใช้งานได้ปกติครับ ส่วนเครื่องผมที่เป็น Office 2016 ใช้ไม่ได้ครับ
Re: copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Thu Feb 20, 2020 4:18 pm
by puriwutpokin
ลองกำหนดตำแหน่งที่จะว่างให้ชัดเจนดูครับ ว่าตำแหน่งปลายทางอยู่ที่เซลใด
เพราะ คำสั่งนี้ไม่ได้ระบุเท่าที่ทราบ ในเวอร์ชั่นใหม่จะไม่เข้าใจว่าตำแหน่งใด
อาจจะลองปรับเป็น
Code: Select all
ActiveSheet.Range("A1").PasteSpecial xlAll
Re: copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Fri Feb 21, 2020 1:46 pm
by sosadboy
puriwutpokin wrote: Thu Feb 20, 2020 4:18 pm
ลองกำหนดตำแหน่งที่จะว่างให้ชัดเจนดูครับ ว่าตำแหน่งปลายทางอยู่ที่เซลใด
เพราะ คำสั่งนี้ไม่ได้ระบุเท่าที่ทราบ ในเวอร์ชั่นใหม่จะไม่เข้าใจว่าตำแหน่งใด
อาจจะลองปรับเป็น
Code: Select all
ActiveSheet.Range("A1").PasteSpecial xlAll
ขอบคุณมากครับ
Re: copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้
Posted: Wed Feb 26, 2020 1:21 pm
by sosadboy
ได้แล้วครับ ต้องเปลี่ยน
เป็น
ครับ น่าจะเป็นที่เวอร์ชันของ ms office