RE: excel munkafüzetek összefűzése

[Ambróz Zoltán]

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-bounces at lista.sulinet.hu [mailto:techinfo-
> bounces at lista.sulinet.hu] On Behalf Of Bálint István
> Sent: Tuesday, December 16, 2008 8:02 AM
> To: techinfo at 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