???? ???????: 213489 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

???????

??? ????? ??? Microsoft Excel ????? ??????? ???????? ?? OLE ???????? ????? CreateObject? ?? ??? ????? ????? ??????? ???????? ???? ??? ?? ???? XLStart ??????? ?????? ?????????.

?????

????? ????? ????? ??????? ???????? ????????? ???? Excel ?????? ????? ??? ??????? ?????????? ??? Visual Basic? ????? ???? ??? ???? ????????? ??? ????? ????????? ??? ???? ??????. ??? ????? ??? ??????? ????????? ??????? ?? ??? ????? ??????? ???? ???????.

???? ??????

???? Microsoft ??????? ???????? ???? ??????? ???? ??? ?? ???? ???? ?? ????. ?????? ???? ??? ???? ?????? ?? ?????? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ??? ????? ??? ??? ??????? ???? ??? ????? ???????? ????????? ?????? ????????? ????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ????. ??? ????? ?? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ???????? ???????? ??????.

?????? ??? ????? ?????? ??? ????? Excel ????? ??????? ???????? ?? OLE? ?? ?????? ??????? ???????? ???????. ????? ??? ????? ??? ??? ???????.

?????? Microsoft Office Excel 2007

Sub LoadAddin()

   ' ????? ????? xl ???? ????.
   Dim xl As Object

   ' ?? ?????? Microsoft Excel xl ??????? ??? ??????? xl.
   Set XL = CreateObject("Excel.Application")?

   ' ???? ??? ??????? ???????? ???? ?????? ????? ??? ?? ??? ??????? XLQUERY.XLAM.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLAM")?

   ' ??? ??? ????? ??? ????? ??????? ????????
   ' ???????? ?? ???? (XLL)? ?????? ????? RegisterXLL.
   ' ?? ?????? ?????? ?? ????? ???? ?????
   ' Analys32.xll.
   ' XL.RegisterXLL "Analys32.xll"

   ' ?? ?????? ?? ????? ?????? ????? ?? ??? ??????? ????????
   ' ?? ???? ??????? ???????? ????? ???? ???? ??? ???????
   ' ???????? ??????? "???".
   XL.Workbooks("xlquery.xlam").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

??????? Microsoft Office Excel 2003 ?????????? ??????? ?? ?????? Excel

Sub LoadAddin()

   ' ????? ????? xl ???? ????.
   Dim xl As Object

   ' ?? ?????? Microsoft Excel xl ??????? ??? ??????? xl.
   Set XL = CreateObject("Excel.Application")?

   ' ??? ??? ??????? ???????? ???? ?????? ?? ??? ??????? XLQUERY.XLA.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLA")?

   ' ??? ??? ????? ??? ????? ??????? ????????
   ' ???????? ?? ???? (XLL)? ?????? ????? RegisterXLL.
   ' ?? ?????? ?????? ?? ????? ???? ?????
   ' Analys32.xll.
   ' XL.RegisterXLL "Analys32.xll"

   ' ?? ?????? ?? ????? ?????? ????? ?? ??? ??????? ????????
   ' ?? ???? ??????? ???????? ????? ???? ???? ??? ???????
   ' ???????? ??????? "???".
   XL.Workbooks("xlquery.xla").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

??????? ????

????? ???? ????? ???? ???????? Excel ????? ??????? ???????? ?? OLE ???? ?? ????? ????? ?????? ?? ????? ?? ???? XLStart? ??? ???? ?????? ?????? ?? ????? ???????. ??? ???? ????? ????? ?????? ?????? ??????? ??????.

????? ??? ?????? ??? ???? ????? ????? ?? ??????? ??? ????? ?? ??????? ??? ??????? ??? ???? Excel ?? ??????? ????? ??? ???????? ?????? ????? CreateObject. ??? ???? ????? ???? ???? ???????? ??? ??? ?????? ????? ?????? Excel ??? ??? ??????? ??? ????? ????? ?????? ?? ?????.

?????

????? ?? ????????? ??? ????? ?????? ??? ?????? Visual Basic for Applications? ???? ??? ??? ??????? ?????? ?????? ?? "????? ????? Microsoft":
226118 ????? ?? ??????? ???????? ???????? ??? ???? ????? Visual Basic for Applications (????? ?? ??? ?????? ???)

???????

???? ???????: 213489 - ????? ??? ??????: 20/????/1432 - ??????: 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

????? ???????

 

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