1

ボタンを押したときに新しいフォルダーに自動保存するコードがあります。コードは正常に動作していますが、保存を許可する前に互換性チェッカーが表示されます。自動保存ボタンを使用している人が混乱しないように、この互換性チェッカーを無効にする方法はありますか?

これが私のコードです：

Sub FILESAVE()

        ActiveWorkbook.SaveAs Filename:="H:\Digital Production Control and Tally Sheet Library\ " & Range("'Production Control Sheet'!B2") & _
        Format(Now(), " mm-dd-yyyy hh-mm AMPM"), FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="kpqual", ReadOnlyRecommended:=True, CreateBackup:=False


End Sub

驚くほどうまくいきますが、互換性チェッカーの問題を無効にする方法がわかりません。

4

1 に答える 1

2

これを試して、うまくいくかどうか教えてください：

Sub FILESAVE()
        ' http://msdn.microsoft.com/en-us/library/gg132972(v=office.14).aspx
        '51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
        '52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
        '50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
        '56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)
        ' See more info on http://www.rondebruin.nl/win/s5/win001.htm
        ActiveWorkbook.SaveAs Filename:="H:\Digital Production Control and Tally Sheet Library\ " & Range("'Production Control Sheet'!B2") & _
        Format(Now(), " mm-dd-yyyy hh-mm AMPM"), FileFormat:=52, Password:="", _
        WriteResPassword:="kpqual", ReadOnlyRecommended:=True, CreateBackup:=False    
End Sub
于 2013-10-29T02:10:13.527 に答える