Excel aus VB steuern

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von drschef.

    Excel aus VB steuern

    Hallo,

    ich bediene Excel 2010 aus VB 2010 Express Edition. (Fast) alles klappt mit folgender Ausnahme:

    VB.NET-Quellcode

    1. Dim Ex As Object = CreateObject("excel.Application")
    2. Dim Wb As Object = Ex.Workbooks.Add()
    3. Dim Sh As Object = Wb.Worksheets(1)
    4. Ex.Workbooks.Open("C:\!Gert\!00 TMP\Test.xlsx")
    6. .Rows(1).rowheight = 1.5 * .StandardHeight
    7. .Rows(1).Font.Bold = True
    8. .Rows(1).Font.Color = -16776961
    9. .Rows(1).VerticalAlignment = xlVAlignCenter 'Hier kommt Fehler "...nicht deklariert...kann nicht zugegriffen werden"


    Spaltenhöhe und Schrifteigenschaften funktionieren. Das Alignment nicht. Die Zeile habe ich vielfach variiert. Alle Hinweise aus Recherchen haben das Problem bisher nicht gelöst.

    Du musst einen Verweis auf das "Excel Object Library" setzen.

    Hier noch kleines Beispiel
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    3. Public Class MainForm
    5. Private Sub ActionButton_Click(sender As Object, e As EventArgs) Handles ActionButton.Click
    6. ' Testdatei
    7. Dim filePath As String = "C:\TestData\Excel\testfile.xlsx"
    9. Dim xlApp As New Excel.Application ' Excel App-Instanz
    10. xlApp.Visible = True ' Excel-Fenster anzeigen
    12. Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Open(filePath) ' Excel-Mappe öffnen
    13. Dim xlSheet As Excel.Worksheet = xlWorkbook.Worksheets(1) ' Tabelle1 (1. Tabelle in der Mappe)
    15. Dim headRow = CType(xlSheet.Range("A1:N1"), Excel.Range) ' Zeile 1, Spalte A bis N
    16. With headRow
    17. ' Schrift
    18. .Font.Bold = True ' Schrift fett
    19. .Font.Size = 16 ' Schriftgröße
    21. ' Ausrichtung
    22. .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter ' vertikal mittig
    23. .HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter ' hozirontal mittig
    25. ' Rahmen
    26. .Borders.LineStyle = Excel.XlLineStyle.xlContinuous
    27. .Borders.Weight = Excel.XlBorderWeight.xlThick
    28. .Borders.ColorIndex = 0
    30. ' Hintergrund
    31. .Interior.Color = 50
    32. .Interior.Pattern = Excel.Constants.xlSolid
    34. End With
    36. End Sub
    38. End Class

    Gelöst !!!

    Hallo,

    dank der Hinweise ließ sich das Problem lösen. Ich habe scheinbar immer mit den falschen Verweisen experimentiert. Und dann hat mich irritiert, dass sich alle anderen Eigenschaften zuweisen ließen außer dem Alignment. Dadurch habe ich in der falschen Richtung gedacht.

    Nochmals besten Dank an xtts02

Facebook
Telefonspende