Hallo!
Wurde bestimmt schon x-mal gefragt. Habe aber nix im Archiv gefunden.
Wie kann ich aus Access heraus, nachdem ich eine Abfrage nach Excel geschickt habe, die Zellen in Excel formatieren? Zb.: Selection.Columns.AutoFit
Der Befehl dazu soll aus Access gesendet werden.
Excel ist dann garantiert offen und soll sich auf das aktuelle Arbeitsblatt beziehen.
Wie geht das?
Vielen Dank im Voraus.
Georg
Versuch es mal hiermit:
Dim objExcel As Object
Dim objExcelActivWkb As Object
'Excel starten
On Error Resume Next
'ist Excel noch nicht gestarte wird ein Fehler bei der GetOject-Funktion auftreten
Set objExcel = GetObject(, „Excel.Application.8“)
'Fehler vorhanden falls Excel noch nicht läuft
If Err.Number 0 Then
'Fehler löschen
Err.Clear
'neue Excelinstanz erzeugen
Set objExcel = CreateObject(„Excel.Application.8“)
Else
'falls Excel schon läuft, wird die Applikation aktiviert
objExcel.Activate
End If
On Error GoTo Fehlerroutine
With objExcel
'Excel-Fenster maximieren
.WindowState = xlMaximized
'Excel-Fenster sichtbar machen
.Visible = True
'neue Tabelle erstellen
.Workbooks.Add
End With
Set objExcelActivWkb = objExcel.Application.ActiveWorkbook
With objExcelActivWkb.Worksheets(1)
With .Cells(Y0, X0)
.Value = „Bert“
'Schriftgröße
.Font.Size = 12
'Fett
.Font.Bold = True
End With
End With
Super!
Vielen Dank für deine Mühe!
Das schaue ich mir in Ruhe an.
Ich denke aber, das ist es!
Gruß, Georg