Excel-Tabelle per Access-VBA schreiben

[Wilfried Schulze]

Ich möchte aus meiner MS-Access-Anwendung (Access 2002) eine Exceltabelle beschreiben, dabei möchte ich die Zellen einzeln ansprechen können (Eigenschaft .Cells) ich möchte dabei nicht nur Werte sondern auch Formeln hinterlegen.
Danach sollte die Exceltabelle von Access-VBA geschlossen werden und diese Excel-Tabelle innerhalb von Access geöffnet werden können. Wer kann mir hier ein paar Tips geben?

[Matthias Hambach]

Hi Wilfried,
hoffe, das hilft Dir weiter.
Gruss Matthias

' Excel öffnen, falls noch nicht offen
On Error Resume Next
Set xls = GetObject(, "Excel.Application")
If Err Then Set xls = CreateObject("Excel.Application")

' Mit dem XLS objekt kannst Du dann alles anstellen, so wie in Excel auch...
xls.Visible = True
xls.Application.ScreenUpdating = False

' Deine Vorlage öffnen
Set xlBook = xls.Workbooks.Open("C:\test.xls")

' Blätter ansprechen/definieren
xls.Sheets(tempSheet).Activate
Set xlSheet = xls.Sheets(tempSheet)

' und dann in den Blättern ganz normal schreiben:
xlSheet.Cells(row_index, 6).Value = ...
xlSheet.Cells(row_index, 6).FormulaR1C1 = ..