Microsoft Excel Visual Basic .NET kullanarak otomatikleþtirme

Bu makalede bir Otomasyon oluþturulmasý gösterilmiþtir Microsoft Visual Basic .NET kullanarak, Microsoft Excel'in istemci.

Otomasyon diðer uygulamalarý programsal olarak denetlemek için Visual Basic gibi bir dilde yazýlmýþ uygulamalarý izin veren bir iþlemdir. Otomasyon Excel'e yeni bir çalýþma kitabý oluþturma, çalýþma kitabýna veri ekleme veya grafik oluþturma gibi iþlemler gerçekleþtirmenizi saðlar. Excel ve diðer Microsoft Office uygulamalarý ile hemen hemen tüm kullanýcý arabirimi aracýlýðýyla el ile gerçekleþtirebileceði eylemleri de programsal olarak Otomasyon kullanarak gerçekleþtirilebilir.

Excel, nesne modeli aracýlýðýyla, programlý bu iþlevselliði sunar. Nesne modeli, sýnýflar ve Excel'in mantýksal bileþenlerine karþýlýk gelen hizmet yöntemleri topluluðudur. Örneðin, bir Uygulama nesnesi, bir çalýþma kitabý nesnesi ve Excel'in bu bileþenleri iþlevselliðinin her biri içeren bir çalýþma sayfasý nesnesi yok. Visual Basic .NET nesne modeline eriþmek için <a0></a0>, bir proje baþvurusu için tür kitaplýðý ayarlayabilirsiniz.

Bu makalede, Visual Basic .NET için uygun proje baþvurusu <a0>Excel</a0> türündeki kitaplýða nasýl gösterir ve Excel otomatikleþtirmek için örnek kodu saðlar.

Microsoft Excel'in bir Otomasyon istemcisi oluþtur

1. Microsoft Visual Studio .NET'i baþlatýn.
2. Dosya menüsünden Yeni ' yi týklatýn ve sonra Project ' i týklatýn. Visual Basic Project'e türlerinden Windows Application seçin. Varsayýlan olarak, Form1 oluþturulur.
3. Baþvuru Ekle Microsoft Excel nesne kitaplýðý. Bunu yapmak için þu adýmlarý izleyin:
   1. Proje menüsünde Add Reference.
   2. COM sekmesinde, Microsoft Excel nesne kitaplýðý ' ný bulun ve sonra da <a2>Seç</a2>'i týklatýn.
      
      Not Microsoft Office 2003 Primary ýnterop Assemblies (Pýa) içerir. Microsoft Office XP Pýa içermez, ancak bunlar yüklenebilir. 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. Tamam ' ý Ekle References seçimlerinizi kabul etmek için iletiþim kutusu.
4. Görünüm menüsünde, araç kutusunu görüntülemek için araç seçin ve sonra da Form1'e bir düðme ekleyin.
5. Button1</a1> çift týklatýn. Formun kod penceresi görüntülenir.
6. Kod penceresinde aþaðýdaki kodu bulun:

       Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
   
       End Sub
   					

   önceki kodu aþaðýdaki kodla deðiþtir:

       Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
           Dim oXL As Excel.Application
           Dim oWB As Excel.Workbook
           Dim oSheet As Excel.Worksheet
           Dim oRng As Excel.Range
   
           ' Start Excel and get Application object.
           oXL = CreateObject("Excel.Application")
           oXL.Visible = True
   
           ' Get a new workbook.
           oWB = oXL.Workbooks.Add
           oSheet = oWB.ActiveSheet
   
           ' Add table headers going cell by cell.
           oSheet.Cells(1, 1).Value = "First Name"
           oSheet.Cells(1, 2).Value = "Last Name"
           oSheet.Cells(1, 3).Value = "Full Name"
           oSheet.Cells(1, 4).Value = "Salary"
   
           ' Format A1:D1 as bold, vertical alignment = center.
           With oSheet.Range("A1", "D1")
               .Font.Bold = True
               .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
           End With
   
           ' Create an array to set multiple values at once.
           Dim saNames(5, 2) As String
           saNames(0, 0) = "John"
           saNames(0, 1) = "Smith"
           saNames(1, 0) = "Tom"
           saNames(1, 1) = "Brown"
           saNames(2, 0) = "Sue"
           saNames(2, 1) = "Thomas"
           saNames(3, 0) = "Jane"
   
           saNames(3, 1) = "Jones"
           saNames(4, 0) = "Adam"
           saNames(4, 1) = "Johnson"
   
           ' Fill A2:B6 with an array of values (First and Last Names).
           oSheet.Range("A2", "B6").Value = saNames
   
           ' Fill C2:C6 with a relative formula (=A2 & " " & B2).
           oRng = oSheet.Range("C2", "C6")
           oRng.Formula = "=A2 & "" "" & B2"
   
           ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
           oRng = oSheet.Range("D2", "D6")
           oRng.Formula = "=RAND()*100000"
           oRng.NumberFormat = "$0.00"
   
           ' AutoFit columns A:D.
           oRng = oSheet.Range("A1", "D1")
           oRng.EntireColumn.AutoFit()
   
           ' Manipulate a variable number of columns for Quarterly Sales Data.
           Call DisplayQuarterlySales(oSheet)
   
           ' Make sure Excel is visible and give the user control
           ' of Excel's lifetime.
           oXL.Visible = True
           oXL.UserControl = True
   
           ' Make sure that you release object references.
           oRng = Nothing
           oSheet = Nothing
           oWB = Nothing
           oXL.Quit()
           oXL = Nothing
   
           Exit Sub
   Err_Handler:
           MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
       End Sub
   
       Private Sub DisplayQuarterlySales(ByVal oWS As Excel.Worksheet)
           Dim oResizeRange As Excel.Range
           Dim oChart As Excel.Chart
           Dim oSeries As Excel.Series
           Dim iNumQtrs As Integer
           Dim sMsg As String
           Dim iRet As Integer
   
   
           ' Determine how many quarters to display data for.
           For iNumQtrs = 4 To 2 Step -1
               sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"
               iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _
                  Or vbMsgBoxSetForeground, "Quarterly Sales")
               If iRet = vbYes Then Exit For
           Next iNumQtrs
   
           ' Starting at E1, fill headers for the number of columns selected.
           oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)
           oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""
   
           ' Change the Orientation and WrapText properties for the headers.
           oResizeRange.Orientation = 38
           oResizeRange.WrapText = True
   
           ' Fill the interior color of the headers.
           oResizeRange.Interior.ColorIndex = 36
   
           ' Fill the columns with a formula and apply a number format.
           oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
           oResizeRange.Formula = "=RAND()*100"
           oResizeRange.NumberFormat = "$0.00"
   
           ' Apply borders to the Sales data and headers.
           oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
           oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin
   
           ' Add a Totals formula for the sales data and apply a border.
           oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
           oResizeRange.Formula = "=SUM(E2:E6)"
           With oResizeRange.Borders(Excel.XlBordersIndex.xlEdgeBottom)
               .LineStyle = Excel.XlLineStyle.xlDouble
               .Weight = Excel.XlBorderWeight.xlThick
           End With
   
           ' Add a Chart for the selected data.
           oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
           oChart = oWS.Parent.Charts.Add
           With oChart
               .ChartWizard(oResizeRange, Excel.XlChartType.xl3DColumn, , Excel.XlRowCol.xlColumns)
               oSeries = .SeriesCollection(1)
               oSeries.XValues = oWS.Range("A2", "A6")
               For iRet = 1 To iNumQtrs
                   .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
               Next iRet
               .Location(Excel.XlChartLocation.xlLocationAsObject, oWS.Name)
           End With
   
           ' Move the chart so as not to cover your data.
           With oWS.Shapes.Item("Chart 1")
               .Top = oWS.Rows(10).Top
               .Left = oWS.Columns(2).Left
           End With
   
           ' Free any references.
           oChart = Nothing
           oResizeRange = Nothing
       End Sub
   					

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

   Imports Microsoft.Office.Core
   					

Otomasyon istemci sýnayýn.

1. Oluþturmaya ve programý çalýþtýrmak için F5 tuþuna basýn.
2. Form üzerinde Button1 ' ý týklatýn. Program, Excel'in baþlatýr ve yeni bir çalýþma sayfasýndaki verileri doldurur.
3. Üç aylýk satýþ veri girmek isteyip istemediðiniz sorulduðunda, Evet ' i týklatýn. Üç aylýk verilerine baðlantýlý BIR grafik, çalýþma sayfasýna eklenir.

Daha fazla bilgi için aþaðýdaki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin: Excel ve Visual Basic 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: