visual-studio - Visual Basic - Excel セルの境界プロパティ

Question

私は Visual Basic の初心者で、Excel ファイルに対して何らかの操作を実行する単純なアプリケーションを作成しようとしています。

シートのセルの境界線のプロパティを編集したいのですが、指定したセルの別の境界線の太さと色を編集する必要があります (たとえば、下の境界線または上の境界線のみ)。

Web で興味深いリソースを見つけ まし た。 csharpgeneral/スレッド/93bb7ff7-0aed-4ce1-adca-aabde5fc3c2c

とにかく、提案された例に従うことは私には不可能です。これは私のコードの抜粋です:

Public Class mytest
Dim oExcel As Object 'Oggetto per la gestione del file Excel
Dim oBook As Object 'Oggetto per la gestione del file Excel
Dim page As Integer = 1 'Indice per la gestione dei fogli Excel
....

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Creazione nuovo workbook in Excel
    oExcel = CreateObject("Excel.Application")
    oBook = oExcel.Workbooks.Add

    'Add data to cells of the first worksheet in the new workbook

    'Apertura file in lettura
    Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("input.csv")
        MyReader.TextFieldType = FileIO.FieldType.Delimited
        'Imposto il carattere di separazione tra i campi
        MyReader.SetDelimiters(";")

        'Creo stringa lettura righe
        Dim currentRow As String()

        'Leggo 1 volta per saltare
        currentRow = MyReader.ReadFields()

        'Fino alla fine del file 
        While Not MyReader.EndOfData
            'Mostra riga nella label
            lblShowElab.Text = page
            Try
                'Formatto i fogli
                oBook.Worksheets(page).Range("A1:B1").Merge()
                oBook.Worksheets(page).Range("A2:B2").Merge()
    ...

                oBook.Worksheets(page).Range("B2").Borders(xlEdgeRight).LineStyle = xlContinuous
                oBook.Worksheets(page).Range("B2").Borders(xlEdgeRight).Weight = xlThin

                'Leggo riga per riga
                currentRow = MyReader.ReadFields()
                'Inserisco i campi di ogni riga nella cella voluta
                oBook.Worksheets(page).Range("F2").Value = currentRow(14)
                oBook.Worksheets(page).Range("A5").Value = currentRow(12)
                ...
                'Incremento la pagina
                page = page + 1
                'Se la pagina e' maggiore di 3 la devo creare
                If page > 3 Then

oBook.Worksheets.Add(After:=oBook.Worksheets(oBook.Worksheets.Count))
                End If

            Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                MsgBox("Line " & ex.Message & "is not valid and will be skipped.")
            End Try
        End While
        lblShowElab.Text = "Elaborazione Terminata"
    End Using
    'Salva il Workbook ed esce da Excel
    oBook.SaveAs("output.xlsx")
    oExcel.Quit()
End Sub
End Class

コマンド oBook.Worksheets(page).Range("B2").Borders(xlEdgeRight).LineStyle = xlContinuous oBook.Worksheets(page).Range("B2").Borders(xlEdgeRight).Weight = xlThin は機能しませんVisual Studio が xlEdgeRight、xlContinuous、xlEdgeRight、xlThin 変数を認識してマークしないので、これを宣言したふりをします。

このコンマは、インターネットで見つけたすべての例で一般的です。なぜうまくいかないのかわかりません。宣言するライブラリや名前空間がいくつかありませんでしたか? 何が必要ですか？

誰かが私を助けてくれることを願っています、よろしくお願いします。