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

【问题标题】：How to Save a file as csv using the current file name如何使用当前文件名将文件另存为 csv
【发布时间】：2012-06-22 13:13:15
【问题描述】：

我创建了一个宏来转换我的数据的日期格式，然后将文件保存为 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

【问题讨论】：

标签： excel vba

【解决方案1】：

ActiveWorkbook.FullName 包含完整路径。
ActiveWorkbook.Name 仅包含文件名

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

【讨论】：