Genvej til skabelon

Jeg arbejder udelukkende i Access97. Men det kunne vel være værd at prøve denne kode også i 2000. Den fungerer i 97:

Private Sub Kommandoknap10_Click()
Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:=\"D:\\VBA funktioner\\VBA\\Mappe1.xls\"
DoCmd.Quit
End Sub


Linien henter en bestemt excelfil er denne:
xls.Workbooks.Open Filename:=\"D:\\VBA funktioner\\VBA\\Mappe1.xls\"

Hvis du har en skabelon, skal denne lagres på dit C-drev i mappen Programmer\\Microsoft Office\\Skabeloner som en Excel-skabelon. Når du har hentet dette, skal det igen lagres med det unikke patientid, som du har i Access.

Jeg prøver lige så snart julen er vel overstået.

God jul fra Mikkel

Tak - i lige måde.

Det fungerer ikke.

Jeg får en fejlmeddelse hvor der står \"User-defined type not defined\". Og den markerer så \"xls As New Excel.Application\".

Jeg har skrevet som følger:

Private Sub Kommandoknap44_Click()

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:=\"D:\\VBA funktioner\\VBA\\Vægtskema.xls\"
DoCmd.Quit
End Sub

???

Det kan være forskelligheder fra 97 til 2000. Men:

Har du husket at tilføje Excel referencen i Access. Åbn Access i et kodemodul, trykm på Funktioner > Referencer og kontroller at dit Excel-bibliotek er afkrydset. I engelske versioner er det : tools > References. Hvis ikke det er afkrydset, kan Access ikke \"se\" Excel.

Linien:

xls.Workbooks.Open Filename:=\"D:\\VBA funktioner\\VBA\\Vægtskema.xls\"

er kun et eksempel i mit svar. Du skal indtaste den korrekte sti. Dit vægtskema ligger ikke i mappen VBA funktioner\\VBA. Indtast den korrekte sti.

Jeg har gjort som du skriver, men den kommer nu med en fejlmeddelse hvorpå der står \"Compile error: invalid use of new keyword\". Og igen makerer den det samme \"xls As New Excel.Application\". Jeg har slået Excel til!
Der står nu:

Private Sub Kommandoknap44_Click()

Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:=\"D:\\Office\\Templates\\1030\\Vægtskema.xls\"
DoCmd.Quit
End Sub

Jeg ved ikke hvad denne kompileringsfejl betyder, men jeg vil gætte på, at det er forskelligheder fra 97 til 2000.

Jeg sidder på arbejde indtil imorgen tidlig, og jeg tror ikke jeg kan komme videre før jeg kommer hjem. Jeg vil tro spørgsmålet har været rejst før i Access2000. Prøv evt. at søge i Access på ekspertens forside og derefter i excel.

Se evt:
http://www.eksperten.dk/spm/28781

Okay jeg prøver.
Men ellers tak for hjælpen. Skriv gerne hvis ti-øren pludselig skulle falde :-)

Lukket pga manglende svar