Makro der åbner en excelfil fra access

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
DoCmd.Quit

ok.. så hvis jeg fx laver en knap på min rapportside, som først køre makroen og derefter den der kode til at åbne filen ??

Hvad vil du med en rapport? Først kører du makroen der sender data til Excel, og derefter åbner du blot Excel-filen:

Dim xls As New Excel.Application
DoCmd.RunMacro "MAKRONAVN"
xls.Visible = True
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
DoCmd.Quit

Jeg vil have en knap fordi jeg har en rapportside hvor der er knapper til hver enkelte rapport. Mere overskueligt for dem der skal bruge databsen.

Den kode du skriver der den sætter jeg ind i makroen så ?? Sorry, men jeg har først lige lært at lave makro så skal lige have fundet ud af hvordan de virker :)

Sæt koden ind i kommandoknappen på din rapportside.

Har sat koden ind og den kommer med en fejl. Min kode er :

Private Sub Kommandoknap58_Click()
On Error GoTo Err_Kommandoknap58_Click

    Dim xls As New Excel.Application
    DoCmd.RunMacro "prografmakro"
    xls.Visible = True
    xls.Workbooks.Open FileName:="\\Masterserver\Server HDD\DATABASE\Sverige\prograf.xls"
    DoCmd.Quit
Exit_Kommandoknap58_Click:
    Exit Sub

Err_Kommandoknap58_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap58_Click
End Sub

Fejlen kommer på linie :
    Dim xls As New Excel.Application

Hvad gør jeg galt ??

Du mangler sandsynligvis en reference til Excel. Åbn dit kodemodul > Tools > References og sveck om du har et flueben udfor Microsoft Excel.

Hvis du ikke har det, kan Access "ikke se" Excel.

ahhh du er bare en super skat hehhe det var lige det der var galt :) .. damn det havde jeg aldrig fundet ud af selv :)

Du må have en dejlig dag :)

malene

I lige måde tak.