Abfrage mit VBA-Funktion und langem Text (>256) nach Excel exportieren
Konrad Hammerer
ich habe folgendes Problem:
Ich habe eine Abfrage, innerhalb der eine Spalte von einer VBA-Abfrage
gefüllt wird, die einen sehr langen Text als String zurück liefert. Kann
durchaus auch mal größer als 256 Zeichen sein. Wenn ich diese Abfrage in
Access öffne, dann wird der Inhalt vollständig angezeigt, wenn ich sie
allerdings nach Excel exportiere, dann wird der Inhalt bei 256 Zeichen
abgeschnitten. Das liegt wohl daran, dass der Datentyp der dynamischen
VBA-Spalte "Text" und nicht Memo ist. Wenn ich die Abfrage in eine
Tabelle zwischenspeichere, bei der für diese Spalte eben Memo
eingestellt ist und diese Tabelle dann nach Excel exportiere, dann geht es.
Gibt es dafür eine elegantere Lösung als über eine extra Tabelle zu
gehen, nur um die Daten nach Excel zu bekommen?
Vielen Dank und viele Grüße,
Konrad
Lutz Uhlmann
Wie exportierst du denn die Abfrage?
Nutzt du DoCmd.TransferSpreadsheet? Wenn nicht probier es mal. Achte
auch drauf, daß du die Version nimmst (acSpreadsheetTypeExcel9). Excel
5.0/95 beschneidet glaub ich auf 255 zeichen.
Ansonsten teste mal .TransferText mit der passenden Export-Spezifikation
kannst du dir ja auch ne .csv ausgeben lassen und die in Excel verwenden.
Ansonsten würde ich mal probieren die Spalte als Variant zu casten,
vielleicht hilft das.
Die letzte Lösung könnte sein, für die Abfrage das Feld in 255er Spalten
zu splitten.
Kannst dier mal auch noch folgende Seiten reinzihen. Da scheint man sich
schonmal damit beschäftigt zu haben:
http://allenbrowne.com/ser-63.html
http://support.microsoft.com/kb/294286/de
Lutz
Karl Donaubauer
Kontrolliere mal, wieviel Text deine Abfrage enthält.
Wenn dort schon nur 255 Zeichen zu sehen sind, dann lies:
www.donkarl.com?FAQ5.18
Wenn nicht, solltest du die Export-Methode nennen,
wie schon von Lutz angefordert, und die Access-Version.
--
Servus
Karl
****************
Access-FAQ: http://www.donkarl.com
Konrad Hammerer
Hier nochmal mehr Eckdaten meines Systems:
Windows XP SP3
Access 2003 mit Datenbankformat 2000 (auch 2002-2003 bringt keine ï¿œnderung)
Exportiertes Excel-Format: 97-2003
Mein Problem tritt bei jeder Exportmethode auf und es kann ganz einfach
nachvollzogen werden:
1)
Man erstellt eine VBA-Funktion wie diese hier:
Public Function test1() As String
test1 =
"0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789asdfghjklￜￜ"
End Function
2)
Man erstellt eine Abfrage fï¿œr eine Tabelle wie diese hier:
SELECT Tabelle1.*, test1() AS Ausdr1
FROM Tabelle1;
Wenn man diese Abfrage ï¿œffnet, dann wird der ganze String angezeigt.
Aber exportieren lassen sich eben nur 256 Zeichen davon.
Bin fï¿œr jeden Tipp dankbar!
Grￜￜe,
Konrad
Am 08.06.2010 18:17, schrieb Karl Donaubauer:
> Konrad Hammerer wrote:
>> Ich habe eine Abfrage, innerhalb der eine Spalte von einer VBA-Abfrage
>> gefï¿œllt wird, die einen sehr langen Text als String zurï¿œck liefert.
>> Kann durchaus auch mal grￜￜer als 256 Zeichen sein. Wenn ich diese
>> Abfrage in Access ï¿œffne, dann wird der Inhalt vollstï¿œndig angezeigt,
>> wenn ich sie allerdings nach Excel exportiere, dann wird der Inhalt
>> bei 256 Zeichen abgeschnitten. Das liegt wohl daran, dass der
>> Datentyp der dynamischen VBA-Spalte "Text" und nicht Memo ist. Wenn
>> ich die Abfrage in eine Tabelle zwischenspeichere, bei der fï¿œr diese
>> Spalte eben Memo
>> eingestellt ist und diese Tabelle dann nach Excel exportiere, dann
>> geht es.
>> Gibt es dafï¿œr eine elegantere Lï¿œsung als ï¿œber eine extra Tabelle zu
>> gehen, nur um die Daten nach Excel zu bekommen?
>
> Kontrolliere mal, wieviel Text deine Abfrage enthï¿œlt.
Konrad Hammerer
Grüße,
Konrad
Josef Poetzl
Konrad Hammerer schrieb:
> Mein Problem tritt bei jeder Exportmethode auf
Auch bei Excel-Automation mit CopyFromRecordset?
BTW: ich probierte unter Ac2010 die Export-Methoden über die
Access-Oberfläche aus: dabei wurde sogar beim Export der Tabelle bei
255 Zeichen abgeschnitten.
mfg
Josef
Konrad Hammerer
was verbirgt sich denn dahinter?
> BTW: ich probierte unter Ac2010 die Export-Methoden über die
> Access-Oberfläche aus: dabei wurde sogar beim Export der Tabelle bei
> 255 Zeichen abgeschnitten.
Wenn ich bei einer Tabelle auf die rechte Maustaste klicke und dann
"Exportieren" auswähle, dann geht es bei mir wunderbar. Nur bei besagter
Abfrage nicht :-(
Viele Grüße,
Konrad
>
> mfg
> Josef
Josef Poetzl
Konrad Hammerer schrieb:
>> Auch bei Excel-Automation mit CopyFromRecordset?
>
> was verbirgt sich denn dahinter?
CopyFromRecordset ist eine Methode von der Excel-Bibliothek.
Nachteil dieser Variante: du musst Excel installiert haben.
Test-Code:
' Excel öffnen:
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
excelApp.visible = True
' Eine neue Excel-Datei erzeugen:
Dim excelBook As Excel.Workbook
Set excelBook = excelApp.Workbooks.Add
'Auf das 1. Tabellenblatt verweisen:
Dim excelSheet As Excel.Worksheet
Set excelSheet = excelBook.Worksheets(1)
'Die Abfrage in einem Recordset öffnen:
Dim rstDAO As DAO.Recordset
set rstDAO = currentdb.Openrecordset("DeineAbfrage")
'und nun exportieren:
excelSheet.Range("A1").CopyFromRecordset rstDAO
Anm.: Der Export mit dem DAO-Recordset erzeugte bei mir nach den
ersten 255 Zeichen ein paar "chinesische Zeichen".
=> mit einem ADODB-Recordset hat es dann wie gewünscht funktioniert.
Set rstAdo = New ADODB.Recordset
rstAdo.Open "select * from DeineAbfrage", CurrentProject.Connection
excelSheet.Range("A1").CopyFromRecordset rstAdo
Der obige Code benötigt einen Verweis auf Excel, falls du später ohne
diesen Verweis arbeiten willst, kannst du auf Late binding umstellen.
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
...
Dim excelBook As Object
... usw.
mfg
Josef
Konrad Hammerer
geben...
Grüße,
Konrad
Karl Donaubauer
> Hier nochmal mehr Eckdaten meines Systems:
>
> Windows XP SP3
> Access 2003 mit Datenbankformat 2000 (auch 2002-2003 bringt keine
>
> Mein Problem tritt bei jeder Exportmethode auf und es kann ganz
> einfach nachvollzogen werden:
>
> 1)
> Man erstellt eine VBA-Funktion wie diese hier:
>
> Public Function test1() As String
> test1 =
> End Function
>
> 2)
> Man erstellt eine Abfrage für eine Tabelle wie diese hier:
>
> SELECT Tabelle1.*, test1() AS Ausdr1
> FROM Tabelle1;
>
>
> Aber exportieren lassen sich eben nur 256 Zeichen davon.
>
> ...
Das mit dem Rückgabewert einer Funktion ist halt ein
Spezialfall, bei dem Access auf Textlänge "optimiert".
Mit einem Memofeld in einer Tabelle sollte das nicht passieren.
Falls du den String per Code erzeugen musst, kannst du ihn nicht
vor dem Export in Tabelle1 schreiben oder notfalls in eine
Dummytabelle, die du in die Abfrage reinnimmst?
--
Servus
Karl
****************
http://www.donkarl.com Access-FAQ
http://www.donkarl.com/?aek 13. Access-Entwickler-Konferenz
25./26.09.2010 in Nürnberg, 16./17.10.2010 in Hannover
Konrad Hammerer
> Das mit dem Rückgabewert einer Funktion ist halt ein
> Spezialfall, bei dem Access auf Textlänge "optimiert".
> Mit einem Memofeld in einer Tabelle sollte das nicht passieren.
>
> Falls du den String per Code erzeugen musst, kannst du ihn nicht
> vor dem Export in Tabelle1 schreiben oder notfalls in eine
> Dummytabelle, die du in die Abfrage reinnimmst?
Wie sollte das denn gehen?
Ich habe die VBA-Funkion innerhalb meiner Abfrage und diese bekommt die
ID des aktuellen Datensatzes übergeben und liefert aufgrund dieser ID
den langen Wert zurück. Wie könnte ich diesen denn in eine Tabelle mit
Memofeld zwischenspeichern und dann ID bezogen wieder in die eigentliche
Abfrage einbinden?
Danke,
Konrad
Karl Donaubauer
>> Das mit dem R�ckgabewert einer Funktion ist halt ein
>> Spezialfall, bei dem Access auf Textl�nge "optimiert".
>> Mit einem Memofeld in einer Tabelle sollte das nicht passieren.
>>
>> Falls du den String per Code erzeugen musst, kannst du ihn nicht
>> vor dem Export in Tabelle1 schreiben oder notfalls in eine
>> Dummytabelle, die du in die Abfrage reinnimmst?
> Ich habe die VBA-Funkion innerhalb meiner Abfrage und diese bekommt
> dieser ID den langen Wert zur�ck. Wie k�nnte ich diesen denn in eine
> Tabelle mit Memofeld zwischenspeichern und dann ID bezogen wieder
> in die eigentliche Abfrage einbinden?
Wie geschrieben: "vor dem Export" d.h. vor der Abfrage
F�hre den Code vorher separat aus (Recordset etc.) und schreibe
die Texte in die Tabelle oder in eine Hilfstabelle nur mit ID und Memo.
Danach erst f�hrst du die Abfrage aus.
--
Servus
Karl
****************
http://www.donkarl.com Access-FAQ
http://www.donkarl.com/?aek 13. Access-Entwickler-Konferenz
25./26.09.2010 in N�rnberg, 16./17.10.2010 in Hannover
Konrad Hammerer
halt immer dran denken, erst die eine Abfrage laufen zu lassen, die die
Tabelle befï¿œllt, bevor man die eigentliche Abfrage laufen lï¿œsst, die
dann die Memowerte aus der Tabelle entnehmen kann.
Danke,
Konrad
> Fï¿œhre den Code vorher separat aus (Recordset etc.) und schreibe
> die Texte in die Tabelle oder in eine Hilfstabelle nur mit ID und Memo.
>
> Danach erst fï¿œhrst du die Abfrage aus.
>