Overflow from One sheet to another sheet in same workbook ?

[Recce]

Hi

How do I get my data to oveflow from Sheet1 to Shet2 to Sheet3 etc when I export data from any query application i.e. Access. I other words, I would like the data to continue on the next page and then to the 3rd page until everything is exported. :->

Thanks

 

[xlbo]

It can be done but why ???
That amount of data in excel, in that kinda format will
a: make the size of the file massive
b: make any formaulae ridiculously complex

I would very much caution against exporting that kinda length of data to excel. Can it not be worked on in Access ?? Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[Recce]

Hey Geoff

What can I say. Users have weird requests. I think they must be more comfortable with Excell :->

 

[xlbo]

Something like this'd probably work - posted by Chance1234 a while ago:
Sub Imverymad

Dim Mydb as database
Dim Myrec as recordset
Dim Wrkbk as workbook
Dim IntSht as integer
Dim RwCnt as integer
Set Wrkbk = createobject("excel.application&quot

Set Mydb = currentdb()
set Myrec = mydb.openrecordset("YourTable&quot

intSht = 1
rwcnt = 1

Do until Myrec.eof = true

if rwcnt = 65000 then
rwcnt = 1
intsht = intsht + 1
end if

with wrkbk.sheets(i)
.cells(rwcnt,1) = myrec![ID]
.Cells(rwcnt,2) = myrec![telephone Number]
end with

rwcnbt rwcnt +1

myrec.movenext
loop

I'm sure someone like Robbroekhuis has also posted a coupla routines for this kinda stuff Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[Recce]

Thanks for this Geoff

I'll play around with this :->

Regards