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
