vba 日期自动加1

长安牛牛8896

如下图所示Textbox的内容为D:\software install\VBA\CRDD_434_Record_P_20200521.csv 如果右边按钮“”日期加1”按一下 Textbox的内容变为D:\software install\VBA\CRDD_434_Record_P_20200522.csv 程序该如何写 ？？

3190496160

Sub 日期加1()
m = Sheet1.TextBox1.Text
rr = Split(Split(m, ".")(0), "_")
rq = rr(UBound(rr))
Sheet1.TextBox1.Text = Replace(m, rq, rq + 1)
End Sub
Sub 日期减1()
m = Sheet1.TextBox1.Text
rr = Split(Split(m, ".")(0), "_")
rq = rr(UBound(rr))
Sheet1.TextBox1.Text = Replace(m, rq, rq - 1)
End Sub

tspliu

Sub aa()
fName = "D:\software install\VBA\CRDD_434_Record_P_20200522.csv"
fnameArr = Split(fName, "_", , vbBinaryCompare)
fPath = Replace(fName, fnameArr(UBound(fnameArr)), "", , , vbBinaryCompare)
nameArr = Split(fnameArr(UBound(fnameArr)), ".", , vbBinaryCompare)
sDate = nameArr(0)
dDate = CDate(Format(sDate, "0000-00-00"))
newname = fPath & "_" & Format(dDate + 1, "yyyymmdd") & "." & nameArr(1)
Debug.Print newname
End Sub