Uddata fra forespørgsel gemt i Excel regneark

Du kan uden problemet eksportére resultatet fra en forespørgsel til et andet medie, eksempelvis excel

docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"Din forespørgsel","C:din fil.xls",true

Hvis brugeren skal kunne browse sig frem til en fil, skal du bruge commondialog-kode, hvilket er lidt mere omstændigt

Du finder commondialog-eksempler på min hjemmeside: http://www.makeiteasy.dk/eksempler/Downloads.htm

tag f.eks. den, som hedder "Åbn Fil-dialogboks og åbning af vilkårlig fil fra Access"

Tak for hjælpen, det vil jeg lege lidt med,

Selv tak :o)

Ok, dette virker bare : docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"Din forespørgsel","C:din fil.xls",true

Brugeren indtaster en periode og trykker på knappen gem i fil, som så udfører ovenstående.

Men jeg kan ikke rigtigt greje, hvordan jeg skal få lagt commondialog ind, så brugeren kan bestemme navn og placering på filen

du skal importere hele klassemodulet "CommonDialog" fra mit eksempel. Herefter lægger du denne kode ind i din egen:

    Dim dlg As New CommonDialog
    Dim NewPath as string
    dlg.filter = "Excel filer" & vbNullChar & "*.xls"" & vbNullChar & "Alle filer" & vbNullChar & "*.*" & vbNullChar
    dlg.DialogTitle = "Angiv placering af filen"
    dlg.Showsave
    NewPath = dlg.Filename
    If IsNull(NewPath) Or NewPath = "" Then
        Exit Function
    End If
   
    docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"Din forespørgsel",NewPath ,true

Har jeg gjort, men æv. Jeg får en syntax fejl og nedenstående linie bliver fremhævet

    dlg.filter = "Excel filer" & vbNullChar & "*.xls"" & vbNullChar & "Alle filer" & vbNullChar & "*.*" & vbNullChar

Her er hele min kode:

Private Sub Gem_resultat_i_regneark_Click()
Dim dlg As New CommonDialog
    Dim NewPath As String
    dlg.filter = "Excel filer" & vbNullChar & "*.xls"" & vbNullChar & "Alle filer" & vbNullChar & "*.*" & vbNullChar
    dlg.DialogTitle = "Angiv placering af filen"
    dlg.ShowSave
    NewPath = dlg.Filename
    If IsNull(NewPath) Or NewPath = "" Then
        Exit Function
    End If




DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "query1", NewPath, True

End Sub

Prøv denne:

dlg.Filter = dlg.AddFilterItem("", "Excel filer (*.xls)", "*.xls")

Ok, ny fejl. Compile error: "Exit function not allowed in Sub or property"

Teksten Exit function er fremhævet i nedenstående kode:

Private Sub Gem_resultat_i_regneark_Click()
Dim dlg As New CommonDialog
    Dim NewPath As String
   
    dlg.filter = dlg.AddFilterItem("", "Excel filer (*.xls)", "*.xls")
    dlg.DialogTitle = "Angiv placering af filen"
    dlg.ShowSave
    NewPath = dlg.Filename
    If IsNull(NewPath) Or NewPath = "" Then
        Exit Function
    End If




DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "query1", NewPath, True

End Sub

Erstat med: Exit sub

(da din procedure er en Sub i stedet for en Function)

Jep og nu lykkedes det. Mange tusind tak for hjælpen. Genialt

Anytime :o)

janriis > Nu er spørgsmålet jo afsluttet. Men jeg har gennem tiderne samlet lidt funktioner i dataudveksling mellem Access / Excel fra spørgsmål her på eksperten. Er du interesseret i den kan du blot lægge din e-mail, så sender jeg den iaften.