Excel : Save As แบบ Auto ต่อท้ายชื่อไฟล์ด้วยวันเวลา ทำได้?

image

ใครที่ใช้ Excel กับงานเช่นแสดงค่าจาก OPC Server แล้วต้องการให้ Save As อัตโนมัติ โดยระบุเวลาไว้ในชื่อไฟล์ด้วย ดูวิธีการทางนี้ครับ

ต่อเนื่องจากบทความ จะสร้าง Timer บน Excel ได้อย่างไร เราสามารถให้ Excel ทำการ Save As ตัวเองเป็นชื่อไฟล์ที่มีวันที่เวลาอยู่ในชื่อไฟล์ได้ โดยแก้ไขโค้ดใน Module1 เป็นดังแสดงด้านล่าง

image

 

Public Sub The_Timer()

Dim fileName As String

fileName = Replace(DateTime.Now, "/", "_") & ".xls"
fileName = Replace(fileName, ":", "_") & ".xls"

ThisWorkbook.SaveAs "C:\test" & fileName


Sheet1.StartTimer
End Sub

โดยโค้ด

fileName = Replace(DateTime.Now, "/", "_") & ".xls"

เป็นการเปลี่ยนเครื่องหมาย “/” ที่อยู่ในวันที่ให้เป็น “_”

และ

fileName = Replace(fileName, ":", "_") & ".xls"

เป็นการเปลี่ยนเครื่องหมาย “:” ที่อยู่ในเวลาให้เป็น “_”

ก่อนที่จะ Save As

การต้องเวลาให้ทำใน Sheet1 เช่นจากรูปคือให้ Timer ทำงานทุก 1 ชั่วโมง

image

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s