Excel

自動上書きでworkbook.saveasを使用する方法



How Use Workbook Saveas With Automatic Overwrite



解決：

プロンプトセットを非表示にするにはxls.DisplayAlerts = False

ConflictResolutionはtrueまたは偽のプロパティ、それはする必要がありますxlLocalSessionChanges



ノート ただし、これは上書きプロンプトの表示とは関係ありません。

Set xls = CreateObject（ 'Excel.Application'）xls.DisplayAlerts = False Set wb = xls.Workbooks.Add fullFilePath = importFolderPath＆ ''＆ 'A.xlsx' wb.SaveAs fullFilePath、AccessMode：= xlExclusive、ConflictResolution：= Excel.XlSaveConflictResolution.xlLocalSessionChanges wb.Close（True） 
SaveAsを実行する前に、存在するファイルを削除することをお勧めします。
 
 
 
If Dir（ 'f：ull  path  with  filename.xls'） '' Then Kill'f：ull  path  with  filename.xls 'End If
DisplayAlertsをオフにしてからオンに設定するよりも簡単です。さらに、コードのクラッシュのためにDisplayAlertsがオフのままである場合、同じセッションでExcelを操作すると問題が発生する可能性があります。
  
意見の違いを分割するには
 
私が好む：
 
 
 
xls.DisplayAlerts = False wb.SaveAs fullFilePath、AccessMode：= xlExclusive、ConflictResolution：= xlLocalSessionChanges xls.DisplayAlerts = True