実行時エラー '1004'アプリケーション定義またはオブジェクト定義

Question

私は従業員の開始時刻と終了時刻を追跡するために、HRのファイルを作成しています。私は自分の名前と所要時間を取得し、従業員の名前を使用してファイルを保存するダイアログを開くようにしたいので、人事部はテンプレートを開いてデータを入力し、すべてを1つの流体モーションで保存する必要があります。私はこのすべてのためのサブを作ったといいですが、保存場所が定義された後、私はランタイム '1004'アプリケーション定義またはオブジェクト定義のエラーを取得します。

If ThisWorkbook.BuiltinDocumentProperties("title") = "" Then 
strTitle = "Timesheet " & UCase(strNaam) & " " & StrConv(strVoornaam, 3) 
varDirectory = Application.GetSaveAsFilename(strTitle, "Timesheet Files(*.xlsm), *.xlsm") 
Sheets("Data").Range("B25") = varDirectory 

ActiveSheet.SaveAs Filename:=varDirectory, FileFormat:=25 ------------> error 
ThisWorkbook.BuiltinDocumentProperties("title") = strTitle 

End If 

は、基本的には何かにファイルのタイトルを変更し、それがその後、セルに書き込みを行う場所を選択するためのダイアログ求められます（理想的ではないが、それは素敵な回避策です）。

2行目から最後の行にエラーが表示されます。

Answer 1

25は国際的なマクロ形式です。

希望する、これはOpen XML Macro Enabledです。

ActiveSheet.SaveAs Filename:=varDirectory, FileFormat:=xlOpenXMLWorkbookMacroEnabled