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","") （根据您的需要更改扩展名）应解决该问题

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

1 个答案: