Új hozzászólás Aktív témák

• #27003 Louro őstag Cifu #27002

  Új Válasz 2015-05-20 13:57:12 #27003

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Cifu #27002 üzenetére

  Szia,

  ha jól értem annyi fájlt akarsz, ahány sorod van -1 (a fejléc miatt).

  Ha igen, akkor ciklussal addig mennék ahány sor van. Megkommenteztem a kódot, de nem teszteltem. De hátha a logikai út segít.

  Dim SourceBook, NewBook as Workbook
  
  Set SourceBook = ActiveWorkbook
  
  For i = 2 to ActiveSheet.UsedRange.Rows.Count 'Ha nincs fejléc, akkor mehet 1-ről is
  
  Set NewBook = Workbooks.Add
  
  'Itt első oszloptól 10. oszlopig mindent másol. De a logika alapján talán már megvan miképp tudsz
  'kiszedni cellákat.
  SourceBook.Worksheets("A munkalap neve").Range(Cells(i,1),Cells(i,10)) = _
  NewBook.Worksheets(1).Range(Cells(1,1),Cells(1,10))
  
  'Mentsük el a fájlt a sorszám alapján és zárjuk be. Majd ugrás a következőre. Fájlnévnek fontos,
  'hogy a változót tedd be, hogy ne legyen ütközés. Akár Filename:="Tesco_tej_" & i & ".xlsx"
  NewBook.Close Filename:= i & ".xlsx", SaveChanges:=True
  
  Next

Új hozzászólás Aktív témák