çalışma zamanı hatası '1004' uygulama tanımlı veya nesne tanımlı

Question

Çalışanların başlangıç ​​ve bitiş zamanlarını takip edebilmek için bir dosya üzerinde çalışıyorum. İsmini ve saatlerini aldım ve dosyanın adını çalışanın adını kullanarak kaydetmek için iletişim kutusu olarak bir kaydetme açmak istiyorum, böylece İK departmanı sadece şablonu açmalı ve verileri doldurmalı ve hepsi bir arada sıvı hareketi yapmalıdır. Tüm bunlar için bir alt yaptı ve güzel çalışıyor, ancak kaydetme konumu tanımlandıktan sonra, bir çalışma zamanı '1004' uygulama tanımlı veya nesne tanımlı bir hata alıyorum.

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 

Temelde bir şeyle dosyanın başlığını değiştirir ve daha sonra bir hücrede yazıyor konumu seçmek için bir iletişim ister (ideal değil, ama güzel bir geçici çözüm var).

İkinci satırdan son satırdaki hatayı alıyorum.

Answer 1

25 Uluslararası Makro formatıdır.

Açık XML Makro Etkin olan öğesini istiyorsunuz.

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