exporter tabel til excel

Dim db As Database
Dim rs As Recordset
Dim sSQL As String
Dim MyQry As QueryDef

    Set db = CurrentDb
   
    Set rs = db.OpenRecordset(\"tblBranch\")

   
    DoCmd.SetWarnings False
   
    Do While Not rs.EOF
           
        sSQL = \"SELECT TOP 10 [gr all down].* FROM [gr all down] WHERE [gr all down].[branch nr] = \'\" & rs!BranchNr & \"\'\"

        \'Create a new querydef
        Set MyQry = db.CreateQueryDef(rs!BranchNr)
        MyQry.SQL = sSQL
        MyQry.Close
       
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, rs!BranchNr, \"D:\\test\\Filial_\" & rs!BranchNr & \".xls\", False, \"\"
       
        db.QueryDefs.Refresh
        db.QueryDefs.Delete rs!BranchNr
           
        rs.MoveNext
       
    Loop
   
    DoCmd.SetWarnings False
   

Public Sub exportRegionToExcel(lngBranch As Long)
  Dim q As QueryDef
  Set q = CurrentDb.CreateQueryDef(\"ZZZ_TempExport\", \"SELECT * FROM TOP10 WHERE [Branch nr]=\" & lngBranch)
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, \"ZZZ_TempExport\", \"D:\\TEST\\\" & lngBranch & \".xls\", , \"Ark1\"
  CurrentDb.QueryDefs.Delete \"ZZZ_TempExport\"
End Sub

Public Sub test()
  Dim RA as RecordSet
  Set RA=CurrentDB.OpenRecordset(\"SELECT Branchnr FROM tblbranch;\")
  While Not RA.EOF
    exportRegionToExcel RA!Branchnr
    RA.MoveNext
  Wend
  RA.Close
  Set RA=Nothing
End Sub

Jeg skylder terry at prøve hans metode først fordi han har brugt en del krudt på det allerede igår , MEN... jeg har lavet det lidt om dog får jeg en felj i transfer linien da den siger at stien ikke findes (d:\\test\\filial_2.xls )

jeg har et d-drev men det hjælper heller ikke hvis jeg fjerner \"test\" fra stien så den hedder:

(d:\\filial_2.xls )


???

her er mit script :

Private Sub Command55_Click()
Dim db As Database
Dim rs As Recordset
Dim sSQL As String
Dim MyQry As QueryDef

    Set db = CurrentDb
   
    Set rs = db.OpenRecordset(\"tblBranch\")

   
    DoCmd.SetWarnings False
   
    Do While Not rs.EOF
           
        sSQL = \"SELECT [top10].* FROM [top10] WHERE [top10].[branch nr] = \'\" & rs!BranchNr & \"\'\"

        \'Create a new querydef
        Set MyQry = db.CreateQueryDef(rs!BranchNr)
        MyQry.SQL = sSQL
        MyQry.Close
       
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, rs!BranchNr, \"D:\\test\\Filial_\" & rs!BranchNr & \".xls\", False, \"\"
       
        db.QueryDefs.Refresh
        db.QueryDefs.Delete rs!BranchNr
           
        rs.MoveNext
       
    Loop
   
    DoCmd.SetWarnings False
   
End Sub

well I have just tested it here and it works fine, I dont get the message!

her er den exakte medd. :

Run-time error \'3044\':

\'d:\\test\\filial_2.xls\' isn\'t a valid path. Make sure that the pathname is spelled correctly, and that you have connected to the server on which the file resides.

PS desuden denne meddelellse er der ged i den forespørgsel den laver idet der i kriterie står :
\'2\' skriver jeg derimod bare 2 uden klammer virker forespørgslen...

( normalt plejer man da at skulle angive \"\" om sine værdier i kriterier ????????)

\"Gåseøjne\" er kun hvis der er tale om strenge, hvis dit Branchnr er numerisk, så skal de ikke med...

Hvad sker der, hvis du prøver at skrive til C-drevet???

I have feeling that you have your \"filialer\" as numbers in your tblBranch, I have tehm as text!!!
Yes I am aware that ther are numbers!

har også prøvet til c-drevet men nej....

det hjælper heller ikke at ændre branchnr i tblbranch fra number til text...

jeg tror det hele virker hvis bare den der export ville virke....

jeg har også ændret fra number til text i tabellen top10. men nej...lige lidt hjalp det...


for helv... det plejer da ikke at volde problemer..

Du skal nok prøve at få lidt ensartethed over hvordan du skrive BranchNR, i Terry\'s eksempel bliver der først udvalgt data ud fra et kriterie på [Branch Nr], og derefter bruger man et felt i tabellen som hedder [Branchnr]... disse skal da vist være ens???  Prøv at sætte BranchNr til numerisk i alle tabeller, og at navngive ensartet!!!

nu virker det...!!! det var vist bare det forbandede bibliotek der ikke fandtes \"test\".

her er scriptet som jeg har det til at virke med...

Private Sub Command55_Click()
Dim db As Database
Dim rs As Recordset
Dim sSQL As String
Dim MyQry As QueryDef

    Set db = CurrentDb
   
    Set rs = db.OpenRecordset(\"tblBranch\")

   
    DoCmd.SetWarnings False
   
    Do While Not rs.EOF
           
        sSQL = \"SELECT [top10].* FROM [top10] WHERE [top10].[branch nr] = \'\" & rs!BranchNr & \"\'\"

        \'Create a new querydef
        Set MyQry = db.CreateQueryDef(rs!BranchNr)
        MyQry.SQL = sSQL
       
        MyQry.Close
       
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, rs!BranchNr, \"d:\\filial_\" & rs!BranchNr & \".xls\", True, \"\"
       
        db.QueryDefs.Refresh
        db.QueryDefs.Delete rs!BranchNr
           
        rs.MoveNext
       
    Loop
   
    DoCmd.SetWarnings False
   
End Sub

I thought you said you had changed it to d:\\ and not D:\\test ?

ikke fordi jeg ikkeville give dig point Poul Erik, men som sagt havde terry brugt en del ressourcer allerede forud for dette spørgsmål...

hvis du føler dig snydt må du sige til...dt er jo ved at være lavvande i min kasse sååhhhh jeg er nok blevet lidt nærig i disse varme dage...

you should have given the points to proaccess, he wants to get in the top 10 too!

det havde jeg faktisk også ...!!!! men hvem ved hvad der foregår i hovedet på bill Gates programmer engang imellem eller på min pc...

man kan jo blive forundret....

jeg havde også en textbox på et tidspunkt der skulle blive synlig ved åbning af en formular.. jeg kunne ikke få det til at virke og opgav da alt syntes rigtigt, MEN så en dag... ja så virkede det...?????

Region> Det vigtigste er at det virker!!! Det har Terry absolut hjulpet dig med, så det er rigtig nok ham, som fortjener de point!!!

Da jeg efterhånden bliver bedre til at forstå VBA og synes det er helt kanon det her stiller jeg lige endnu et spørgsmål...

( jeg udprinter og gemmer alle mine svar / løsninger til senere brug )

http://www.eksperten.dk/spm/92348