Page 2 of 2

Re: ดึงข้อมูลจากไฟล์อื่นมาบันทึกทุก 30 นาทีแบบไม่ทับข้อมูลเด

Posted: Thu May 16, 2013 11:54 pm
by snasui
:D ผมทดสอบแล้ว Code สำหรับการจับเวลาเพื่อปิดไฟล์ทำงานได้ถูกต้อง คือปิดไฟล์ได้ตามที่ตั้งเวลาไว้ครับ

Re: ดึงข้อมูลจากไฟล์อื่นมาบันทึกทุก 30 นาทีแบบไม่ทับข้อมูลเด

Posted: Fri May 17, 2013 9:01 pm
by P1649
ไฟล์ย่อย Link Data.xlsx ปิดตามเวลา
แต่ไฟล์หลัก Close file.xlsm ยังคงเปิดอยู่ ต้องการให้ปิดตามไปด้วยครับ

Re: ดึงข้อมูลจากไฟล์อื่นมาบันทึกทุก 30 นาทีแบบไม่ทับข้อมูลเด

Posted: Fri May 17, 2013 9:23 pm
by snasui
P1649 wrote:ไฟล์ย่อย Link Data.xlsx ปิดตามเวลา
แต่ไฟล์หลัก Close file.xlsm ยังคงเปิดอยู่ ต้องการให้ปิดตามไปด้วยครับ
ตอบไปแล้วครับ :ard:
snasui wrote::D กรณีต้องการให้ปิดเมื่อถึงเวลาที่กำหนดลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Copy_Data
'Other code
If Now > Date + TimeValue("16:00:00") Then
   Application.OnTime nTime, "SaveFile", , False    
   wk.save
   wk.Close
   Exit Sub
End If
End Sub
กรณีต้องการจะ Save และปิดหลายไฟล์ก็ระบุไฟล์ที่ต้องการ Save และปิดเอาไว้ใน Code ครับ

Re: ดึงข้อมูลจากไฟล์อื่นมาบันทึกทุก 30 นาทีแบบไม่ทับข้อมูลเด

Posted: Sat May 18, 2013 7:28 am
by P1649
ใช้งานได้แล้ว ขอบคุณมากครับ