Access til excel

Opret et modul i Access.
Copy&Paste flg. kode i modulet (testet i Office 97):

Sub ExportQueries(strExcelPath As String)
    Dim QueryName As String
    Dim i As Integer
   
    On Error GoTo Hell

    For i = 0 To Application.CurrentDb.QueryDefs.Count - 1
        QueryName = Application.CurrentDb.QueryDefs(i).Name
        DoCmd.TransferSpreadsheet acExport, 8, QueryName, _
            strExcelPath, True, ""
    Next

Hell:
    If Err.Number <> 0 Then
        MsgBox "Der er opstået en fejl!"
    End If
End Sub

Hvordan kører jeg modulet?

Det kan du gøre vha. en knap på en formular og kalde proceduren sådan her:

Private Sub Command1_Click()
    ExportQueries "c:\myExcel.xls"
End Sub

Hvordan kan der opstå en fejl? - jeg mener, hvad er det, som gør, at den skriver "Der er opstået en fejl"

If Err.Number <> 0 Then
    MsgBox "Der er opstået en fejl!"
End If

Ovenstående kode er skrevet til Office 97. Hvilken Office-version bruger du?

Jeg bruger Office XP, så det burde vel ikke give noget problem?

det kan det faktisk godt
prøv Error.Number istedet

bak, nu siger den run-time error '424' - Object required til linien Error.Number <> 0

Jeg lukker hermed spørgsmålet

Fik du løst problemet?