copy ข้อมูลจากไฟล์ที่ไม่ได้ save ไม่ได้

[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

[puriwutpokin]

ลองแนบไฟล์ตัวอย่างมาดูครับว่าติดตรงไหนของข้อมูลครับ

[sosadboy]

ลองแนบไฟล์ตัวอย่างมาดูครับว่าติดตรงไหนของข้อมูลครับ

คือ ตัวรายงานที่ต้องการ copy ข้อมูลเป็นรายงานที่ export ออกมาจากโปรแกรมของทางบริษัทในรูปแบบ
ไฟล์ excel ซึ่งยังไม่ได้มีการ save ข้อมูลครับ ปกติจะออกรายงานมาแล้ว copy ข้อมูลจากรายงานนี้ไปใส่ในไฟล์ที่
ต้องการ ซึ่งไฟล์ปลายทางจะทำมาโครไว้เพื่อตัดสรุปข้อมูลรวมทั้งปรับแต่งค่าต่างๆ อัติโนมัติ โดยปัญหาที่พบคือทาง
เทคนิคคอมของบริษัทได้ลง Office 2016 ให้ใหม่ เดิมใช้ 2010 หรือ 2013 ผมไม่แน่ใจครับ แล้วโค๊ดในส่วนของการ
copy ข้อมูลก็ error ในส่วนนี้ครับ

Code: Select all

Windows("Sheet1").Activate

Runtime error '9': Subscript out of range
ที่สงสัยคือเป็นเพราะเปลี่ยนเวอร์ชั่นของ MS Office หรือเปล่าครับ เพราะก่อนหน้านี้ใช้ได้ปกติ พอลองจะบันทึกมาโครใหม่ก็ไม่ได้ครับ โค๊ดที่บันทึกได้มีแต่ในส่วนของการ paste ไม่มีส่วนของการ copy ข้อมูลจากไฟล์ต้นทางเลยครับ ตอนนี้ผมได้ลองทดสอบเปิดไฟล์ในเครื่องอื่นที่เป็น Office 2010 โค๊ดใช้งานได้ปกติครับ ส่วนเครื่องผมที่เป็น Office 2016 ใช้ไม่ได้ครับ

[puriwutpokin]

ลองกำหนดตำแหน่งที่จะว่างให้ชัดเจนดูครับ ว่าตำแหน่งปลายทางอยู่ที่เซลใด
เพราะ คำสั่งนี้ไม่ได้ระบุเท่าที่ทราบ ในเวอร์ชั่นใหม่จะไม่เข้าใจว่าตำแหน่งใด

Code: Select all

ActiveSheet.Paste

อาจจะลองปรับเป็น

Code: Select all

ActiveSheet.Range("A1").PasteSpecial xlAll

[sosadboy]

ลองกำหนดตำแหน่งที่จะว่างให้ชัดเจนดูครับ ว่าตำแหน่งปลายทางอยู่ที่เซลใด
เพราะ คำสั่งนี้ไม่ได้ระบุเท่าที่ทราบ ในเวอร์ชั่นใหม่จะไม่เข้าใจว่าตำแหน่งใด

Code: Select all

ActiveSheet.Paste

อาจจะลองปรับเป็น

Code: Select all

ActiveSheet.Range("A1").PasteSpecial xlAll

ขอบคุณมากครับ

[sosadboy]

ได้แล้วครับ ต้องเปลี่ยน

Code: Select all

 Windows("Sheet1").Activate  

เป็น

Code: Select all

 
Workbooks("Sheet1").Activate  

ครับ น่าจะเป็นที่เวอร์ชันของ ms office