如何使用當前文件名將文件另存爲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","")（修改擴展，以滿足您的需求）應該可以解決這個問題