17

.xlsファイルをファイルに変換する VBA プログラムを作成してい.csvます。問題は、"Do you want to save the changes to myFile.csv?"ダイアログ ボックスが表示されることです。

ここに私のコードのスニペットがあります:

currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges    
currentBook.Close SaveChanges:=False

myFile.csv「変更を保存しますか?」というメッセージが表示されないようにするには、何を追加する必要がありますか? ダイアログボックス?

4

2 に答える 2

19

使ってみてThisWorkbook.Saved = True

        Application.DisplayAlerts = False
        currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
        currentBook.Saved = True            
        currentBook.Close SaveChanges:=False
        Application.DisplayAlerts = True
于 2012-06-27T08:41:54.250 に答える
2

これは私が過去に行ったことであり、私にとってはうまくいきました:

Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, conflictResolution:=xlLocalSessionChanges
Application.DisplayAlerts = True
ActiveWorkbook.Close False

DisplayAlerts が true にリセットされる前に Close を入れてみることもできます...

于 2012-06-27T07:05:29.000 に答える