Adam Modzelewski

Student, Politechnika Białostocka

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie Excel w temacie rozdzielenie arkuszy

  17.06.2010, 17:29

  Maciek Głuszak:
  Bosh, co za czasy;). Jak byłem młody to student siadał i przeklejał, a teraz do byle pierdnięcia makro;)
  
  Chłopie, podzielić na 65 części to z odbezpieczonym granatem w dupie da radę ręcznie.
  
  Nie wiem dokładnie czy o to Ci chodzi (arkusz to "zakładka", cały plik excela to skoroszyt), ale w ramach programu zachęcania ludzi do nauki excela masz tutej:
  
  

  
  
  
  
  Sub temp()
  
  Dim SourceWorkbook As Workbook
  
  Dim SourceSheet As Worksheet
  
  Dim DestWorkbook As Workbook
  
  Dim DestSheet As Worksheet
  
  Dim SOurceRange As Range
  
  Dim HeaderRange As Range
  
  
  
  Dim n As Long
  
  
  
  Application.ScreenUpdating = False
  
  Set SourceWorkbook = ActiveWorkbook
  
  Set SourceSheet = ActiveSheet
  
  Set HeaderRange = Range(Cells(1, 1), Cells(1, 3))
  
  
  
  
  
  For n = 0 To 64
  
      Set DestWorkbook = Workbooks.Add
  
      Set DestSheet = DestWorkbook.Worksheets(1)
  
      SourceSheet.Parent.Activate
  
      SourceSheet.Activate
  
      Set SOurceRange = Range(Cells(n * 1000 + 2, 1), Cells((n + 1) * 1000 + 2, 3))
  
      HeaderRange.Copy Destination:=DestSheet.Cells(1, 1)
  
      SOurceRange.Copy Destination:=DestSheet.Cells(2, 1)
  
      DestWorkbook.SaveAs (Replace(SourceWorkbook.Name, ".xls", " part " & n + 1 & ".xls"))
  
      DestWorkbook.Close
  
  Next n
  
  
  
  End Sub
  
  

  
  
  Jeżeli chcesz dzielić nie na pliki tylko na zakładki to jedna czy dwie linijki do podmiany, ale to w ramach pracy własnej;)

  
  nigdy exelem się nie interesowałem, dziękuje za skrypt, działa wyśmienicie lecz dzieli na pliki po 1000 wierszy z 3 kolumnami, to już szczegół bo i tak zaoszczędziłeś mi dużo pracy. Dokładniej jak już ktoś pytał to są to sygnały z silnika wirnikowego, robię analizę falkową owych sygnałów (magisterka)
  
  pozdrawiam

• 
  Wpis na grupie Excel w temacie rozdzielenie arkuszy

  17.06.2010, 08:53

  3 x 65 ctrl+c/ctrl+v + zapis = masakra
  
  nie ma latwiejszego sposobu ?

• 
  Wpis na grupie Excel w temacie rozdzielenie arkuszy

  16.06.2010, 15:38

  witam serdecznie
  
  mam nie maly jak dla mnie problem, moze ktorys z forumowiczow bedzie wiedzial jak go rozwiazac. Mam 3 arkusze xls w kazdym 3 kolumny po 65000 wierszy(dane to liczby w zakresach -800/800). Problem polega w tym iz musze je rozdzielic na arkusze po 1000 wierszy. Bardzo prosze o pomoc.