رسالة الخطأ عند تشغيل ماكرو Visual Basic for Applications في Excel: "فشل الأسلوب "SaveAs" للكائن "_Worksheet"

الأعراض

عند تشغيل ماكرو Visual Basic for Applications في Microsoft Excel، قد تتلقى رسالة الخطأ التالية أو ما شابه ذلك:

ملاحظة

خطأ وقت التشغيل '1004':
فشل الأسلوب "SaveAs" للكائن "_Worksheet"

السبب

يمكن أن يحدث هذا السلوك عندما يكون كلا الشرطين التاليين صحيحا:

  • أنت تستخدم ماكرو Visual Basic for Applications لحفظ ورقة عمل.

    -و-

  • يمكنك تحديد تنسيق الملف ك xlWorkbookNormal ثابت.

على سبيل المثال، تتسبب التعليمات البرمجية التالية في حدوث هذا الخطأ:

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

الحل البديل

توفر Microsoft أمثلة برمجة للتوضيح فقط، دون ضمان سواء تم التعبير عنه أو ضمنيا، بما في ذلك، على سبيل المثال لا الحصر، الضمانات الضمنية لقابلية التجار و/أو اللياقة لغرض معين. تفترض هذه المقالة أنك على دراية بلغة البرمجة التي يتم توضيحها والأدوات المستخدمة لإنشاء إجراءات وتصحيح الأخطاء. يمكن لمتخصصي دعم Microsoft المساعدة في شرح وظائف إجراء معين، لكنهم لن يعدلوا هذه الأمثلة لتوفير وظائف إضافية أو إجراءات بناء لتلبية احتياجاتك المحددة.
إذا كانت لديك خبرة محدودة في البرمجة، فقد ترغب في الاتصال بشريك معتمد من Microsoft أو خدمات Microsoft الاستشارية. لمزيد من المعلومات، تفضل بزيارة مواقع Microsoft على ويب هذه:

شركاء معتمدون من Microsoft - https://partner.microsoft.com/global/30000104

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

لمزيد من المعلومات حول خيارات الدعم المتوفرة وكيفية الاتصال ب Microsoft، تفضل بزيارة موقع Microsoft على ويب التالي:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

للتغلب على هذا السلوك، قم بتغيير مواصفات تنسيق الملف من xlWorkbookNormal الثابت إلى 1. يعمل مثال التعليمات البرمجية بشكل طبيعي إذا تم تغييره إلى:

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

ملاحظة على الرغم من حفظ ورقة عمل، يتم حفظ كافة أوراق العمل في المصنف المحدد عند تعيين تنسيق الملف إلى xlWorkbookNormal أو 1.

الحالة

أكدت Microsoft أن هذه مشكلة في منتجات Microsoft المدرجة في بداية هذه المقالة.