Kļūdas ziņojums, atverot Visual Basic for Applications makro programmā Excel: "Metode 'Saglabāt kā' no objekta '_Worksheet' neizdevās"

Simptomi

Programmā Microsoft Excel palaižot pievienojošos Visual Basic for Applications, var tikt parādīts šāds vai līdzīgs kļūdas ziņojums:

Cēlonis

Šī darbība var rasties, ja ir spēkā abi šie nosacījumi:

• Darblapas saglabāšanai Visual Basic izmantota makro for Applications.
  
  -un-

• Faila formātu var norādīt kā konstanti xlWorkbookNormal.

Piemēram, šis kods izraisa šādas kļūdas rašanās:

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

Risinājums

Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bez garantijas, ko sniedz tieša vai netieša, tostarp, bet ne tikai, netiešās garantijas par piemērotību pārdošanai un/vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt parādīto programmēšanas valodu un rīkus, kas tiek izmantoti procedūru veidojiet un atkļūdot. Microsoft atbalsta speciālisti var palīdzēt izskaidrot konkrētas procedūras funkcionalitāti, bet viņi šos piemērus nemodificēs, lai nodrošinātu papildu funkcionalitāti vai uzbūves procedūras, kas atbilst jūsu konkrētajām vajadzībām.
Ja programmēšanas iespējas ir ierobežotas, iespējams, vēlēsities sazināties ar Microsoft sertificēto partneri vai Microsoft konsultāciju pakalpojumiem. Lai iegūtu papildinformāciju, apmeklējiet šīs Microsoft tīmekļa vietnes:

Microsoft sertificētie partneri - https://partner.microsoft.com/global/30000104

Microsoft konsultāciju pakalpojumi - http://support.microsoft.com/gp/advisoryservice

Lai iegūtu papildinformāciju par pieejamajām atbalsta opcijām un to, kā sazināties ar Microsoft, apmeklējiet šo Microsoft tīmekļa vietni:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Lai novērstu šo problēmu, mainiet faila formāta specifikāciju no konstantes xlWorkbookNormal uz 1. Koda piemērs darbojas kā parasti, ja tiek mainīts uz:

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

PIEZĪME Lai gan tiek saglabāta darblapa, visas atlasītās darbgrāmatas darblapas tiek saglabātas, ja faila formāts ir iestatīts uz xlWorkbookNormal vai 1.

Statuss

Microsoft ir apstiprinājusi, ka šī ir problēma Microsoft produktos, kas norādīti šī raksta sākumā.