Töötate praegu ühenduseta, ootame Interneti-ühenduse taasloomist

CreateObject äsu kasutamisel Excelis lisamooduleid ei laeta

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
personal.xls personal macro workbook XL2000 XL2002 XL2003 XL2007
Atribuudid

Artikli ID: 213489 – viimati läbi vaadatud: 09/18/2011 23:16:00 – redaktsioon: 2.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition

  • kbautomation kbvba kbexpertiseinter kbdtacode kbprb kbprogramming KB213489
Tagasiside