Automatisieren von Excel aus Visual Basic .NET zum Ausfüllen oder Abrufen von Daten in einem Bereich mithilfe von Arrays

Artikel
06/20/2023
Gilt für::

Microsoft Excel

Zusammenfassung

In diesem Artikel wird veranschaulicht, wie Sie Microsoft Excel automatisieren und einen Bereich mit mehreren Zellen mit einem Array von Werten füllen. In diesem Artikel wird auch veranschaulicht, wie Ein mehrfachzelliger Bereich mithilfe der Automatisierung als Array abgerufen wird.

Weitere Informationen

Wenn Sie einen Mehrzellenbereich ausfüllen möchten, ohne Zellen einzeln zu füllen, können Sie die Value-Eigenschaft eines Range-Objekts auf ein zweidimensionales Array festlegen. Ebenso kann mithilfe der Value-Eigenschaft ein zweidimensionales Array von Werten für mehrere Zellen gleichzeitig abgerufen werden. Die folgenden Schritte veranschaulichen diesen Prozess für das Festlegen und Abrufen von Daten mithilfe von zweidimensionalen Arrays.

Erstellen des Automatisierungsclients für Microsoft Excel

Starten Sie Microsoft Visual Studio .NET.
Klicken Sie im Menü Datei auf Neu, und klicken Sie dann auf Projekt. Wählen Sie "Windows-Anwendung" aus den Visual Basic-Projekttypen aus. Standardmäßig wird Form1 erstellt.
Fügen Sie einen Verweis auf die Microsoft Excel-Objektbibliothek hinzu. Gehen Sie dazu wie folgt vor:
1. On the Project menu, click Add Reference.
2. Suchen Sie auf der Registerkarte COM nach der Microsoft Excel-Objektbibliothek, und klicken Sie dann auf "Auswählen".
Hinweis Microsoft Office 2007 und Microsoft Office 2003 enthalten primäre Interopassemblys (PIAs). Microsoft Office XP enthält keine PIAs, sie können jedoch heruntergeladen werden.
Klicken Sie im Dialogfeld "Verweise hinzufügen" auf "OK", um Ihre Auswahl zu übernehmen. Wenn Sie aufgefordert werden, Wrapper für die ausgewählten Bibliotheken zu generieren, klicken Sie auf "Ja".
Wählen Sie im Menü "Ansicht" die Option "Toolbox" aus, um die Toolbox anzuzeigen. Fügen Sie formular1 zwei Schaltflächen und ein Kontrollkästchen hinzu.
Legen Sie die Name-Eigenschaft für das Kontrollkästchen auf FillWithStrings fest.
Doppelklicken Sie auf Schaltfläche1. Das Codefenster für das Formular wird angezeigt.
Fügen Sie oben in Form1.vb Folgendes hinzu:
```
Imports Microsoft.Office.Interop
```

Ersetzen Sie im Codefenster den folgenden Code

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

mit:

 '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

Kehren Sie zur Entwurfsansicht für Form1 zurück, und doppelklicken Sie dann auf Schaltfläche2.

Ersetzen Sie im Codefenster den folgenden Code

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

End Sub

mit:

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

Testen des Automatisierungsclients

Drücken Sie F5, um das Beispielprogramm zu erstellen und auszuführen.
Klicken Sie auf Schaltfläche1. Microsoft Excel wird mit einer neuen Arbeitsmappe gestartet, und die Zellen A1:E5 des ersten Arbeitsblatts werden mit numerischen Daten aus einem Array aufgefüllt.
Klicken Sie auf Schaltfläche2. Das Programm ruft die Daten in den Zellen A1:E5 in ein neues Array ab und zeigt die Ergebnisse in einem Meldungsfeld an.
Wählen Sie "FillWithStrings" aus, und klicken Sie dann auf "Button1", um die Zellen A1:E5 mit den Zeichenfolgendaten zu füllen.

References

Weitere Informationen zur Verwendung von Arrays zum Festlegen und Abrufen von Excel-Daten mit früheren Versionen von Visual Studio finden Sie in den folgenden Artikelnummern, um den Artikel in der Microsoft Knowledge Base anzuzeigen:

247412 INFO: Methoden zum Übertragen von Daten aus Visual Basic nach Excel