Μήνυμα σφάλματος κατά την εκτέλεση μιας μακροεντολής Visual Basic for Applications στο Excel: Απέτυχε η "Μέθοδος αποθήκευσης' του αντικειμένου '_Worksheet'"

Συμπτώματα

Όταν εκτελείτε μια Visual Basic for Applications μακροεντολή σε Microsoft Excel, ενδέχεται να λάβετε το ακόλουθο ή παρόμοιο μήνυμα σφάλματος:

Αιτία

Αυτή η συμπεριφορά μπορεί να προκύψει όταν ισχύουν και οι δύο ακόλουθες συνθήκες:

• Χρησιμοποιείτε μια μακροεντολή 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 provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων. Οι επαγγελματίες τεχνικής υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν επιπλέον λειτουργίες ή εποικοδομητικές διαδικασίες που ανταποκρίνονται στις συγκεκριμένες ανάγκες σας.
Εάν έχετε περιορισμένη εμπειρία προγραμματισμού, μπορείτε να επικοινωνήσετε με έναν Πιστοποιημένο συνεργάτη της Microsoft ή με τις Συμβουλευτικές υπηρεσίες της Microsoft. Για περισσότερες πληροφορίες, επισκεφτείτε αυτές τις τοποθεσίες Web της Microsoft:

Πιστοποιημένοι συνεργάτες της Microsoft - https://partner.microsoft.com/global/30000104

Συμβουλευτικές υπηρεσίες της Microsoft - http://support.microsoft.com/gp/advisoryservice

Για περισσότερες πληροφορίες σχετικά με τις διαθέσιμες επιλογές υποστήριξης και σχετικά με τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία Web της 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 που παρατίθενται στην αρχή αυτού του άρθρου.