0

データの日付形式を変換し、ファイルを 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
4

1 に答える 1

1

ActiveWorkbook.FullNameフルパスが含まれます。
ActiveWorkbook.Nameファイル名だけです

両方ともファイル拡張子がまだそこにあることに注意してください。そのため、replace(activeworkbook.Name,".xlsm","") （必要に応じて拡張子を変更してください）を使用すると、その問題が修正されます。

于 2012-06-22T13:23:53.127 に答える