Otomasyon'dan Visual Basic .NET kullanarak Office makro çalýþtýrma

Bu adým adým makalede, Office aranacak açýklamaktadýr makrolarý Visual Basic .NET Otomasyon istemciden.

Microsoft Office Otomasyonu, bir belge açtýðýnýzda veya bir Visual Basic for Applications (VBA) makrosu içeren yeni bir belge oluþturmak ve zamanýnda makroyu çalýþtýrmak için kullanabilirsiniz.

Aþaðýdaki örnek Automation istemcisi, bir formdaki seçiminize dayalý bir Office Otomasyonu Sunucusu (Access, Excel, PowerPoint veya Word) yönetir. Otomasyon sunucusu istemci baþladýktan sonra bir belge açýlýr ve iki makrolar'ý çaðýrýr. Ilk makro DoKbTest, parametre vardýr ve ikinci bir makro, DoKbTestWithParameter, dize türünde tek bir parametre alýr.

Makro içeren office belgeleri oluþturma

1. C:\Doc1.doc adlý bir Word belgesi oluþturursunuz. Bunu yapmak için þu adýmlarý izleyin:
   1. Word'de, yeni bir belge oluþturun.
   2. Visual Basic Editor'ý açmak için ALT+F11 tuþ bileþimine basýn.
   3. Ekle menüsünden modülü ' nü týklatýn.
   4. Yeni modüle aþaðýdaki makro kodu yapýþtýrýn:

      'Display a message box that displays the application name.
      Public Sub DoKbTest()
         MsgBox "Hello from " & Application.Name
      End Sub
      
      'Display a message box with the string passed from the
      'Automation client.
      Public Sub DoKbTestWithParameter( sMsg As String )
         MsgBox sMsg
      End Sub

   5. Visual Basic Düzenleyicisi'ni kapatýn, Word belgeyi kaydedin ve Word'den çýkýn.
2. Word belgesi oluþturmak için kullanýlan benzer adýmlarý kullanarak C:\Book1.xls adlý bir Excel çalýþma kitabý oluþturun.
3. Sözcük oluþturmak için kullanýlan benzer adýmlarý kullanarak C:\Pres1.ppt adlý bir PowerPoint sunusu oluþturmak belge.
4. C:\Db1.mdb adlý yeni bir Access veritabaný oluþturun. Bunu yapmak için þu adýmlarý izleyin:
   1. Ekle menüsünden modülü ' nü týklatýn.
   2. Makro kodu Yeni modüle yapýþtýrýn.
   3. Modülü kaydetmek ve Access'ten çýkmak.

Visual Basic .NET Otomasyon istemciye oluþturun

1. Microsoft Visual Studio .NET'i baþlatýn. Dosya menüsünden Yeni ' yi týklatýn ve sonra Project ' i týklatýn. Visual Basic Projects türlerinden Windows Application ' ý seçin. Varsayýlan olarak, Form1 oluþturulur.
2. Access, Excel, PowerPoint ve Word nesne kitaplýklarýna baþvuru ekleyin. Bunu yapmak için þu adýmlarý izleyin:
   1. Proje) menüsünde Add Reference ' ý týklatýn.
   2. COM sekmesinde, Microsoft Word 10.0 Nesne Kitaplýðý ya da Microsoft Word 11.0 Nesne Kitaplýðý'ný bulun ve sonra da <a2>Seç</a2>'i týklatýn.
      
      Not Microsoft, Microsoft Office XP kullanýyorsanýz ve önceden yapmadýysanýz, karþýdan yükleyin ve sonra Microsoft Office XP Primary ýnterop Assemblies (Pýa) yükleyin önerir. Office XP Pýa hakkýnda'daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP ana birlikte çalýþma derlemeleri (PIA) karþýdan yüklenebilir
   3. Önceki adýmý, Access, Excel ve PowerPoint nesne kitaplýklarý için yineleyin.
   4. Seçimlerinizi kabul etmek için Tamam <a0>Baþvuru Ekle</a0> iletiþim kutusunda týklatýn. Seçtiðiniz kitaplýklar için sar?c?lar? oluþturmak isteyen bir ileti alýrsanýz, Evet ' i týklatýn.
      
      Not Eriþim baþvuru yaptýðýnýzda hata iletisi alýrsanýz 10.0 kitaplýk nesnesini, "Sorun giderme" bölümüne bakýn.
3. Görünüm menüsünde ToolBox ' ý týklatýn. Form1'e, birleþik giriþ kutusu ve bir düðme ekleyin.
4. Bir tanýmý için düðmenin týklatma oluþturmak için Button1 çift olay iþleyicisi.
5. ' De <a2>Button1_Click</a2> yordamýna aþaðýdaki kodu yapýþtýrýn:

   Select Case ComboBox1.SelectedItem
   
       Case "Access"
   
           Dim oAccess As Access.ApplicationClass
   
           'Start Access and open the database.
           oAccess = CreateObject("Access.Application")
           oAccess.Visible = True
           oAccess.OpenCurrentDatabase("c:\db1.mdb", False)
   
           'Run the macros.
           oAccess.Run ("DoKbTest")
           oAccess.Run("DoKbTestWithParameter", "Hello from VB .NET Client")
   
           'Clean-up: Quit Access without saving changes to the database.
           oAccess.DoCmd().Quit (Access.AcQuitOption.acQuitSaveNone)
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oAccess)
           oAccess = Nothing
   
       Case "Excel"
   
           Dim oExcel As Excel.ApplicationClass
           Dim oBook As Excel.WorkbookClass
           Dim oBooks As Excel.Workbooks
   
           'Start Excel and open the workbook.
           oExcel = CreateObject("Excel.Application")
           oExcel.Visible = True
           oBooks = oExcel.Workbooks
           oBook = oBooks.Open("c:\book1.xls")
   
           'Run the macros.
           oExcel.Run ("DoKbTest")
           oExcel.Run("DoKbTestWithParameter", "Hello from VB .NET Client")
   
           'Clean-up: Close the workbook and quit Excel.
           oBook.Close (False)
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oBook)
           oBook = Nothing
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oBooks)
           oBooks = Nothing
           oExcel.Quit()
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oExcel)
           oExcel = Nothing
   
       Case "PowerPoint"
   
           Dim oPP As PowerPoint.ApplicationClass
           Dim oPresSet As PowerPoint.Presentations
           Dim oPres As PowerPoint.PresentationClass
   
           'Start PowerPoint and open the presentation.
           oPP = CreateObject("PowerPoint.Application")
           oPP.Visible = True
           oPresSet = oPP.Presentations
           oPres = oPresSet.Open("c:\pres1.ppt", , , True)
   
           'Run the macros.
           oPP.Run ("'pres1.ppt'!DoKbTest")
           oPP.Run("'pres1.ppt'!DoKbTestWithParameter", "Hello from VB .NET Client")
   
           'Clean-up: Close the presentation and quit PowerPoint.
           oPres.Close()
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oPres)
           oPres = Nothing
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oPresSet)
           oPresSet = Nothing
           oPP.Quit()
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oPP)
           oPP = Nothing
   
       Case "Word"
   
           Dim oWord As Word.ApplicationClass
   
           'Start Word and open the document.
           oWord = CreateObject("Word.Application")
           oWord.Visible = True
           oWord.Documents.Open ("C:\Doc1.doc")
   
           'Run the macros.
           oWord.Run ("DoKbTest")
           oWord.Run("DoKbTestWithParameter", "Hello from VB .NET Client")
   
           'Quit Word.
           oWord.Quit()
           System.Runtime.InteropServices.Marshal.ReleaseComObject (oWord)
           oWord = Nothing
   
   End Select
   
   GC.Collect() 

6. Görünüm menüsünde Tasarýmcýsý ' ný týklatýn ve formun Load olayý için bir taným oluþturulacak Form1 ' ý çift týklatýn.
7. Form1_Load yordamda aþaðýdaki kodu yapýþtýrýn:

           ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
           Dim a As String() = {"Access", "Excel", "PowerPoint", "Word"}
           ComboBox1.Items.AddRange(a)
           ComboBox1.SelectedIndex = 0
   					

8. Aþaðýdaki kodu Form1.vb en üstüne ekleyin:

   Imports Access = Microsoft.Office.Interop.Access
   Imports Excel = Microsoft.Office.Interop.Excel
   Imports Word = Microsoft.Office.Interop.Word
   Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
   					

Çalýþtýrýn ve otomasyon istemci sýnayýn.

1. Uygulamayý çalýþtýrmak için F5 tuþuna basýn.
2. Bir Office uygulamasý ComboBox1 seçin ve Button1</a1>'ý týklatýn. Seçtiðiniz bir Office uygulamasý baþlatýldý ve DoKBTest ve DoKBTestWithParameter makro yürütülür.

SORUN GÝDERME

Bir Visual Basic .NET projesini Access 10.0 nesne kitaplýðýnda baþvuruda bulunacaðýnýz zaman, kitaplýk, bir .NET derlemesi dönüþtürme baþarýsýz olduðunu bildiren bir hata iletisi alabilirsiniz. Access 10.0 Nesne kitaplýðý baþarýyla baþvurmak için bu sorunun nasýl giderileceði hakkýnda daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:

Daha fazla bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: Daha fazla bilgi ve kaynaklar hakkýnda Office Otomasyonu için aþaðýdaki Microsoft Web sitelerini ziyaret edin: