Hallo
Will in einer excel vorlage Daten eintragen, ebenso müssen Zellenfarben geändert werden, zellen verbunden werden und Zelen auf zentriert eingestellt werden. In der Test Sub im nghängten Code kann mann sehen, was alles funktioniert. Das Problem ist das zentrieren.
Was ich auch teste, nichts funktioniert. Bei manchen versuchen gibt es Fehlermeldungen, sieheauskomentierte Zeilen, oder der Code wurde angenommen. Als Ergebnis wurde aber mit Fehlermeldung abgebrochen, oder das Programm läuft durch ohne die Excel Datei zu
schliessen.
Private Sub v_Test()
System.IO.File.Copy("G:\Abstreichliste 4 VL.xlsx", "G:\Abstreichliste 4.xlsx")
Dim Exceldatei1 As Object = CreateObject("Excel.Application")
Exceldatei1.Application.Workbooks.Open("G:\Abstreichliste 4.xlsx")
Exceldatei1.Application.Sheets(1).Select(1)
Label1.Text = Exceldatei1.Cells(9, 3).Value
Exceldatei1.Cells(16, 2).Font.Size = 6
' Funktioniert
Exceldatei1.Cells(16, 2).Value = "Rolle"
' Funktioniert
Exceldatei1.Cells(10, 3).Font.Bold = True ' Funktioniert
Exceldatei1.Cells(10, 3).Value = "4711"
' Funktioniert
Exceldatei1.Range("C16:E16").MergeCells = True ' Funktioniert
Exceldatei1.Cells(16, 3).HorizontalAlignment = xlCenter ' >>>>>>>>>>>> Felermeldung
' x1Center wurde nicht deklariert. Auf das Objekt kann auf Grund seiner Schutzstufe.....
Exceldatei1.Cells(16, 3).Value = "Karton 7" ' Funktioniert
Exceldatei1.Cells(1, 6).Interior.Color = RGB(100, 100, 100) ' Funktioniert
Exceldatei1.Rows(4).RowHeight = 10
' Funktioniert
'Exceldatei1.Range("A1:T44").PrintOut()
' Funktioniert
Exceldatei1.ActiveWorkbook.Save()
Exceldatei1.ActiveWorkbook.Close()
Exceldatei1.Quit()
Exceldatei1 = Nothing
End Sub
Hobby Programmierer aus Butzbach, Hessen
