ID članka: 213489 - Oglejte si izdelke, na katere se nanaša ta članek.
Razširi vse | Zmanjšaj

Na tej strani

SIMPTOMI

Ko Microsoft Excel odprete kot predmet avtomatizacije OLE z ukazom CreateObject, dodatki, datoteke v imeniku XLStart in privzeti novi delovni zvezek niso naloženi.

VZROK

Ko poskušate naložiti dodatke in datoteke, Excel pošlje sporočilo programu, ki kliče, kot je Visual Basic, da še ni pripravljen na izpolnjevanje zahteve in naj poskusi pozneje. Program, ki kliče, morda ne more obdelati te zahteve in nadaljuje z ostalimi ukazi.

ZAČASNA REŠITEV

Microsoft ponuja primere za programiranje le za ponazoritev, in sicer brez izrecnih ali naznačenih jamstev. To vključuje, a ni omejeno na naznačena jamstva glede primernosti za prodajo ali določen namen. V tem članku predvidevamo, da poznate programski jezik, ki je uporabljen za primer, in orodja za ustvarjanje procedur ter odpravljanje napak v njih. Microsoftovi inženirji za podporo vam lahko razložijo funkcionalnost posameznega postopka. Ne bodo pa spreminjali primerov, da bi zagotovili dodatno funkcionalnost ali sestavili procedure, s katerimi bi izpolnili vaše posebne zahteve.

Če želite naložiti datoteko dodatka, ko Excel zaženete kot predmet avtomatizacije OLE, dodatek naložite ročno. Primeri tega načina so navedeni v nadaljevanju.

Microsoft Office Excel 2007

Sub LoadAddin()

   ' Dimension variable xl as object type.
   Dim xl As Object

   ' Activate Microsoft Excel and assign to variable xl.
   Set XL = CreateObject("Excel.Application")

   ' Open the add-in file you want, in this example, XLQUERY.XLAM.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLAM")

   ' If you need to register the functions and commands
   ' contained in a resource (XLL), use the RegisterXLL method.
   ' In the example below, all functions of Analys32.xll are
   ' registered.
   ' XL.RegisterXLL "Analys32.xll"

   ' Run any auto macros contained in the add-in file
   ' Auto macros don't run when you open a file
   ' using the Open method.
   XL.Workbooks("xlquery.xlam").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

Microsoft Office Excel 2003 in prejšnje različice Excela

Sub LoadAddin()

   ' Dimension variable xl as object type.
   Dim xl As Object

   ' Activate Microsoft Excel and assign to variable xl.
   Set XL = CreateObject("Excel.Application")

   ' Open the add-in file you want, in this example, XLQUERY.XLA.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLA")

   ' If you need to register the functions and commands
   ' contained in a resource (XLL), use the RegisterXLL method.
   ' In the example below, all functions of Analys32.xll are
   ' registered.
   ' XL.RegisterXLL "Analys32.xll"

   ' Run any auto macros contained in the add-in file
   ' Auto macros don't run when you open a file
   ' using the Open method.
   XL.Workbooks("xlquery.xla").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

DODATNE INFORMACIJE

Excel ne naloži dodatkov ali datotek v imeniku XLStart, ko ga pokličete kot predmet avtomatizacije OLE, zato imate popoln nadzor nad postopkom nalaganja. Če želite, da se dodatek naloži, ga lahko naložite ročno.

To vedenje pomeni tudi, da nobene napake makrov, opozorila o zaklenjenih datotekah ali opozorila o datotekah samo za branje ne preprečujejo nalaganja Excela, ko ga pokliče ukaz CreateObject. Druga prednost tega vedenja je, da se Excel nalaga manj časa kot takrat, ko se hkrati nalagajo še dodatki ali datoteke.

SKLICI

Če želite več informacij o pridobivanju pomoči za Visual Basic for Applications, kliknite to številko članka iz Microsoftove zbirke znanja:
226118 Seznam virov, s katerimi se naučite programirati v programu Visual Basic for Applications (Ta povezava lahko vodi k besedilu, ki je delno ali v celoti v angleščini)

Lastnosti

ID članka: 213489 - Zadnji pregled: 18. september 2011 - Revizija: 2.0
VELJA ZA:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Ključne besede: 
kbautomation kbvba kbexpertiseinter kbdtacode kbprb kbprogramming KB213489

Pošlji povratne informacije

 

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