Artikli ID: 213489 - Vaadake tooteid, millega see artikkel seostub.
Laienda kõik | Ahenda kõik

Sellel veebilehel

SÜMPTOMID

Pöördumisel Exceli poole OLE-automatiseerimise objektina CreateObjecti käsu abil ei laeta lisandmooduleid, kaustas XLStart asuvaid faile ega vaikimisi uut töövihikut.

PÕHJUS

Kui proovite lisandmooduleid ja faile laadida, saadab Excel kutsuvale rakendusele, nagu Visual Basic, teate, et rakendus ei ole valmis päringule vastama ja soovitab hiljem uuesti proovida. Kutsuv rakendus ei pruugi seda päringut käsitseda ega järgnevate käskudega jätkata.

VASTUKAAL

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ja igasuguse otsese või kaudse garantiita. See hõlmab (kuid mitte ainult) kaubastatavuse või kindlaks otstarbeks sobivusega seotud kaudseid garantiisid. Käesolevas artiklis eeldatakse, et olete demonstreeritava programmeerimiskeelega ning protseduuride loomiseks ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Küll aga ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega koosta teie konkreetsetele nõuetele vastavaid protseduure.

Lisandmooduli laadimiseks Exceli käivitamisel OLE-automatiseerimise objektina laadige lisandmoodul käsitsi. Järgnevad näited selle meetodi kohta.

Microsoft Office Excel 2007

Sub LoadAddin()

   ' Dimensioonimuutuja xl objektitüübina.
   Dim xl As Object

   ' Aktiveeri Microsoft Excel ja määra muutujale xl.
   Set XL = CreateObject("Excel.Application")

   ' Ava soovitud lisandmooduli fail, selle näite puhul XLQUERY.XLAM.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLAM")

   ' Kui soovite ressusis (XLL) sisalduvad funktsioonid
   ' ja käsu registrisse kanda, kasutage RegisterXLL-i meetodit.
   ' Selles näites on kõik Analys32.xll funktsioonid
   ' registreeritud.
   ' XL.RegisterXLL "Analys32.xll"

   ' Käivitage kõik lisandmooduli failis sisalduvad automaatsed makrod
   ' Automaatsed makrod ei käivitu faili avamisel
   ' kui kasutate meetodit Open.
   XL.Workbooks("xlquery.xlam").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

Microsoft Office Excel 2003 ja Exceli varasemad versioonid

Sub LoadAddin()

   ' Dimensioonimuutuja xl objektitüübina.
   Dim xl As Object

   ' Aktiveeri Microsoft Excel ja määra muutujale xl.
   Set XL = CreateObject("Excel.Application")

   ' Ava soovitud lisandmooduli fail, selle näite puhul XLQUERY.XLA.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLA")

   ' Kui soovite ressursis (XLL) sisalduvad funktsioonid
   ' ja käsu registrisse kanda, kasutage RegisterXLL-i meetodit.
   ' Selles näites on kõik Analys32.xll funktsioonid
   ' registreeritud.
   ' XL.RegisterXLL "Analys32.xll"

   ' Käivitage kõik lisandmooduli failis sisalduvad automaatsed makrod
   ' Automaatsed makrod ei käivitu faili avamisel
   ' kui kasutate meetodit Open.
   XL.Workbooks("xlquery.xlam").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

LISATEAVE

Et Excel ei lae OLE-automatiseerimise objektina välja kutsumisel lisandmooduleid ega faile kaustas XLStart, peate laadimisprotsessi üle omama täielikku kontrolli. Kui soovite lisandmoodulit laadida, saate seda teha käsitsi.

Selline käitumine tähendab ühtlasi, et makrode puudumise tõrked jalukustatud või kirjutuskaitstud failid takistavad Excelit CreateObjecti käsu väljakutsel laadimast. Selle käitumise eeliseks on, et Exceli laadimine võtab vähem aega kui lisandmoodulite või failide laadimise korral.

VIITED

Juhendava spikri allalaadimise kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit:
226118 Ressursiloend, mis on saadaval programmeerimiseks rakendusega Visual Basic for Applications

Atribuudid

Artikli ID: 213489 - Viimati läbi vaadatud: 18. september 2011 - Redaktsioon: 2.0
KEHTIB JÄRGMISE LÕIGU KOHTA:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Märksõnad: 
kbautomation kbvba kbexpertiseinter kbdtacode kbprb kbprogramming KB213489

Andke tagasisidet

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com