Hallo Helga,
Also ich habe 2 Abfragen die ich in eine Excelmappe
exportieren will so dass der Text dann untereinander
erscheint.
bitte gib an wovon du eigentlich sprichst. Aufrgund der Codezeilen mutmaßlich von Access, 100 %ig sicher ist das aber nicht.
Aufgrund der 8 im Code gehe ich mal von 8= acSpreadsheetTypeExcel9 aus, und sehe die 9 als Excel 2000 an, ergo haTS DU access 2000, oder halt nicht
Du benutzt „acExport“ weil du aus deiner
A13d_qry_Query11-Access-Tabelle nach
\Dnde01\service\W_WARRANTY\01_CLAIM COST\02_DOCUMENTS\FIAT\2011\FIAT
CHECK Overviews Pivot.xls
exportieren willst.
Das True betrifft nur ob du Spaltenüberschriften hast oder nicht.
Als letzten Parameter gibst du aber
„Remanufactured_out of 380 days“
an, also wohl einen Bereichsnamen.
Ohne Ahnung von Access würde ich mal sagen das ist ein Fehler beim exportieren
Denn in der Hilfe zu
DoCmd.TransferSpreadsheet
steht:
Bereich
Ein Zeichenfolgenausdruck, der einen gültigen Zellenbereich oder den
Namen eines Bereichs im Spreadsheet angibt.
Dieses Argument betrifft nur das Importieren. Geben Sie dieses
Argument nicht an, wenn Sie das gesamte Spreadsheet importieren
möchten.
Wenn Sie in ein Spreadsheet exportieren, lassen Sie dieses
Argument weg. Wenn Sie einen Bereich eingeben, wird das Exportieren
fehlschlagen.
Überprüf das bitte.
Zu deiner Anfrage an sich, mit dem Untereinander.
Mangels Access-Ahnung kann ich da dir nix raten. Außer vielleicht im Accessbrett anzufragen da sind auch Access-Vba-Kenner.
Hier im VB-Brett weniger.
Wenn sich nix ergibt kann ich dir Excelseitig anbieten, daß sofern dein Code funktioniert du das zeugs erstmal durch die zwei Codezeilen in zwei verschiedene Excel-Mappen exportierst.
Dann kann man über nachfolgende Codezeilen nachdenken die dann diese beiden Excelmappen „nehmen“ und eine daraus schnitzen wo wie gewünscht die Daten untereinanderstehen.
Mit Code meine ich Codezeilen in Access, direkt unter deinen Exportcodezeilen.
Für mich wäre es hilfreich wenn du da eine im Spaltenaufbau identische Access-tabelle erstellst, da die Auswahlabfrage auch „A13d_qry_Query11“ benennst.
So daß ich zumnindest die eine Exportzeile laufen lassen kann um dann zu schauen was da in Excel erstellt wurde.
Hochladen mit fileupload o.ä., s. FAQ:2606
DoCmd.TransferSpreadsheet acExport, 8, „A13d_qry_Query11“,
„\Dnde01\service\W_WARRANTY\01_CLAIM
COST\02_DOCUMENTS\FIAT\2011\FIAT CHECK Overviews Pivot.xls“,
True, „Remanufactured_out of 380 days“
Vielen Dank für eine Antwort möglichst in einfachen „Nicht -
Computer - Freak“ deutsch.
Ich hoff du kommst mit meiner Antwort klar, ansonsten frag nach.
Gruß
Reinhard