Excel'ta bir makroyu Visual Basic for Applications hata iletisi: "Nesnenin 'SaveA'ları' yöntemi _Worksheet başarısız oldu"

Belirtiler

Bir makroyu Visual Basic for Applications makroyu Microsoft Excel, aşağıdaki veya benzer hata iletisini alabilirsiniz:

Neden

Bu davranış, aşağıdaki koşullardan her ikisi de doğru olduğunda ortaya çıkabilir:

• Çalışma sayfasını kaydetmek Visual Basic for Applications bir makro kullanıyorsanız.
  
  -ve-

• Dosya biçimini xlWorkbookNormal sabiti olarak belirtirsiniz.

Örneğin, aşağıdaki kod bu hataya neden olur:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=xlWorkbookNormal
End Sub

Geçici Çözüm

Microsoft, satılabilirlik ve/veya belirli bir amaca uygunluk ile ilgili zımni garantiler dahil, ancak bunlarla sınırlı değildir ve yalnızca çizim için programlama örnekleri sağlar. Bu makalede, programlama dilinin ve yordamları oluşturmak ve hata ayıklamak için kullanılan araçlar hakkında bilgi sahibi olduğunuz varsaymaktadır. Microsoft destek uzmanları belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir, ancak bu örnekleri değiştirerek sizin özel ihtiyaçlarınızı karşılayacak ek işlevler veya yapı yordamları sağlamaz.
Sınırlı programlama deneyiminiz varsa, Microsoft Sertifikalı İş Ortağına veya Microsoft Danışma Hizmetleri'ne başvurabilirsiniz. Daha fazla bilgi için şu Microsoft Web sitelerini ziyaret edin:

Microsoft Sertifikalı İş Ortakları - https://partner.microsoft.com/global/30000104

Microsoft Danışma Hizmetleri - http://support.microsoft.com/gp/advisoryservice

Bizli destek seçenekleri ve Microsoft'a başvurun hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Bu davranışa bir son olarak, dosya biçimi belirtimsini xlWorkbookNormal sabiti olan 1 olarak değiştirebilirsiniz. Örnek kod aşağıdaki şekilde değiştirilirse normal şekilde işlev gösterir:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=1
End Sub

NOT Çalışma sayfasını kaydedse bile, dosya biçimi xlWorkbookNormal veya 1 olarak ayarlanmışsa, seçili çalışma kitabındaki tüm çalışma sayfaları kaydedilir.

Durum

Microsoft, bu makalenin başında listelenen Microsoft ürünlerinde bunun bir sorun olduğunu onaylar.