Microsoft Excel Visual Basic kullanarak otomatikleþtirme

Bu makalede, gelen bir Visual Basic Automation'ý kullanarak Excel oluþturulur ve gösterilmiþtir.

Bir Otomasyon sunucusunu denetlemek için iki yol vardýr: geç baðlama veya erken baðlama kullanarak. Geç baðlama, yöntemleri çalýþtýrma kadar baðlý ve Otomasyon sunucusu nesne olarak bildirildi. Erken baðlama ile uygulama tasarým zamanýnda tam nesne ile iletiþimde ve nesnelerine, belirli bir tür olarak bildirebilirsiniz öðrenene. Bu örnek, daha yüksek performans ve daha iyi bir tür güvenliði affords nedeni, genellikle daha iyi "olarak nitelendirilir erken baðlama kullanýr.

Erken baðlama bir Otomasyon sunucusu için bu sunucunun türündeki kitaplýða bir baþvuru ayarlamanýz gerekir. Visual Basic'te, bu baþvurularý yapýlýr proje altýnda bulunan bir iletiþim kutusu | baþvurular bir menü. Bu örnek, kod çalýþtýrmak için önce Excel'in türündeki kitaplýða bir baþvuru eklemeniz gerekir. Baþvuru eklemek aþaðýdaki adýmlarý bakýn.

Otomasyon örneði oluþturma

1. Visual Basic'ý baþlatýn ve yeni bir standart exe DOSYASý) projesi oluþturun. Varsayýlan olarak, Form1 oluþturulur.
2. Proje ' ý týklatýn ve Baþvurular</a1>'ý týklatýn. Baþvurular) iletiþim kutusu görüntülenir. Microsoft Excel nesne kitaplýðý ' ný bulun ve sonra da Excel'e bir baþvuru eklemek istediðiniz maddeyi seçin listede aþaðý doðru kaydýrýn. Excel sürümü için doðru nesne kitaplýðý listede görünmüyorsa, doðru olarak yüklenmiþ olan Excel sürümünüz emin olun.
   
   Notlarý
   • Microsoft Office Excel 2007 otomatikleþtirme, Microsoft Excel'in 12.0 Nesne Kitaplýðý ' nda References olarak tür kitaplýðýný görünür listesi.
   • Microsoft Office Excel 2003 otomatikleþtirme, Microsoft Excel'in 11.0 Nesne Kitaplýðý ' nda References olarak tür kitaplýðýný görünür listesi.
   • Microsoft Excel 2002 otomatikleþtirme, tür kitaplýðý Microsoft Excel 10.0 Nesne KitaplýðýBaþvurular) listesinde görünür...
   • Tür kitaplýðý, Microsoft Excel 2000 otomatikleþtirme, Microsoft Excel'in 9.0 Nesne KitaplýðýBaþvurular) listesinde görüntülenir.
   • Microsoft Excel 97 otomatikleþtirme, tür kitaplýðý Microsoft Excel 8.0 Nesne KitaplýðýBaþvurular) listesinde görünür...
3. <a0>Baþvurular</a0> iletiþim kutusunu kapatmak için Tamam ' ý týklatýn.
4. Bir KomutDüðmesi Form1'e ekleyin.
5. Form1 kod penceresinde, aþaðýdaki kodu ekleyin:
   

      Option Explicit
      
      Private Sub Command1_Click()
         Dim oXL As Excel.Application
         Dim oWB As Excel.Workbook
         Dim oSheet As Excel.Worksheet
         Dim oRng As Excel.Range
         
   
         'On Error GoTo Err_Handler
         
      ' Start Excel and get Application object.
         Set oXL = CreateObject("Excel.Application")
         oXL.Visible = True
         
      ' Get a new workbook.
         Set oWB = oXL.Workbooks.Add
         Set 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 = 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).
         Set oRng = oSheet.Range("C2", "C6")
         oRng.Formula = "=A2 & "" "" & B2"
         
       ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
         Set oRng = oSheet.Range("D2", "D6")
         oRng.Formula = "=RAND()*100000"
         oRng.NumberFormat = "$0.00"
         
       ' AutoFit columns A:D.
         Set 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 Microsoft Excel's lifetime.
         oXL.Visible = True
         oXL.UserControl = True
         
       ' Make sure you release object references.
         Set oRng = Nothing
         Set oSheet = Nothing
         Set oWB = Nothing
         Set oXL = Nothing
         
      Exit Sub
      Err_Handler:
         MsgBox Err.Description, vbCritical, "Error: " & Err.Number
      End Sub
      
      Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet)
         Dim oResizeRange As Excel.Range
         Dim oChart As Excel.Chart
         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
         
   
         sMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)."
         MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales"
         
       ' Starting at E1, fill headers for the number of columns selected.
         Set 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.
         Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Formula = "=RAND()*100"
         oResizeRange.NumberFormat = "$0.00"
         
       ' Apply borders to the Sales data and headers.
         Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Borders.Weight = xlThin
         
       ' Add a Totals formula for the sales data and apply a border.
         Set oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
         oResizeRange.Formula = "=SUM(E2:E6)"
         With oResizeRange.Borders(xlEdgeBottom)
            .LineStyle = xlDouble
            .Weight = xlThick
         End With
         
       ' Add a Chart for the selected data
         Set oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
         Set oChart = oWS.Parent.Charts.Add
         With oChart
            .ChartWizard oResizeRange, xl3DColumn, , xlColumns
            .SeriesCollection(1).XValues = oWS.Range("A2", "A6")
               For iRet = 1 To iNumQtrs
                  .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
               Next iRet
            .Location xlLocationAsObject, oWS.Name
         End With
         
       ' Move the chart so as not to cover your data.
         With oWS.Shapes("Chart 1")
            .Top = oWS.Rows(10).Top
            .Left = oWS.Columns(2).Left
   
         End With
         
       ' Free any references.
         Set oChart = Nothing
         Set oResizeRange = Nothing
      
      End Sub
   
   						

6. F5 tuþuna basarak projeyi çalýþtýrýn.

Office Otomasyonu hakkýnda daha fazla bilgi için Microsoft Office geliþtirme Destek sitesini ziyaret edin: (c) Microsoft Corporation 1999, tüm haklarý saklýdýr. Katkýyý Richard R'ye Taylor, Microsoft Corporation.