Vba 如何在记事本中打开最近创建的csv文件？

我有一个简单的代码，它创建了一个csv文件，并将实际文件保存在另一个文件夹中。创建csv后，如何在记事本中打开最近创建的文件

下面是代码，我尝试调用Shell，但没有成功

 Sub ConvertTocsv()


ChDir "S:\Back Office\Tradar\DailyReportBDP"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
    ("S:\Back Office\Tradar\DailyReportBDP\Custom_Daily_Report_BDP_" & Format(Now(), "YYYYMMDD") & ".csv"), FileFormat:=xlCSV, CreateBackup:=True, Local:=True
Application.DisplayAlerts = True


Information.Show


Call Shell("explorer.exe" & " " & "S:\Back Office\Tradar\DailyReportBDP", vbNormalFocus)


End Sub

请提供一些意见。谢谢。

解决了它，这里：

Sub ConvertTocsv()

Dim strfilename As String
strfilename = "S:\Back Office\Tradar\DailyReportBDP\Custom_Daily_Report_BDP_" & Format(Now(), "YYYYMMDD") & ".csv"

ChDir "S:\Back Office\Tradar\DailyReportBDP"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
    ("S:\Back Office\Tradar\DailyReportBDP\Custom_Daily_Report_BDP_" & Format(Now(), "YYYYMMDD") & ".csv"), FileFormat:=xlCSV, CreateBackup:=True, Local:=True
Application.DisplayAlerts = True



Information.Show


returnvalue = Shell("notepad.exe " & strfilename, vbNormalFocus)

ActiveWorkbook.Close SaveChanges:=False

End Sub

---

可能重复感谢，但您发布的解决方案会打开特定文件。在我的例子中，文件名在转换为csv后每天都在变化。明天我可以提供“ConvertoCSV”宏的代码。可以使用该代码。如何用最近创建的csv替换strfilename？returnvalue=Shell（“notepad.exe”&strfilename，vbNormalFocus）请回答问题并包含您的代码