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.
Du musst angemeldet sein, um einen Kommentar abzugeben.
Alle Konstanten wie xlEdgeRight, xlContinuous, xlEdgeRight, xlThin etc sind nur lange Ganzzahlen.
Müssen Sie nachschlagen Ihre Werte und nutzen Sie in Ihre Anwendung.
Idealerweise würden Sie erstellen eine Reihe von Konstanten, die in Ihre Anwendung, so können Sie weiterhin die Verwendung der genannten Versionen so ist es einfacher zu verstehen, den code.
Folgende Seite listet alle excel-Konstanten und Ihre Werte. http://www.smarterdatacollection.com/Blog/?p=374
Ich nehme an, es ist nicht gebunden an eine bestimmte excel-version, aber wenn Sie sind Sie gerade brauchen, um lookup-diejenigen, die für Ihre version.