- Η μακροεντολή θα αντιγράψει ένα μέρος του πρώτου φύλλου εργασίας κάθε αρχείου που βρίσκεται στο φάκελο C: \ Data στο πρώτο φύλλο εργασίας του βιβλίου εργασίας σας.
- Η πρώτη μακροεντολή κάνει κανονική αντιγραφή και η δεύτερη μακροεντολή αντιγράφει τις τιμές.
Θα αντιγράψει το πρώτο φύλλο κάθε βιβλίου εργασίας στο βιβλίο εργασίας όπου βρίσκεται ο κωδικός.
Το όνομα του φύλλου είναι το όνομα του βιβλίου εργασίας.
Sub CopySheet () Dim basebook As Workbook Dim mybook As Workbook Dim i As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks () 0 Στη συνέχεια ορίστε το βασικό βιβλίο = ThisWorkbook For i = 1 To .Files.Count Set mybook = Workbooks.Open (.Files (i)) mybook.Worksheets (1). Αντιγράψτε μετά: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name mybook.Close Next i End If End with Application.ScreenUpdating = True End Sub
Για αυτό το υπο (TestFile4_values) πρέπει να έχετε φύλλα εργασίας χωρίς προστασία ή να τα προστατεύετε στον κώδικα.
Sub CopySheetValues () Dim basebook As Workbook Dim mybook As Workbook Dim i As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks () 0 Στη συνέχεια ορίστε το βασικό βιβλίο = ThisWorkbook For i = 1 To .Files.Count Set mybook = Workbooks.Open (.Files (i)) mybook.Worksheets (1). Αντιγράψτε μετά: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name With ActiveSheet.UsedRange .Value = .Value End With mybook.Close Next i End If End with Application.ScreenUpdating = True End Sub