Pobeme im Variant/String nach Excel

13/04/2009 - 11:31 von Felix Uesbeck | Report spam
Hallo lese aus ein From Daten aus zur übergabe nach Excel
bei einer bestmten Datenmange erscht die Meldung
"Laufzeitfehler 1004"
"Anwendung- oder objektdefinerter Fehler."

ReDim ArrSp(Zeilen, Spalten) As Variant
àndere ich die Zeile auf
ReDim ArrSp(Zeilen, Spalten) As String
gehts wieder
der nachteil alle Zahlen werden dann als String ('66) dargestellt was nicht
soll,
von From werden noch nicht alle Spalten übergeben.
weiß jemand einen Rat zu?

wàre für jeden Tipp dankbar
Gruß Felix


Sub Ausgabe_an_Excel(rs1 As Recordset)
If rs1.BOF And rs1.EOF Then Exit Sub 'keine Daten

Dim rs2 As New ADODB.Recordset
rs2.Open "SELECT * FROM tbl__0_Excel WHERE AkListe = True ORDER BY
Stelle;", CurrentProject.Connection, 1, 3

Dim F1 As Long, x As Long
Dim Zeilen As Long, Spalten As Long, Zeile As Long, Spalte As Long, ZKopf
As Long

ZKopf = 3
Zeilen = rs1.RecordCount + 4 'Überschriften
Spalten = rs2.RecordCount

ReDim fldSp(Spalten) As Variant
ReDim ArrSp(Zeilen, Spalten) As Variant <######

Spalte = 1
Do Until rs2.EOF
fldSp(Spalte) = rs2!fldName
Spalte = Spalte + 1
rs2.MoveNext
Loop

Zeile = ZKopf + 1 'ab der 3Spalte Daten
rs1.MoveFirst
Do Until rs1.EOF
For Spalte = 1 To Spalten
ArrSp(Zeile, Spalte) = Nz(rs1(fldSp(Spalte)), "")
Next
Zeile = Zeile + 1
rs1.MoveNext
Loop
Set rs1 = Nothing

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1").Resize(Zeilen, Spalten).Value = ArrSp

Dim pfad As String
pfad = "c:\test"
oBook.SaveAs pfad
oExcel.Visible = True
 

Lesen sie die antworten

#1 Stefan Hoffmann
13/04/2009 - 11:48 | Warnen spam
hallo Felix,

Felix Uesbeck schrieb:
wàre für jeden Tipp dankbar


Verzichte auf das Array und benutze statt dessen die Methode
CopyFromRecordset:

http://support.microsoft.com/kb/246335
http://www.mvps.org/access/modules/mdl0035.htm


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen