Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Abfragen/temp Tabellen aus Access in Excel exportieren

Mitglied: mac-d

mac-d (Level 1) - Jetzt verbinden

30.09.2005, aktualisiert 14.02.2006, 27285 Aufrufe, 13 Kommentare

hi,

ich habe in access vier abfragen mit jeweils einem wert. diese 4 werte(aus vier abfragen) will ich mittels vba aus access in eine excel tabelle exportieren und zwar soll jeden wert an einer bestimmten stelle. kann mir jemand helfen?
thx mac
Mitglied: coppi
02.10.2005 um 16:41 Uhr
Das Problem habe ich auch.
Es funktioniert zum Einen mit einem Import externer Daten in Excel oder mit einem Modul in Access, womit eine Excel-Tabelle generiert wird.
Leider ist mir bislang nicht bekannt, wie ich so ein Modul programmieren kann.
Access ist da sehr unübersichtlich.
Vielleicht kann ja jemand erläutern, wie so etwas genau funktioniert.
Bitte warten ..
Mitglied: Eierbaer
03.10.2005 um 11:21 Uhr
Hi,

das Problem läßt sich aus Access herauslösen, wenn du ein VBA-Modul wie unten beschrieben benutzt.

mfg



Public Sub test()
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object ' Excel.Workbook
Dim xlSheet As Object ' Excel.Worksheet

Dim rst As DAO.Recordset

'Excel-Objekt öbffnen und Workbook hinzufügen
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add()

'Wert aus 1.Abfrage in Zelle A4 kopieren
Set xlSheet = xlBook.Worksheets(1)
Set rst = CurrentDb.OpenRecordset("Abfrage1")
xlSheet.Range("A4").CopyFromRecordset rst
rst.Close

'Wert aus 2.Abfrage in Zelle C4 kopieren
Set rst = CurrentDb.OpenRecordset("Abfrage2")
xlSheet.Range("C4").CopyFromRecordset rst
rst.Close

'Objekte schließen
Set rst = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
Bitte warten ..
Mitglied: coppi
03.10.2005 um 11:48 Uhr
Danke für die schnelle Antwort.

Ich habe den Code einfach mal in meine Anwendung unverändert hineinkopiert.
Beim Ausführen bekomme ich dann die Fehlermeldung:

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

Dabei wird die Programmzeile

Dim rst As DAO.Recordset

blau hinterlegt.

Woran liegt das denn?

Hat sich erledigt!
Wer suchet der findet.

Ich hatte die "Microsoft DAO 3.6 Object Library" nicht aktiviert.
Danach funktioniert das script.
Vielen Dank!!!
Bitte warten ..
Mitglied: mac-d
04.10.2005 um 11:37 Uhr
das script geht bei zwar auch, nur habe ich das problem das ich abfragen nicht auslesen kann. ich bekomme immer eine fehlermeldung" Laufzeitfehler 3078". mit einer tabelle funktioniert es wunderbar. kann mir einer helfen?
Bitte warten ..
Mitglied: Eierbaer
04.10.2005 um 13:09 Uhr
Wie sieht denn deine Abfrage aus? Der Laufzeitfehler '3078' sagt nur, das es die Tabelle nicht gibt. Das Problem muß also in der Abfrage stecken bzw. im Aufruf.
Bitte warten ..
Mitglied: mac-d
04.10.2005 um 13:21 Uhr
ich kann alle abfragen öffnen und bekomme das gewünschte ergebnis nur über OpenRecordset lassen sich keine! abfragen öffnen bzw. das ergebnis auslesen. mit tabellen habe ich keine probleme
Bitte warten ..
Mitglied: Eierbaer
04.10.2005 um 13:35 Uhr
Tut mir leid, aber mit der Aussage kann ich nichts anfangen. Schreib doch mal das SQL der Abfrage und den Aufruf des OpenRecordset.

Wie ist es mit der Zeit zwischen auf Aufruf und Ergebnis der Abfrage, gibt es evtl. ein Timeout-Problem?
Bitte warten ..
Mitglied: mac-d
04.10.2005 um 14:45 Uhr
hier meine sql-abfrage:

SELECT count(*) AS anzahl
FROM Kombi, Personal, Bestellung, typ
WHERE Personal.PNr=Bestellung.PNr And Kombi.KombiNr=Bestellung.KombiNr And Month([Bestellung.datum])=Month(Formulare!Monattest!txtDatum1) And Year([Bestellung.datum])=Year(Formulare!Monattest!txtDatum1) And Kombi.KombiNr=Bestellung.kombiNr And kombi.typnr=typ.typnr And (typ.typnr Between 2 And 7 Or typ.typnr Between 9 And 10);


hier mein aufruf:

Public Sub test3()
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object ' Excel.Workbook
Dim xlSheet As Object ' Excel.Worksheet

Dim rst As DAO.Recordset

'Excel-Objekt öbffnen und Workbook hinzufügen
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add()

'Wert aus 1.Abfrage in Zelle A4 kopieren
Set xlSheet = xlBook.Worksheets(1)
Set rst = CurrentDb.OpenRecordset("Monat_Pizza")
xlSheet.Range("A4").CopyFromRecordset rst
rst.Close
.
.
.


EDIT:

1. SQL abfrage funktioniert wenn ich es z.b.mit doCmd aufrufe
2. der aufruf funktioniert mit anderen abfragen (nur nicht mit dieser abfragen)
Bitte warten ..
Mitglied: mac-d
04.10.2005 um 17:01 Uhr
hab nun doch anderst gelöst!

'Wert aus 1.Abfrage in Zelle A26 kopieren
Set xlSheet = xlBook.Worksheets(1)
Set rst = CurrentDb.OpenRecordset("SELECT Count(*) AS anzahl FROM Kombi, Personal, Bestellung, typ WHERE Personal.PNr=Bestellung.PNr AND Kombi.KombiNr=Bestellung.KombiNr And Kombi.KombiNr=Bestellung.kombiNr AND Month(Bestellung.datum)=Month('" & Form_Monattest.txtDatum1 & "') AND Year(Bestellung.datum)=Year('" & Form_Monattest.txtDatum1 & "') AND Kombi.TypNr=typ.typnr AND typ.TypNr=1")
xlSheet.Range("A26").CopyFromRecordset rst
rst.Close

etc...
Bitte warten ..
Mitglied: visit
10.11.2005 um 16:59 Uhr
Hallo zusammen,
kann ich das Script auch dazu benutzen eine Abfrage mit mehr als einem Wert in Excel zu exportieren?
Wenn ja, wie mach ich das?

Danke im Voraus!

ViSiT
Bitte warten ..
Mitglied: Biber
10.11.2005 um 21:10 Uhr
@visit
Laut Aufruf der VBA-Hilfe in Excel und Eingabe des Suchbegriffs "CopyFromRecordSet" könnte es in Excel 2002 so gehen:
[Zitat]
CopyFromRecordset-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Kopiert den Inhalt eines ADO- oder DAO-Recordset-Objekts in ein Arbeitsblatt, wobei an der linken oberen Ecke des angegebenen Bereichs begonnen wird. Enthält das Recordset-Objekt Felder mit OLE-Objekten, schlägt diese Methode fehl.

Ausdruck.CopyFromRecordset(Data, MaxRows, MaxColumns)

Ausdruck Erforderlich. Ein Ausdruck, der ein Range-Objekt zurückgibt.

Data Erforderlicher Variant-Wert. Das Recordset-Objekt, das in den Bereich kopiert werden soll.

MaxRows Optionaler Variant-Wert. Die maximale Anzahl von Datensätzen, die in das Arbeitsblatt kopiert werden sollen. Wenn Sie dieses Argument nicht angeben, werden alle Datensätze im Recordset-Objekt kopiert.

MaxColumns Optionaler Variant-Wert. Die maximale Anzahl von in das Arbeitsblatt zu kopierenden Feldern. Wenn Sie dieses Argument nicht angeben, werden alle Felder im Recordset-Objekt kopiert.

Anmerkung
Das Kopieren beginnt mit der aktuellen Zeile des Recordset-Objekts. Nach dem Kopieren hat die EOF-Eigenschaft des Recordset-Objekts den Wert True.

Beispiel
In diesem Beispiel werden die Feldnamen von einem DAO-Recordset-Objekt in die erste Zeile eines Arbeitsblattes kopiert und fett formatiert. Anschließend wird in diesem Beispiel der Datensatz in das Arbeitsblatt kopiert, beginnend mit Zelle A2.

For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
[Zitat Ende]

Leider hast Du nicht gepostet, welche Excel/Accessversionen Du verwendest - ich könnte sonst noch ein paar Bekannte anrufen, die eventuell Deine Version im Einsatz haben und um kurzes Nachgucken in der Hilfe bitten.
BTW, auf welche Art hast Du denn versucht, Dich mit Deiner Frage auseinanderzusetzen?

Grüße Biber
Bitte warten ..
Mitglied: visit
11.11.2005 um 09:19 Uhr
danke für die schnelle antwort, aber ich hab es mit einem makro gelöst:

Aktion: TransferArbeitsblatt
Transfertyp: Exportieren
Dateiformat: Microsoft Excel 8-10
Tabellenname: (Tabelle oder Abfrage)
Dateiname: (Zieldatei mit Pfad)
Bereich: (Name des Tabellenblatts)
Bitte warten ..
Mitglied: Bekka
14.02.2006 um 10:17 Uhr
Supi, das war genau das was ich gesucht habe und es funktioniert auch soweit.
Jetzt stehe ich allerdings vor dem nächsten Problem.
In meinen Abfragen habe ich 2 Variable Kriterien:
"[Formulare]![Frm_ÜbersichtAuswahl]![cbo_AuswahlVergleichLand1] Oder [Formulare]![Frm_ÜbersichtAuswahl]![cbo_AuswahlVergleichLand2]"
die aus einem Formular kommen.
Beim durchführen bekomme ich dann immer Laufzeitfehler 3061, 2 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergen.
Wie kann ich denn am besten die Parameter aus meinem Formular übergeben?

Ich hoffe, es kann mir jemand helfen.

Gruß Bekka

P.S. Manchmal muss man nur ein paar Nächte darüber schlafen um auf eine Lösung zu kommen. Ein einfaches Recordset genommen und im open die 2 variablen in SQL eingebaut
Bitte warten ..
Ähnliche Inhalte
Datenbanken
Excel Tabelle in Access Datenbank
gelöst Frage von Dr.CornwallisDatenbanken9 Kommentare

Liebe Gemeinde, ich muss aus einer Excel Tabelle Daten in einen Access Table importieren, nun möchte ich die Excel ...

Microsoft

Mdb Zwei Tabellen fusionieren und als CSV exportieren (Access)

gelöst Frage von ErgenekonMicrosoft2 Kommentare

Liebe Gemeinde, ich wollte wissen, wie man bei Access bei einer Datenbank mehrere Tabellen fusionieren kann und wie sich ...

VB for Applications

Script um für eine Access- Abfrage Datensätze in jeweils eine Datei zu exportieren

Frage von GraudonVB for Applications11 Kommentare

Problem: ich möchte das Ergebnis einer Access-Abfrage für jeden einzelnen Datensatz eine eigene Text-Datei ausliefern. Die Abfrage läuft in ...

Windows Server

SQL Abfrage automatisch exportieren

Frage von Andinistrator1Windows Server6 Kommentare

Hallo Zusammen, kurz und knapp: Ich habe eine SQL Abfrage. Diese soll automatisch, z.B. per Agend 1x/Nacht ausgeführt werden. ...

Neue Wissensbeiträge
Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 1 TagSonstige Systeme5 Kommentare

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 1 TagDatenschutz3 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Windows 10

Macht Windows 10.1809 Probleme mit gemappten Netzlaufwerken (betrifft wohl insbes. AMD-Hardware und Trend Micro AV-Produkte)?

Tipp von VGem-e vor 1 TagWindows 103 Kommentare

Moin Kollegen, grad dazu gefunden und Hatten wir dies nicht bei früheren W10-Upgrades ebenfalls? Da bleibt nur, das Upgrade ...

Humor (lol)

Das neue Miniatur Wunderland OFFICIAL VIDEO - worlds largest model railway - railroad

Information von StefanKittel vor 2 TagenHumor (lol)2 Kommentare

Hallo, wer noch nie im Miniatur Wunderland war, sollte es dringend mal nachholen. Es gibt eine neues Video. Viele ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Gäste-WLAN durch DD-WRT AP nach einem MikroTik Routerboard
Frage von NukolarLAN, WAN, Wireless16 Kommentare

Hallo, wie der Titel schon sagt möchte ich gerne ein Gäste-WLAN innerhalb eines bestehenden LANs einrichten. Dass die Gäste ...

DSL, VDSL
DSL Monitoring Tool - Quick and dirty?
Frage von george44DSL, VDSL15 Kommentare

Liebe Gemeinde, ich suche ein einfaches und vor allem schnell zu installierendes Monitoring-Tool zur kontinuierlichen Dokumentation (nur) der Internetanbindung. ...

Exchange Server
Outlook findet Postfach nicht
Frage von MaximaxExchange Server11 Kommentare

Hallo, und zwar haben wir auf der Arbeit ein kleines (großes) Exchange 2016 Problem. Exchange meldete gestern, dass die ...

Informationsdienste
Probleme auf dem Server
Frage von LangeLangeInformationsdienste9 Kommentare

Hallo zusammen, ich betreibe die Seite Keine Werbelinks. In der Analyse stellen wir fest, dass die Ladezeit in der ...