ต้องการเปิดไฟล์งานวันที่ปัจจุบัน
Posted: Mon Jun 12, 2023 10:03 pm
ต้องการเปิดไฟล์งานวันที่ปัจจุบัน ด้วยโค้ด vba แต่เปิดไม่ได้น่ะค่ะ ติด debug ต้องปรับโค้ด ยังไงให้ได้คะ
Code: Select all
Sub OpenFileToday()
ChDir "D:\UserName"
' Workbooks.Open Filename:="D:\UserName\EEE-2023-06-12.xls"
Workbooks.Open Filename:="D:\UserName\" & "EEE" & "-" & Format(ActiveCell.FormulaR1C1 = Today(), "yyyy-mm-dd") & ".xls"
' ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A1").Select
End Sub
ปรับ Statement นี้ครับ