Visual basic - Excel-Zelle die Eigenschaft border

Ich bin Neuling in Visual Basic und ich bin tring zu erstellen eine einfache Anwendung, die eine operation ausführen, die auf eine Excel-Datei.

Möchte ich die Zelle Bearbeiten Grenze Eigenschaften meiner Platte, die ich Bearbeiten müssen, müssen Sie das Gewicht und die Farbe des separaten Grenze von gewissen Zellen (z.B. nur die untere Grenze oder die Obere Grenze).

Ifound einige interessante Ressource auf dem web:
http://www.functionx.com/vbaexcel/cells/Lesson4.htm
Rahmen um jede Zelle in einem Bereich
http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/93bb7ff7-0aed-4ce1-adca-aabde5fc3c2c

sowieso unmöglich ist, mir zu Folgen das vorgeschlagene Beispiel.
Dies ist ein Auszug aus meinem code:

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

Befehle
oBook.Arbeitsblätter(Seite).Range("B2").Borders(xlEdgeRight).LineStyle = xlContinuous
oBook.Arbeitsblätter(Seite).Range("B2").Borders(xlEdgeRight).Weight = xlThin
funktioniert bei mir nicht, weil Visual Studio nicht erkennt und markiert mir die xlEdgeRight, xlContinuous, xlEdgeRight, xlThin Variablen und behaupten, dass ich erklären Sie diese.

Diese Kommas sind Häufig an jedem Beispiel, das ich gefunden im Internet, ich verstehe nicht, warum das nicht funktioniert bei mir. Hatte ich etwas verpasst Bibliotheken oder namespace zu deklarieren? Das, was ich brauche?

Hoffe mir kann jemand helfen,
Grüße, thaks viel.

InformationsquelleAutor Fedro | 2013-06-14
Schreibe einen Kommentar