Dizileri kullanarak bir aralıktaki verileri doldurmak veya almak için Visual Basic .NET'ten Excel'i otomatikleştirme

  • Makale
  • Şunlara uygulanır:
    Microsoft Excel

Özet

Bu makalede, Microsoft Excel'i otomatikleştirme ve çok hücreli bir aralığı bir değer dizisiyle doldurma işlemleri gösterilmektedir. Bu makalede, Otomasyon kullanılarak dizi olarak çok hücreli aralığın nasıl alındığı da gösterilmektedir.

Daha Fazla Bilgi

Çok hücreli bir aralığı hücreleri birer birer doldurmadan doldurmak için, Range nesnesinin Value özelliğini iki boyutlu bir dizi olarak ayarlayabilirsiniz. Benzer şekilde, value özelliği kullanılarak aynı anda birden çok hücre için iki boyutlu bir değer dizisi alınabilir. Aşağıdaki adımlar, iki boyutlu dizileri kullanarak verileri ayarlamaya ve almaya yönelik bu işlemi gösterir.

Microsoft Excel için Otomasyon İstemcisi'ni oluşturma

  1. Microsoft Visual Studio .NET'i başlatın.

  2. Dosya menüsünde Yeni'ye ve ardından Proje'ye tıklayın. Visual Basic Proje türlerinden Windows Uygulaması'nı seçin. Varsayılan olarak Form1 oluşturulur.

  3. Microsoft Excel Nesne Kitaplığı'na başvuru ekleyin. Bunu yapmak için şu adımları uygulayın:

    1. Proje menüsünde Başvuru Ekle'ye tıklayın.
    2. COM sekmesinde Microsoft Excel Nesne Kitaplığı'nı bulun ve Seç'e tıklayın.

    Not Microsoft Office 2007 ve Microsoft Office 2003, Birincil Birlikte Çalışma Derlemelerini (PIA) içerir. Microsoft Office XP PIA içermez, ancak indirilebilir.

  4. Seçimlerinizi kabul etmek için Başvuru Ekle iletişim kutusunda Tamam'a tıklayın. Seçtiğiniz kitaplıklar için sarmalayıcılar oluşturmanız istenirse Evet'e tıklayın.

  5. Görünüm menüsünde Araç Kutusu'nu seçerek Araç Kutusu'nu görüntüleyin. Form1'e iki düğme ve onay kutusu ekleyin.

  6. Onay kutusunun Name özelliğini FillWithStrings olarak ayarlayın.

  7. Düğme1'e çift tıklayın. Formun kod penceresi görüntülenir.

  8. Form1.vb dosyasının üst kısmına aşağıdakileri ekleyin:

    Imports Microsoft.Office.Interop

  9. Kod penceresinde aşağıdaki kodu değiştirin

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

    Ile:

     'Keep the application object and the workbook object global, so you can  
 'retrieve the data in Button2_Click that was set in Button1_Click.
 Dim objApp As Excel.Application
 Dim objBook As Excel._Workbook

Private Sub Button1_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button1.Click
     Dim objBooks As Excel.Workbooks
     Dim objSheets As Excel.Sheets
     Dim objSheet As Excel._Worksheet
     Dim range As Excel.Range

' Create a new instance of Excel and start a new workbook.
     objApp = New Excel.Application()
     objBooks = objApp.Workbooks
     objBook = objBooks.Add
     objSheets = objBook.Worksheets
     objSheet = objSheets(1)

'Get the range where the starting cell has the address
     'm_sStartingCell and its dimensions are m_iNumRows x m_iNumCols.
     range = objSheet.Range("A1", Reflection.Missing.Value)
     range = range.Resize(5, 5)

If (Me.FillWithStrings.Checked = False) Then
         'Create an array.
         Dim saRet(5, 5) As Double

'Fill the array.
         Dim iRow As Long
         Dim iCol As Long
         For iRow = 0 To 5
             For iCol = 0 To 5

'Put a counter in the cell.
                 saRet(iRow, iCol) = iRow * iCol
             Next iCol
         Next iRow

'Set the range value to the array.
         range.Value = saRet

Else
         'Create an array.
         Dim saRet(5, 5) As String

'Fill the array.
         Dim iRow As Long
         Dim iCol As Long
         For iRow = 0 To 5
             For iCol = 0 To 5

'Put the row and column address in the cell.
                 saRet(iRow, iCol) = iRow.ToString() + "|" + iCol.ToString()
             Next iCol
         Next iRow

'Set the range value to the array.
         range.Value = saRet
     End If

'Return control of Excel to the user.
     objApp.Visible = True
     objApp.UserControl = True

'Clean up a little.
     range = Nothing
     objSheet = Nothing
     objSheets = Nothing
     objBooks = Nothing
 End Sub

  10. Form1'in tasarım görünümüne dönün ve Düğme2'ye çift tıklayın.

  11. Kod penceresinde aşağıdaki kodu değiştirin

    Private Sub Button2_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button2.Click

End Sub

    Ile:

    Private Sub Button2_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button2.Click
    Dim objSheets As Excel.Sheets
    Dim objSheet As Excel._Worksheet
    Dim range As Excel.Range

'Get a reference to the first sheet of the workbook.
    On Error Goto ExcelNotRunning
    objSheets = objBook.Worksheets
    objSheet = objSheets(1)

ExcelNotRunning:
    If (Not (Err.Number = 0)) Then
        MessageBox.Show("Cannot find the Excel workbook.  Try clicking Button1 to " + _
        "create an Excel workbook with data before running Button2.", _
        "Missing Workbook?")

'We cannot automate Excel if we cannot find the data we created, 
        'so leave the subroutine.
        Exit Sub
    End If

'Get a range of data.
    range = objSheet.Range("A1", "E5")

'Retrieve the data from the range.
    Dim saRet(,) As Object
    saRet = range.Value

'Determine the dimensions of the array.
    Dim iRows As Long
    Dim iCols As Long
    iRows = saRet.GetUpperBound(0)
    iCols = saRet.GetUpperBound(1)

'Build a string that contains the data of the array.
    Dim valueString As String
    valueString = "Array Data" + vbCrLf

Dim rowCounter As Long
    Dim colCounter As Long
    For rowCounter = 1 To iRows
        For colCounter = 1 To iCols

'Write the next value into the string.
            valueString = String.Concat(valueString, _
                saRet(rowCounter, colCounter).ToString() + ", ")

Next colCounter

'Write in a new line.
        valueString = String.Concat(valueString, vbCrLf)
    Next rowCounter

'Report the value of the array.
    MessageBox.Show(valueString, "Array Values")

'Clean up a little.
    range = Nothing
    objSheet = Nothing
    objSheets = Nothing
End Sub

Otomasyon İstemcisini Test Edin

  1. Örnek programı derlemek ve çalıştırmak için F5 tuşuna basın.
  2. Düğme1'e tıklayın. Microsoft Excel yeni bir çalışma kitabıyla başlatılır ve ilk çalışma sayfasının A1:E5 hücreleri bir dizideki sayısal verilerle doldurulur.
  3. Düğme2'ye tıklayın. Program, A1:E5 hücrelerindeki verileri yeni bir diziye alır ve sonuçları bir ileti kutusunda görüntüler.
  4. FillWithStrings'i seçin ve ardından A1:E5 hücrelerini dize verileriyle doldurmak için Düğme1'e tıklayın.

Başvurular

Visual Studio'nun önceki sürümleriyle Excel verilerini ayarlamak ve almak için dizileri kullanma hakkında ek bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numaralarına tıklayın:

247412 BİlGİ: Visual Basic'ten Excel'e Veri Aktarma Yöntemleri