�� VBA � �� Visual Basic

�� : 219905 - �� , � �� .

��

�� Office � �� Visual Basic �� Microsoft Visual Basic for Applications, �� . �� , �� .

�� Visual Basic �� Microsoft V�� Office � �� .

�� | ��

� �� Microsoft Excel. �� Word � PowerPoint, �� Microsoft Visual Basic for Applications.

�� Excel �� . �� , �� , �� , � �� . �� , �� .

�� Office XP, �� VBA, �� VBA. �� Office XP. �� Microsoft Knowledge Base:

282830

(http://support.microsoft.com/kb/282830/RU/ )

Programmatic Access to Office XP VBA Project is Denied

��

�� KbTest.bas (�� ). �� , �� Excel �� .

�� .

   Attribute VB_Name = "KbTest"

   ' Your Microsoft Visual Basic for Applications macro function takes 1 
   ' parameter, the sheet object that you are going to fill.

   Public Sub DoKbTest(oSheetToFill As Object)
      Dim i As Integer, j As Integer
      Dim sMsg As String
      For i = 1 To 100
         For j = 1 To 10

            sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
            oSheetToFill.Cells(i, j).Value = sMsg
         Next j
      Next i
   End Sub

�� C:\KbTest.bas � �� .
�� Visual Basic � �� . �� Form1.
� �� Project �� References � �� Microsoft Excel 10.0 Object Library (�� Excel). �� Excel 2000 �� 9.0, �� Excel 97 � 8.0.

�� Form1 � �� Click �� .

   Private Sub Command1_Click()
      Dim oXL As Excel.Application
      Dim oBook As Excel.Workbook
      Dim oSheet As Excel.Worksheet
      Dim i As Integer, j As Integer
      Dim sMsg As String
      
    ' Create a new instance of Excel and make it visible.
      Set oXL = CreateObject("Excel.Application")
      oXL.Visible = True
   
    ' Add a new workbook and set a reference to Sheet1.
      Set oBook = oXL.Workbooks.Add
      Set oSheet = oBook.Sheets(1)
      
    ' Demo standard Automation from out-of-process,
    ' this routine simply fills in values of cells.
      sMsg = "Fill the sheet from out-of-process"
      MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
      
      For i = 1 To 100
         For j = 1 To 10
            sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
            oSheet.Cells(i, j).Value = sMsg
         Next j
      Next i
      
    ' You're done with the first test, now switch sheets
    ' and run the same routine via an inserted Microsoft Visual Basic 
    ' for Applications macro.
      MsgBox "Done.", vbMsgBoxSetForeground
      Set oSheet = oBook.Sheets.Add
      oSheet.Activate
      
      sMsg = "Fill the sheet from in-process"
      MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
      
    ' The Import method lets you add modules to VBA at
    ' run time. Change the file path to match the location
    ' of the text file you created in step 3.
      oXL.VBE.ActiveVBProject.VBComponents.Import "C:\KbTest.bas"
   
    ' Now run the macro, passing oSheet as the first parameter
      oXL.Run "DoKbTest", oSheet
      
    ' You're done with the second test
      MsgBox "Done.", vbMsgBoxSetForeground
      
    ' Turn instance of Excel over to end user and release
    ' any outstanding object references.
      oXL.UserControl = True
      Set oSheet = Nothing
      Set oBook = Nothing
      Set oXL = Nothing
      
   End Sub