使用VB.NET配置Excel com对象的正确方法？

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open Filename:="C:\Excel\Example.xlsx"

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open Filename:="C:\Excel\Example.xlsx"

objExcel.Visible = False

Dim objWorksheet As Object

For Each objWorksheet In objExcel.Worksheets

    Dim objRange As Object

    Set objRange = objWorksheet.Cells

    objRange.Select

    Dim objCell As Object

    For Each objCell In objRange

        objCell.Select

        Dim objValue As Object

        objValue = objCell.Value

        Dim objSum As Object

        Set objSum = CreateObject("Scripting.Dictionary")

        objSum.Add "A1", CInt(objValue(1))

        objSum.Add "B1", CInt(objValue(2))

        objSum.Add "C1", CInt(objValue(3))

        Dim objAvg As Object

        Set objAvg = CreateObject("Scripting.Dictionary")

        objAvg.Add "A1", objSum("A1")

        objAvg.Add "B1", objSum("B1")

        objAvg.Add "C1", objSum("C1")

        objAvg.Add "A1:C1", CInt(objValue(1))

        Dim objRangeAvg As Object

        Set objRangeAvg = objWorksheet.Range("A1:C1")

        objRangeAvg.Value = objAvg.Values

    Next objCell

Next objWorksheet

objExcel.Quit

Set objExcel = Nothing