Visual Basic-Quellcode
- Dim xlApp As Object
- Dim xlWB As Object
- Dim xlSheet As Object
- Set xlApp = CreateObject("Excel.Application")
- xlApp.Visible = True
- Set xlWB = xlApp.Workbooks.Open(ü_Dateilangname)
- Set xlSheet = xlWB.sheets(1)
- xlSheet.Range("A1:B400").Select
- xlSheet.Selection.Font.Name = "Courier New" ' klappt nicht
- xlSheet.Font.Name = "Courier New"' klappt nicht
- xlSheet.Selection.Font = "Courier New"' klappt nicht
Moin zusammen,
immer die gleiche Fehlermeldung: #438 Objekt unterstützt die Methode oder Eigenschaft nicht.
Wie kann ich die Schriftart in Excel aus einem Access-Marko heraus setzen?
Alles andere klappt (Ränder, Spaltenbreite, ...)
Danke & Gruß
dwt73