Копирайте лист от всяка работна книга във вашата работна книга в папка, използвайки VBA в Microsoft Excel

Anonim
  • Макросът ще копира част от първия работен лист на всеки файл, който е в папката 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 If .Execu 0 След това задайте basebook = ThisWorkbook For i = 1 To To.Files.Count Задайте mybook = Работни книги. Отворете (FoundFiles (i)) mybook.Worksheets (1). Копирайте след: = _ basebook. 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 If. 0 След това задайте basebook = ThisWorkbook For i = 1 To To.Files.Count Задайте mybook = Работни книги. Отворете (FoundFiles (i)) mybook.Worksheets (1). Копирайте след: = _ basebook. ActiveSheet.Name = mybook.Name С ActiveSheet.UsedRange .Value = .Value Край с mybook. Затворете Next i End If End With Application.ScreenUpdating = True End Sub