Hej!
Väljer fram data ur en AccessDB till en listruta i ett formulär.
Tänker mig att när användaren dubbelklickar på en rad i listrutan så öppnar programmet (via händelsen dubbelklick) en Excell mall där jag vid laddningen av Excelmallen programmässigt fyller upp ett antal kolumner i bladet.
Önskar alltså öppna Excel-mallen m.h.a t.ex DoCmd OpenExcel ........
Alltså:
Hur öppnar man Excel från ett Accessformulär?

MVH/ Harry

ex nedan avser att en sub kallas på från en kommandoknapps klick event

Private Sub Kommandoknapp0_Click()
Call q
End Sub

Sub q()

Set objexcel = CreateObject("Excel.Application")
objexcel.Visible = True
objexcel.Workbooks.Add ' eller neden bortkommenterad rad
   'objexcel.Workbooks.Open("C:\Book1.xls")


objexcel.cells(1, 1).Value = "Denna Excel fil är skapad av " & Application.CurrentProject.Name
objexcel.Range("A2") = Now()

With objexcel
    For i = 3 To 10 Step 1
        .cells(i, 1).Interior.ColorIndex = i
    Next i
End With
set objExcel=Nothing
End Sub

Tack Henrik!
Fungerar perfekt!!!
MVH /Harry

Hej igen!
Uppstår ett litet problem när jag vill att excel-mallen skall via en Auto-Open först visa ett formulär där användaren fyller i ett par parametrar.
Öppnar jag Excelmallen direkt (alltså inte via Acessformulär) så genomlöps Auto-open korrekt och parameterformuläret visas ovanpå Excelmallen(helt korrekt).
Öppnar jag däremot Excelmallen via Accessformuläret så visas inte parameterformuläret!

Vad göra?

Enda ändringen jag gjort i den föreslagna koden är införandet av CurrentProject.
objexcel.Workbooks.Open (CurrentProject.path & "\Lönerapport.xls")

mvh/Harry

Parameterformuläret hämtar jag i Auto-open rutinen m.h.a
frmInit.Show

Lösningen på problemet är svaret som Dennis Wallentin gett på frågan:
"Köra Excel Macro vid start"
Under rubriken
Microsoft Office.

Lösningen Dennis föreslagit där Är:

"Ett mer modernt sätt är att använda sig av följande events-procedure:
Private Sub Workbook_Open()
End Sub
Vilken finns tillgänglig i ThisWorkbook-modulen i arbetsboken"

Fungerar perfekt oavsett om Excell-mallen öppnas direkt eller via Accessformulär !!!

mvh/ Harry