Kuinka saan excel-taulukon jossa on 3000 riviä tallennettu, että jokainen sivu olisi oma tiedosto.
Taulukon jakaminen tiedostoihin
4
366
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
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww675331- 573565
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1502651Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1052136Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.891822Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381277Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-211269En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois961228Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1951202- 1731136