Poruka o grešci kada pokrenete makro programa Visual Basic for Applications u programu Excel: "metod" SaveAs ' objekta ' _Worksheet "nije uspeo"

Simptomi

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

Greška u vremenu "1004": metod "SaveAs" objekta "_Worksheet" nije uspeo

Uzrok

Do ovog ponašanja može doći kada su ispunjeni sledeći uslovi:

  • Za čuvanje radnog lista koristite makro Visual Basic for Applications.-i-

  • Format datoteke navodite kao konstantu Xlradimenika Normal.

Na primer, sledeći kôd uzrokuje da se ova greška pojavi:

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

Rešenje

Microsoft obezbeđuje primere programiranja samo za ilustraciju, bez izričite ili implicitne, uključujući, ali ne ograničavajući se na, podrazumevane garancije o mogućnostima prodaje i/ili prikladnosti za određenu namenu. Ovaj članak pretpostavlja da ste upoznati sa programskim jezikom koji se pokazuje i alatke koje se koriste za kreiranje i otklanjanje grešaka u procedurama. Stručnjaci za podršku korporacije Microsoft mogu da pomognu u objašnjenju funkcionalnosti određene procedure, ali neće izmeniti te primere da bi obezbedili dodatnu funkcionalnost ili izgradnju procedura kako bi ispunile vaše specifične potrebe. Ako imate ograničeno iskustvo programiranja, možda ćete želeti da se obratite Microsoft certifikovanim partnerima ili Microsoft Savjetnim uslugama. Za više informacija posetite ove Microsoft Web lokacije: Microsoft certifikovani partneri- Microsoft savetodavne usluge- za više informacija o opcijama podrške koje su dostupne i o tome kako da se obratite korporaciji Microsoft posetite sledeću microsoft Web lokaciju:Da biste zaobišli ovo ponašanje, promenite specifikaciju formata datoteke iz konstante "Konstanta Xlradimenika " na 1. Funkcija "primer koda" obično ako se promeni u:

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

Beleške Iako čuvate radni list, svi radni listovi u izabranoj radnoj svesci biće sačuvani kada je format datoteke postavljen na Xlradimenika Normal ili 1.

Status

Microsoft je potvrdio da je ovo problem kod Microsoft proizvoda koji su navedeni na početku ovog članka.

Potrebna vam je dodatna pomoć?

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Microsoft insajdere

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Izgleda da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×