Kuinka saan excel-taulukon jossa on 3000 riviä tallennettu, että jokainen sivu olisi oma tiedosto.
Taulukon jakaminen tiedostoihin
4
362
Vastaukset
- ymmärrä
kymysystä!!! Jos ne 3000 riviä on eri laskentaulukossa (siis välilehdellä, esim Taul1 ja Taul2),niin silloin homma on selvä. Klikkaa hiiren oikella esim. Taul1 valitsinta > sieltä "Siirrä tai kopioi" > "Työkirjaan:" valitse "(uusi kirja)", laita ruksi kohtaan "Tee kopio" > OK. Jne...
Jos et tarkoittanut tätä toimintoa, niin muuta en tuosta kysymyksestä ymmärtänyt. Jos jokainen 3000 rivistä omaksi taulukoksi - HUH HELLETTÄ.- ...
Niin pitäisi saada näistä 3000 rivistä tehtyä 100 tiedostoa joissa on 30 riviä.
Eli 1 tiedostossa on ekat 30 riviä ja toisessa on rivit 31-60 jne...
Onnistuuko? - ...
... kirjoitti:
Niin pitäisi saada näistä 3000 rivistä tehtyä 100 tiedostoa joissa on 30 riviä.
Eli 1 tiedostossa on ekat 30 riviä ja toisessa on rivit 31-60 jne...
Onnistuuko?Nämä 3000 riviä on samassa taulukossa.
moduuliin...
Sub koe()
Dim Sivunalku As String
Dim Alue As Range
Dim i As Integer
Dim j As Integer
Dim alkuwb As String
Dim uusiwb As String
Dim Sivunvaihto As Integer
Dim Rivit As Long
Dim Polku As String
Dim Sivunkoko As Integer
On Error GoTo virhe
Application.DisplayAlerts = False
Application.ScreenUpdating = False
takaisin:
Sivunkoko = Application.InputBox(" Anna rivienmaara sivulla", "Sivuntulostus", 30, Type:=1)
If Sivunkoko = 0 Then Exit Sub
If Not Sivunkoko > 0 Then
MsgBox "Sinun on annettava 0 suurempi luku!"
GoTo takaisin
End If
Rivit = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.ResetAllPageBreaks
If Rivit > Sivunkoko Then
Sivunvaihto = Int(Rivit / Sivunkoko) 1
For i = 1 To Sivunvaihto
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveSheet.UsedRange.Cells(Sivunkoko * i 1, 1)
Next i
End If
alkuwb = ActiveWorkbook.Name
Sivunalku = "$A$1"
For i = 1 To ActiveSheet.HPageBreaks.Count
uusi = i
If i > 1 Then Sivunalku = ActiveSheet.HPageBreaks(i - 1).Location.Address
j = ActiveSheet.HPageBreaks(i).Location.Row - 1
Workbooks.Add
uusiwb = ActiveWorkbook.Name
Workbooks(alkuwb).Sheets(1).Range(Sivunalku & ":" & "$H$" & Trim$(Str$(j))).Copy _
Destination:=Workbooks(uusiwb).Sheets(1).Range("A1") ' oletus eka taulukko
Polku = "H:\" & uusi & ".xls" 'muuta polkua
ActiveWorkbook.SaveAs Filename:=Polku
ActiveWorkbook.Close
Windows(alkuwb).Activate
Next
' vika sivu lisattava manuaalisesti
If j < Rivit Then
uusi = uusi 1
j = j Sivunkoko
Sivunalku = Range(Sivunalku).Offset(Sivunkoko, 0).Address
Workbooks.Add
uusiwb = ActiveWorkbook.Name
Workbooks(alkuwb).Sheets(1).Range(Sivunalku & ":" & "$H$" & Trim$(Str$(j))).Copy _
Destination:=Workbooks(uusiwb).Sheets(1).Range("A1") ' oletus eka taulukko
Polku = "H:\" & uusi & ".xls" 'muuta polkua
ActiveWorkbook.SaveAs Filename:=Polku
ActiveWorkbook.Close
Windows(alkuwb).Activate
End If
virhe:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ukrainan ulkoministeri: Moskova aistii tappion Ukrainassa
Dmytro Kuleban mukaan Venäjä yrittää puheillaan pelotella länsimaita. Ukrainan ulkoministerin Dmytro Kuleban mukaan Venäjän esittämät varoitukset kol2624320Stefu haikailee
Julkaisi stooreissa kuvan vickestä. Sitten Martinasta treenaamassa Hangossa ulkona. Hmm.2653524Harmi mies ettet arvostanut
Minua tarpeeksi. Myöhemmin kaikki olisi palkittu ja olisin antanut sinulle aitoa rakkautta. Tämä sattuu mutta yritän ajatella, että ehkä se rakkaus ku1571841Oi! Legandaarinen Vesa-Matti "Vesku" Loiri, 77, poseeraa kahdessa eri kuvassa - Some riemastui!
Vesa-Matti "Vesku" Loiri on kyllä legenda jo eläessään. Hienoa nähdä, että virtaa piisaa. Voimia, iloa ja eloa, Vesku! https://www.suomi24.fi/viihde251726Lavrov väläyttelee WW3:sta
Venäjän ulkoministeri Sergei Lavrov varoittaa, että kolmannen maailmansodan uhka on todellinen. Lavrov sanoi venäläiselle uutistoimisto Interfaxille,2991452Ketä Sofia fanit veikkaatte seuraavaksi lompakoksi?
Kenestä Sofia höynäyttää itselleen seuraavan lompakon?133974Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi
“Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe18879Voiko hyvää omatuntoa ostaa?
Olen tässä nyt muutaman päivän paininut erään rahaan liittyvän pulman kanssa. Kerron ensin vähän taustaa ... Eli erosin 15 vuoden parisuhteesta 9 vuo235866en vaan saa häntä pois
Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va115858