https://stackoverflow.com/questions/43848083/vba-download-a-file-from-onedrive

โค้ดชุดล่างสุดนะครับ และเติมบรรทัด Dim oStream As Object เพิ่มเข้าไปด้วย

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

อย่างง่ายๆ คือกำหนดเวอร์ชั่นลงในไฟล์โปรแกรมที่เรากำลังใช้งานอยู่ อาจเป็น Public Constant สักค่าก็ได้ ในทำนองเดียวกัน ไฟล์อัพเดตก็ต้องมีเลขเวอร์ชั่นใหม่ด้วย แล้วสร้างเท็กซ์ไฟล์เล็กๆอีกไฟล์ที่มีชื่อแน่นอนตายตัว เช่น version.txt โดยใส่เลขเวอร์ชั่นเลขใหม่ลงในไฟล์นี้ด้วย ดังนั้นพอจะทำการเช็คว่ามีไฟล์อัพเดตใหม่กว่าเวอร์ขั่นที่เรากำลังใช้งานอยู่หรือไม่ ก็ให้ไปอ่านไฟล์ version.txt เสียก่อน แล้วเทียบเลขเวอร์ชั่นปัจจุบันจาก Public Constant กับค่าใน version.txt ถ้าใหม่กว่า ก็ค่อยไปอ่านไฟล์อัพเดตมาใช้งานต่อไป

แล้วการเขียน vba ให้ไปอ่านเลขเวอร์ชัน ต้องทำยังไงครับ สมมติว่าในโปรแกรมเรามี table เก็บค่า version ไว้ รบกวนด้วยครับ

ใช้ฟังก์ชั่น DLookup ก็ได้ครับ

ชื่อตัวแปร = Dlookup("ชื่อฟิลด์ที่เก็บเลขเวอร์ชั่น","ชื่อเทเบิล","เงื่อนไข เช่น ID=1")

ส่วนการอ่านเท็กซ์ไฟล์ ดู ตย. ได้ใน https://msdn.microsoft.com/VBA/Language-Reference-VBA/articles/line-inputstatement