ต้องการเปิดไฟล์งานวันที่ปัจจุบัน

[March201711]

ต้องการเปิดไฟล์งานวันที่ปัจจุบัน ด้วยโค้ด 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

[snasui]

ปรับ Statement นี้ครับ

จาก Workbooks.Open Filename:="D:\UserName\" & "EEE" & "-" & Format(ActiveCell.FormulaR1C1 = Today(), "yyyy-mm-dd") & ".xls"

เป็น Workbooks.Open Filename:="D:\UserName\" & "EEE" & "-" & Format(Date(), "yyyy-mm-dd") & ".xls"

[March201711]

ได้แล้วค่ะ ขอบคุณค่ะ