Question

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

这是代码，我尝试使用Call 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

请提供一些输入。谢谢。

Answer 1

在这里解决了

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文件？

1 个答案: