Hallo,
ich versuche aus Access 2010 auf Excel 2010 zuzugreifen. Alles klappt wunderbar.
Wenn ich jedoch Zellen markiere und anschließend mit dieser Markierung
weiterarbeiten will, geht das nicht. Der Befehl "selection" scheint unbekannt zu sein.
Kann mir jemand helfen?
Code:
Private Sub FormatExcelDat(datei)
Dim xlApp, xlBook, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.workbooks.Open(datei)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.range("A1:D1").Orientation = 90 'das funktioniert!
xlSheet.selection.Orientation = 0 'das nicht
selection.Orientation = 0 'das auch nicht
xlBook.Save
xlApp.Application.Quit
End Sub
Gruß
Mark