Szia, ha nem árulod el, hogyan nyitható meg a forrás file-ok sorozata, akkor Neked kell megcsinálnod! :) A többit itt találod:
Public Const FILE_COUNT = 1 Sub BI_Sum() Dim i As Integer For i = 1 To FILE_COUNT If Next_Open(i) Then Workbooks(i + 1).Worksheets(1).Name = Str(i) Workbooks(i + 1).Worksheets(1).Copy After:=ThisWorkbook.Worksheets(i) Workbooks(i + 1).Close SaveChanges:=True Else MsgBox ("Nem nyitható meg a(z) " + Str(i) + ". file!") Exit For End If Next ThisWorkbook.Save End Sub ' --- ide kellene a megnyitás kódja Function Next_Open(FileNum As Integer) As Boolean Workbooks.Open Filename:="URLAP.XLS" Next_Open = True End Function > -----Original Message----- > From: techinfo-boun...@lista.sulinet.hu [mailto:techinfo- > boun...@lista.sulinet.hu] On Behalf Of Bálint István > Sent: Tuesday, December 16, 2008 8:02 AM > To: techinfo@lista.sulinet.hu > Subject: Re: excel munkafüzetek összefűzése > > TIgen, mind egy munkalap - ugyanaz a munkalap. Egy kérdőív féle, melyet > a tanulóknak kell kitölteni. > Bálint istván __________ ESET NOD32 Antivirus - Vírusdefiníciós adatbázis: 3694 (20081215) __________ Az üzenetet az ESET NOD32 Antivirus ellenõrizte. http://www.eset.hu
_______________________________________________ Techinfo mailing list Techinfo@lista.sulinet.hu http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.1let.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhalo2.hu/Faq.aspx