Sporočilo o napaki, ko zaženete makro VBA v programu Excel: »Način »Shrani kot« predmeta »_Worksheet« ni uspel«

Znaki

Ko zaženete VBA makro v Microsoft Excel, se lahko prikaže to ali podobno sporočilo o napaki:

Razlog

Do tega lahko pride, če sta oba pogoja resnična:

• Za shranjevanje delovnega VBA uporabljate makro programa.
  
  in-

• Obliko zapisa datoteke določite kot konstanto xlWorkbookNormal.

Ta koda na primer povzroči to napako:

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

Rešitev

Microsoft zagotavlja primere programiranja samo za ilustracijo, brez jamstva, izraženega ali naznačenega, vključno z, vendar ne omejeno na, naznačena jamstva glede primernosti za prodajo ali telesno pripravljenost za določen namen. V tem članku je predvidevamo, da poznate jezik programiranja, ki je prikazan, in orodja, ki se uporabljajo za ustvarjanje in odpravljanje napak v postopkih. Microsoftovi strokovnjaki za podporo vam lahko razložijo delovanje določenega postopka, vendar pa teh primerov ne bodo spremenili, da bi zagotovili dodatne funkcije ali sestaviti postopkov, ki ustrezajo vašim potrebam.
Če imate omejeno izkušnjo programiranja, se obrnite na partnerja Microsoft Certified Partner ali storitve Microsoft Advisory Services. Če želite več informacij, obiščite ta Microsoftova spletna mesta:

Microsoftovi potrjeni partnerji – https://partner.microsoft.com/global/30000104

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

Če želite več informacij o možnostih podpore, ki so na voljo, in o tem, kako stopite v stik z Microsoftom, obiščite to Microsoftovo spletno mesto:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Če želite tej težavi spremeniti specifikacijo oblike zapisa datoteke iz konstante xlWorkbookNormal na 1. Vzorčna koda deluje normalno, če je bila spremenjena v:

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

OPOMBA Čeprav shranjujete delovni list, so vsi delovni listi v izbranem delovnem zvezku shranjeni, ko je oblika zapisa datoteke nastavljena na xlWorkbookNormal ali 1.

Stanje

Microsoft je potrdil, da gre za težavo v Microsoftovih izdelkih, ki so navedeni na začetku tega članka.