Poruka o grešci kada pokrenete makro Visual Basic za aplikacije u programu Excel: "Metod "Čuvanje" objekta "_Worksheet" nije uspeo"

Simptomi

Kada pokrenete makro Visual Basic za aplikacije u programu Microsoft Excel, možete dobiti sledeću ili sličnu poruku o grešci:

Uzrok

Do ovog ponašanja može doći kada su ispunjena oba sledeća uslova:

• Koristite makro programa Visual Basic aplikacije da biste sačuvali radni list.
  
  - i-

• Format datoteke navodite kao konstantu xlWorkbookNormal.

Na primer, sledeći kôd izaziva pojavu ove greške:

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

Zaokrenite posao

Microsoft pruža primere programiranog samo za ilustraciju, bez bilo izražene ili implicirane garancije, uključujući, ali ne i ograničene, implicirane garancije za podsajtovo i/ili podsajtovo za određenu namenu. U ovom članku se pretpostavlja da ste upoznati sa programiranjem koji se prikazuje i alatkama koje se koriste za pravljenje procedura i otklanjanje grešaka. Microsoft stručnjaci za podršku mogu da vam pomognu da objasnite funkcionalnost određene procedure, ali neće izmeniti ove primere da bi pružili dodatnu funkcionalnost ili konstruktivne procedure u cilju ispunjavanja određenih potreba.
Ako imate ograničeno iskustvo pri programiranju, možda ćete želeti da se obratite Microsoft certifikovanim partnerima ili Microsoft savetodavnim uslugama. Dodatne informacije potražite na ovim Microsoft veb lokacijama:

Microsoft certifikovani partneri – https://partner.microsoft.com/global/30000104

Microsoft savetodavne usluge – http://support.microsoft.com/gp/advisoryservice

Dodatne informacije o opcijama podrške koje su dostupne i o tome kako da se obratite korporaciji Microsoft potražite na sledećoj Microsoft veb lokaciji:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Da biste zaobišli ovo ponašanje, promenite specifikaciju formata datoteke sa konstante xlWorkbookNormal na 1. Primer koda normalno funkcioniše ako se promeni u:

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

NA PRIMER, čak i ako čuvate radni list, svi radni listovi u izabranoj radnoj svesci čuvaju se kada se format datoteke postavi na xlWorkbookNormal ili 1.

Status

Microsoft je potvrdio da je u tome problem u Microsoft proizvodima koji su navedeni na početku ovog članka.