การเรียกเปิดไฟล์ที่ต้องการพร้อมกับ copy ข้อมูลครับ

[wongsaton]

ให้เพิ่มโค๊ด

Code: Select all

On Error Resume Next

ไว้บนสุดครับ แล้วรันโค๊ดดู

ขอบคุณ คุณ bank9597 มากๆนะครับ โปรแกรมไม่ error แล้วครับ ใจหายเลยครับเมื่อกี้
แต่มีปัญหาอีกแล้วครับ พอหาย error การ copy ข้อมูลที่ทำได้ ตอนนี้มันกลับไม่ copy ข้อมูลตามที่กำหนดแล้วครับ แต่การค้นหาไฟล์ปลายทางจาก row B2,F2,J2 ยังทำได้ดีปกติแล้วครับ มันเกิดจากสาเหตุอะไรหรอครับ รบกวนแนะนำผมทีครับ ขอบคุณครับ

ผมแนบไฟล์ตัวอย่างมาแล้วครับ

[bank9597]

โค๊ดระบุไปที่ b2 i2 m2 ไม่ใช่ b f j
โค๊ดจะเอาค่าที่ไปบันทึกโดยอ้างจาก range ข้างบน
หากคุณเปลี่ยน range ใหม่ คุณกต้องขยับข้อมูลตามไปด้วย ให้เหมือนเดิม
เว้นแต่คุณจะเข้าใจโค๊ด และปรับให้โค๊ดไปดึงค่าให้ถูกที่ครับ

[wongsaton]

โค๊ดระบุไปที่ b2 i2 m2 ไม่ใช่ b f j
โค๊ดจะเอาค่าที่ไปบันทึกโดยอ้างจาก range ข้างบน
หากคุณเปลี่ยน range ใหม่ คุณกต้องขยับข้อมูลตามไปด้วย ให้เหมือนเดิม
เว้นแต่คุณจะเข้าใจโค๊ด และปรับให้โค๊ดไปดึงค่าให้ถูกที่ครับ

ครับผม ผมพอจะทราบวิธีการแก้ไขและปรับ code ให้ถูกต้องตามที่ต้องการอยู่บ้างครับ (เอกสารที่ใช้เป็นเพียงตัวอย่างจึงใช้ข้อมูลที่เข้าใจง่ายครับ)
ขอบพระคุณอาจารย์ snasui กับ คุณ bank 9597 มากๆเลยครับ โปรแกรมทำงานสมบูรณ์แล้วครับ ผมดีใจมากๆครับ สำเร็จเสียทีทำงานได้100%แล้วครับ
ถ้าผมอยากจะรบกวนให้อาจารย์กับ คุณ bank 9597 ช่วยกรุณาอธิบายโปรแกรมแต่ละคำสั่ง จะผิดกฏไหมครับ
รบกวนหน่อยนะครับ เพื่อเป็นความรู้เพิ่มเติมเพื่อที่ผมจะได้สามารถจะนำไปปรับใช้ในอนาคตได้อีกครับ เพราะบางคำสั่งผมไม่ค่อยเข้าใจเท่าไรครับ ขอความกรุณาด้วยนะครับถ้าผิดกฏหรือผิดพลาดประการใด ขออภัยด้วยครับ ขอบคุณครับ

[snasui]

ถ้าผมอยากจะรบกวนให้อาจารย์กับ คุณ bank 9597 ช่วยกรุณาอธิบายโปรแกรมแต่ละคำสั่ง จะผิดกฏไหมครับ

ไม่ผิดกฎแต่อย่างใดครับ หากท่านใดมีเวลาก็สามารถตอบแบบละเอียดได้ตามสะดวก แต่อาจจะไม่สะดวกกับหลายคนเช่นผมเป็นต้นครับ

ควรศึกษามาเองและถามเฉพาะที่ติดปัญหา ผู้ตอบจะได้มีเวลาช่วยเหลือสมาชิกท่านอื่นๆ ที่รอคอยคำตอบด้วยครับ

[wongsaton]

ไม่ผิดกฎแต่อย่างใดครับ หากท่านใดมีเวลาก็สามารถตอบแบบละเอียดได้ตามสะดวก แต่อาจจะไม่สะดวกกับหลายคนเช่นผมเป็นต้นครับ

ควรศึกษามาเองและถามเฉพาะที่ติดปัญหา ผู้ตอบจะได้มีเวลาช่วยเหลือสมาชิกท่านอื่นๆ ที่รอคอยคำตอบด้วยครับ

ครับอาจารย์ เรื่องความหมาย code ผมจะพยายามศึกษาเองก่อน ถ้าติดปัญหาจะมาถามทุกท่านใหม่นะครับ

แต่ตอนนี้มีปัญหาเรื่องโปรแกรมอีกแล้วครับ เมื่อผมนำ code ที่ใช้ได้ดีแล้วและผมได้ทดลองใช้ในโปรแกรมจำลองที่ผมทำขึ้นมาแล้วและก็ไม่มีปัญหาใดๆ เป็นไปตามที่ผมต้องการทุกอย่าง แต่พอผมนำมาปรับใช้กับโปรแกรมจริงกลับเกิดปัญหาครับ ไฟล์ปลายทางไม่เปิดขึ้นมา มันเกิดจากสาเหตุอะไรครับ รบกวนอาจารย์และทุกท่านอีกครั้งนะครับ ขอบคุณล่วงหน้านะครับ ปล.ผมแนบไฟล์ตัวอย่างมาด้วยครับ

[snasui]

Mark on error resume next ให้เป็น Comment แล้วแจ้งมาอีกรอบว่าโปรแกรมฟ้องว่าอย่างไรครับ

[wongsaton]

Mark on error resume next ให้เป็น Comment แล้วแจ้งมาอีกรอบว่าโปรแกรมฟ้องว่าอย่างไรครับ

โปรแกรม error ที่บรรทัดนี้ครับ

Code: Select all

Workbooks.Open(strPath & strFileName).Activate

(โดยมีลูกศรชี้และเป็นแถบสีเหลืองครับ)
ผมแนบภาพหน้าจอตอนรันมาด้วยครับ รบกวนอาจารย์ทีนะครับ ขอบคุณครับ

[snasui]

โปรแกรมแจ้งความผิดพลาดไว้ชัดเจนแล้วว่าไม่พบไฟล์ ได้ตรวจสอบไฟล์ว่ามีอยู่จริงตามที่โปรแกรมฟ้องแล้วหรือไม่ครับ

[wongsaton]

โปรแกรมแจ้งความผิดพลาดไว้ชัดเจนแล้วว่าไม่พบไฟล์ ได้ตรวจสอบไฟล์ว่ามีอยู่จริงตามที่โปรแกรมฟ้องแล้วหรือไม่ครับ

ตรวจสอบแล้วครับอาจารย์ ไฟล์มีอยู่จริงและชื่อตรงตามในโปรแกรมทุกอย่างเลยครับ แต่โปรแกรมกลับไม่ยอมเปิดไฟล์ ผมจนปัญญาจริงๆครับ รบกวนอาจารย์ทีนะครับ ขอบคุณครับ

[bank9597]

แก้ปัญหาล่าสุดก่อนน่ะครับ
ให้ไปที่ Folder Option > View > ติ๊กถูกหน้าช่อง Hide Extension ... > OK
แล้วรันโค๊ดดูครับ

ผมได้ตอบไปแล้วครับ

[wongsaton]

แก้ปัญหาล่าสุดก่อนน่ะครับ
ให้ไปที่ Folder Option > View > ติ๊กถูกหน้าช่อง Hide Extension ... > OK
แล้วรันโค๊ดดูครับ

ผมได้ตอบไปแล้วครับ

ผมได้ทำอย่างที่คุณ bank9597 บอกตั้งแต่ตอนแรกแล้วครับ แต่ก็ยังเป็นปัญหาอย่างที่ผมกล่าวไปครับ ไม่ทราบว่าคอมพิวเตอร์ของคุณ bank9597 สามารถรัน code นี้ในไฟล์ตัวอย่าง(แนบไว้ในความเห็นที่แล้ว) ได้ไหมครับ รบกวนหน่อยครับ ขอบคุณครับ

[bank9597]

อ. คนควนบอกไปแล้วว่า ไม่มีไฟล์อยู่ โค๊ดจึงไม่ทำงาน

คุณตรวจดูแต่ในโฟลเดอร์ แต่ไม่ได้ดูในโค๊ดว่าอ้างถึงที่ใด
ลองปรับจาก

Code: Select all

strPath = "D:\Excle VBA\"

เป็น

Code: Select all

strPath = "C:\Users\MEA\Desktop\ITRON\"

[wongsaton]

อ. คนควนบอกไปแล้วว่า ไม่มีไฟล์อยู่ โค๊ดจึงไม่ทำงาน

คุณตรวจดูแต่ในโฟลเดอร์ แต่ไม่ได้ดูในโค๊ดว่าอ้างถึงที่ใด
ลองปรับจาก

Code: Select all

strPath = "D:\Excle VBA\"

เป็น

Code: Select all

strPath = "C:\Users\MEA\Desktop\ITRON\"

เรียนคุณ bank และทุกท่านครับ

Code: Select all

strPath = "C:\Users\MEA\Desktop\ITRON\

code นี้คือที่มาของข้อมูลที่ผมนำมาเปิดในโปรแกรมจริงอีกต่อหนึ่งครับ และ

Code: Select all

strPath = "D:\Excle VBA\"

code นี้คือที่อยู่ของไฟล์ปลายทางที่ผมจะนำข้อมูลที่ได้คำนวณในโปรแกรมจริงเรียบร้อยแล้ว ไปบันทึกอยู่ในไฟล์ปลายทางตามชื่อใน row ที่กำหนดครับ

รูปแบบโปรแกรมของผมคร่าวๆครับ ในโปรแกรมจริง ผมจะมีปุ่มเพื่อเปิดไฟล์ข้อมูลขึ้นมา (ที่มาข้อมูลที่เปิด C:\Users\MEA\Desktop\ITRON) เพื่อเลือกข้อมูลที่ต้องการมาคำนวณในโปรแกรมก่อน (โปรแกรมได้ใส่สูตรไว้ในการคำนวณแล้วครับ) และเมื่อข้อมูลได้คำนวณเสร็จ ผมจึงสร้างปุ่มที่จะสามารถบันทึกข้อมูลที่ได้คำนวณเสร็จแล้วไปในไฟล์ปลายทางอีกไฟล์หนึ่ง ซึ่งเป็นไฟล์ว่างที่ผมได้สร้างไว้เพื่อรองรับข้อมูล (ที่อยู่ของไฟล์ว่าง D:\Excle VBA) ตามชื่อในเซลล์ที่ผมได้กำหนดไว้ แต่ปัญหาคือดังนี้ครับ

ปัญหาของผมที่เกิดปัญหาคือ เมื่อรันโปรแกรม โปรแกรมโหลดครับ เหมือนจะทำงาน แต่พอโหลดเสร็จโปรแกรมกลับไม่เปิดไฟล์ปลายทางที่ผมต้องการขึ้นมาครับ ผมแก้ปัญหานี้ไม่ได้จริงๆครับ ผมได้ตรวจสอบตามที่อาจารย์และคุณ bank9597 แนะนำทุกอย่างแล้วครับ แต่ก็ยังหาจุดบอดไม่ได้ครับและโปรแกรมก็ยังไม่เปิดไฟล์ปลายทางขึ้นมา ขอความกรุณาทุกท่านช่วยแนะนำการแก้ปัญหาในครั้งนี้ด้วยนะครับ ขอบคุณครับ
ผมแนบไฟล์ตัวอย่างโปรแกรมจริงมาแล้วนะครับ รบกวนด้วยนะครับ

ปล.ผมทำผิดกฏหรือผิดพลาดประการใด ผมขออภัยด้วยนะครับ

[DhitiBank]

สวัสดีครับ

ผมลองดาวน์โหลดมาช่วยทดสอบโดยเลือกไฟล์มั่วๆ ที่มีในเครื่อง แล้วลองรันโค้ดทีละคำสั่ง ข้อมูลก็มาปรากฏตามรูปครับ

test.png

ไม่ทราบว่าวิธีใช้ไฟล์เป็นแบบนี้หรือเปล่าครับ คือกดปุ่ม "เลือกไฟล์" ในชีท "Normal Display Registers date1" --> เลือกไฟล์ (ผมเลือก 2 ไฟล์) --> Open
ก็มาตามรูปครับ

[bank9597]

ผมทดสอบแล้ว ไม่มีปัญหาใดๆ สามารถเปิดไฟล์ปลายทางได้แต่ "ไม่มีข้อมูลไปบันทึก" ลองดูตัวอย่างการทดสอบตามภาพด้านล่างครับ

ปรับ path ใหม่เป็น

Code: Select all

strPath = "C:\Users\bank9597\Desktop\new\"

ใน Path ดังกล่าวมีไฟล์ 3 ไฟล์ ตามภาพด้านล่าง

ปรับโค๊ดให้หาตำแหน่งข้อมูลที่ต้องการ Copy ใหม่

Code: Select all

Set rSource = wbMain.Sheets(1).Range(strName).Offset(-8, -1).Resize(7, 3)

ผลการ Run ตามภาพด้านล่าง

ผมไม่เจอข้อผิดพลาดในเรื่องการเปิดไฟล์ แต่จะเจอว่าโค๊ดเดิม ไม่ได้ถูกปรับให้ระบุตำแหน่งข้อมูลที่จะนำไปบันทึกได้ถูกต้องอย่างเดียว

[wongsaton]

ขอบคุณมากๆนะครับทุกๆท่าน โปรแกรมผมทำงานได้ดีแล้วครับ ไม่มีปัญหาใดๆแล้วครับ ผมได้ลองปรับ code ดูแล้วครับ
ปัญหาเกิดจากไฟล์ปลายทางครับ เปลี่ยนไฟล์ปลายทางอย่างที่คุณ bank9597 แนะนำ ก็สามารถใช้งานโปรแกรมได้อย่างไม่มีปัญหาครับ

ขอบคุณทุกๆท่านอีกครั้งนะครับ ผมจะต้องนำเสนอหัวหน้าวันจันทร์นี้ครับ ไว้ถ้าเกิดปัญหาใดๆผมขออนุญาติรบกวนอีกนะครับทุกท่าน
ปล.แต่ผมขอให้ไม่มีปัญหาใดๆแล้วนะครับ ขอบคุณครับ