Visual Basic ile Office belgelerini ekleme ve otomatikleştirme

2023-10-17
Şunlara uygulanır: Microsoft Office

Özet

Office belgesinde veri kullanan bir uygulama geliştirirken, kullanıcının Office uygulamasına geçmek zorunda kalmadan verileri görebilmesi ve düzenleyebilmesi için bu verilerin doğrudan Visual Basic uygulamanızın içinde sunulması yararlı olabilir. Bunu Visual Basic'te OLE Kapsayıcı Denetimi'ni kullanarak gerçekleştirebilirsiniz.

Bu makalede, OLE Kapsayıcı Denetimi'ni kullanarak bir Office belgesini dinamik olarak oluşturma ve Otomatikleştirme işlemleri gösterilmektedir.

Daha Fazla Bilgi

Visual Basic'e Office belgesi ekleme özelliği, Microsoft'un Nesne Bağlama ve Ekleme (OLE) teknolojisiyle mümkün hale getiriliyor. OLE, bir uygulamanın başka bir uygulamaya ait bir nesneyi son kullanıcı için uygun bir şekilde barındırmasına izin verecek şekilde tasarlanmıştır, ancak ilgili uygulamaların diğerinin iç ayrıntılarını bilmesini gerektirmez. Visual Basic, Visual Basic programcıların forma OLE nesneleri eklemesine izin vermek için OLE Kapsayıcı Denetimi sağlar.

Nesne katıştırıldıktan sonra, çoğu OLE sunucusu konak uygulamanın nesneyi program aracılığıyla değiştirmesine veya koddan işlemesine izin vermek için Otomasyon'u destekler. Otomasyon nesnesine başvuru almak için OLE kapsayıcısının Object özelliğini kullanın. Bu özellik, katıştırılmış belirli öğeyle yakından eşleşen Otomasyon nesnesini döndürür.

Excel çalışma kitabını barındıran bir Visual Basic uygulaması oluşturma

Visual Basic'i başlatın ve yeni bir standart proje oluşturun. Form1 varsayılan olarak oluşturulur.
Denetim araç kutusundan Form1'e üç Komut Düğmesi ekleyin. Ardından OLE Kapsayıcısı denetiminin bir örneğini ekleyin. OLE Kapsayıcısı denetimi forma yerleştirildiğinde, eklemek istediğiniz nesne türünü sorar. Bu örnek için nesneyi dinamik olarak eklemeniz gerekir, bu nedenle nesne eklemeden iletişim kutusunu kapatmak için İptal'e tıklayın.

Form1'in Kod penceresine aşağıdaki kodu ekleyin:

Option Explicit

Dim oBook As Object
Dim oSheet As Object

Private Sub Command1_Click()
   On Error GoTo Err_Handler

' Create a new Excel worksheet...
   OLE1.CreateEmbed vbNullString, "Excel.Sheet"

' Now, pre-fill it with some data you
 ' can use. The OLE.Object property returns a
 ' workbook object, and you can use Sheets(1)
 ' to get the first sheet.
   Dim arrData(1 To 5, 1 To 5) As Variant
   Dim i As Long, j As Long

Set oBook = OLE1.object
   Set oSheet = oBook.Sheets(1)

' It is much more efficient to use an array to
 ' pass data to Excel than to push data over
 ' cell-by-cell, so you can use an array.

' Add some column headers to the array...
   arrData(1, 2) = "April"
   arrData(1, 3) = "May"
   arrData(1, 4) = "June"
   arrData(1, 5) = "July"

' Add some row headers...
   arrData(2, 1) = "John"
   arrData(3, 1) = "Sally"
   arrData(4, 1) = "Charles"
   arrData(5, 1) = "Toni"

' Now add some data...
   For i = 2 To 5
      For j = 2 To 5
         arrData(i, j) = 350 + ((i + j) Mod 3)
      Next j
   Next i

' Assign the data to Excel...
   oSheet.Range("A3:E7").Value = arrData

oSheet.Cells(1, 1).Value = "Test Data"
   oSheet.Range("B9:E9").FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"

' Do some auto formatting...
   oSheet.Range("A1:E9").Select
   oBook.Application.Selection.AutoFormat

Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = True
   Exit Sub

Err_Handler:
   MsgBox "An error occurred: " & Err.Description, vbCritical
End Sub

Private Sub Command2_Click()
   On Error GoTo Err_Handler

' Create an embedded object using the data
 ' stored in Test.xls.<?xm-insertion_mark_start author="v-thomr" time="20070327T040420-0600"?> If this code is run in Microsoft Office
 ' Excel 2007, <?xm-insertion_mark_end?><?xm-deletion_mark author="v-thomr" time="20070327T040345-0600" data=".."?><?xm-insertion_mark_start author="v-thomr" time="20070327T040422-0600"?>change the file name to Test.xlsx.<?xm-insertion_mark_end?>
   OLE1.CreateEmbed "C:\Test.xls"

Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = True
   Exit Sub

Err_Handler:
   MsgBox "The file 'C:\Test.xls' does not exist" & _
          " or cannot be opened.", vbCritical
End Sub

Private Sub Command3_Click()
   On Error Resume Next

' Delete the existing test file (if any)...
   Kill "C:\Test.xls"

' Save the file as a native XLS file...
   oBook.SaveAs "C:\Test.xls"
   Set oBook = Nothing
   Set oSheet = Nothing

' Close the OLE object and remove it...
   OLE1.Close
   OLE1.Delete

Command1.Enabled = True
   Command2.Enabled = True
   Command3.Enabled = False
End Sub

Private Sub Form_Load()
   Command1.Caption = "Create"
   Command2.Caption = "Open"
   Command3.Caption = "Save"
   Command3.Enabled = False
End Sub

Programı çalıştırmak için F5 tuşuna basın. Oluştur düğmesine tıklayın. Bu, yeni bir çalışma sayfası ekler ve doğrudan sayfaya veri eklemek için Excel'i otomatikleştirir. Nesneye çift tıklarsanız nesnenin yerinde etkinleştirildiğini ve kullanıcının verileri doğrudan düzenleyebileceğini unutmayın. Şimdi kaydet'e tıklayarak verileri bir dosyaya kaydedin ve OLE nesnesini kapatın. Aç düğmesi, daha önce kaydedilmiş bir dosyanın kopyasını açmanıza olanak tanır.

Word belgesini barındıran bir Visual Basic uygulaması oluşturma

Visual Basic'i başlatın ve yeni bir standart proje oluşturun. Form1 varsayılan olarak oluşturulur.
Denetim araç kutusundan Form1'e üç Komut Düğmesi ekleyin. Ardından OLE Kapsayıcısı denetiminin bir örneğini ekleyin. OLE Kapsayıcısı denetimi forma yerleştirildiğinde, eklemek istediğiniz nesne türünü sorar. Bu örnek için nesneyi dinamik olarak eklememiz gerekir, bu nedenle nesne eklemeden iletişim kutusunu kapatmak için İptal'e tıklayın.