Tõrketeade, kui käivitate Visual Basic for Applications makro Excel: "Method 'SaveAs' of object '_Worksheet' nurjus"

Sümptomid

Kui käivitate Visual Basic for Applications makro Microsoft Excel, võidakse kuvada järgmine või sarnane tõrketeade:

Põhjus

Selline käitumine võib ilmneda juhul, kui täidetud on mõlemad järgmised tingimused.

• Töölehe salvestamiseks kasutate Visual Basic for Applications makrot.
  
  -and-

• Failivormingu saate määrata konstantiks xlWorkbookNormal.

Näiteks järgmine kood põhjustab selle tõrke:

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

Lahendus

Microsoft pakub programmeerimisnäiteid ainult illustratsiooniks, ilma et see oleks väljendatud või kaudse garantiita, sh, kuid mitte ainult, kaudsed garantiid kaubastatavuse ja/või teatud otstarbeks sobivuse kohta. Selles artiklis eeldatakse, et olete tuttav programmeerimiskeele tutvustamisega ning tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugitöötajad saavad teatud protseduuri funktsionaalsust selgitada, kuid nad ei muuda neid näiteid, et pakkuda lisafunktsioone või koostada toiminguid vastavalt teie vajadustele.
Kui programmeerimiskogemus on piiratud, võite pöörduda Microsofti sertifitseeritud partneri või Microsofti nõuandeteenuste poole. Lisateabe saamiseks külastage neid Microsofti veebisaite:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

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

Toevalikute ja Microsoftiga ühenduse mise kohta lisateabe saamiseks külastage järgmist Microsofti veebisaiti:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Selle probleemi lahendamiseks muutke failivormingu määrang konstantsest xlWorkbookNormal-st 1-ks. Näidiskood toimib tavaliselt, kui see on muudetud:

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

MÄRKUS. Isegi kui salvestate töölehte, salvestatakse kõik valitud töövihiku töölehed, kui failivorminguks on seatud xlWorkbookNormal või 1.

Olek

Microsoft on kinnitanud, et see on probleem microsofti toodetes, mis on loetletud selle artikli alguses.