excel - 如何使用当前文件名将文件另存为 csv

Question

我创建了一个宏来转换我的数据的日期格式，然后将文件保存为 csv 格式（文件格式最初是 Excel）。我需要在多个文件上运行这个宏，所以需要根据当前文件名更改保存名称。我有以下代码，但它不会工作：

Sub Conversion()
'
' Conversion Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Dim OutputFile As String

    Columns("F:G").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A1").Select
    ChDir "S:\BCC\MDT Teams\Yale\AXA\Orbit Implementation\TRS\DTO Access Exports"
    ActiveWorkbook.SaveAs Filename:= _
        "S:\BCC\MDT Teams\Yale\AXA\Orbit Implementation\TRS\DTO Access Exports\DTO_" + ActiveWorkbook.FullName + ".csv", _
         FileFormat:=xlCSV, CreateBackup:=False
End Sub

Answer 1

ActiveWorkbook.FullName包括完整路径。
ActiveWorkbook.Name只有文件名

请注意，两者的文件扩展名仍然存在，因此使用replace(activeworkbook.Name,".xlsm","") （更改扩展名以满足您的需要）应该可以解决该问题