Snasui Excel Forum

โอเค ได้แล้วคะ จากเดิม rt.PasteSpecial xlPasteValues เพิ่ม
rt.PasteSpecial xlPasteFormats เข้าไปอีกบรรทัด ได้ตามแบบที่ต้องการแป๊ะเลย

มีวิธีPast แบบให้ Format มันมาด้วยหรือป่าวคะ

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

ตอนนี้กำลังหา การส่งค่าที่เส้นตารางไปด้วยคะ ใช้ rt.PasteSpecial xlPasteValues ส่งไปแต่ค่า

ตอนนี้ดึงข้อมูลข้ามไฟล์ได้แล้ว แต่มันไม่ต่อท้ายตาราง มันไปแทนที่ อันเก่าคะ
Sub PasteData()
Dim db As Worksheet
Dim ws As Worksheet
Dim objWorkbook As Workbook
Dim rs As Range
Dim rt As Range
Set objWorkbook = Workbooks.Open("D:\book1.xlsx")
Set db = objWorkbook.Sheets("sheet1")
Set ws = Workbooks ...

ขอบคุณคะ ตอนนี้สามารถส่งในWorksheetเดียวกัน และคนละWorkSheet ได้แล้ว แต่ไม่สามารถส่งข้าม workbook ได้คะ

ได้ลองทดลองใช้ offset ส่งข้อมูลข้ามชีท ได้แล้ว แต่ไม่สามารถส่งข้ามไฟล์ได้คะ มีไฟล์ตัวอย่างแนบมา รบกวนช่วยชี้แนะด้วยคะ
ต้องการส่งจากไฟล์ main ไปไฟล์ subคะ

คะ ขอบคุณมากคะ

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