Kopirajte list iz svake radne knjige u radnu knjigu u mapu koristeći VBA u programu Microsoft Excel

Anonim
  • Makronaredba će kopirati dio prvog radnog lista svake datoteke koja se nalazi u mapi C: \ Data na prvi radni list vaše radne knjige.
  • Prvi makro radi normalnu kopiju, a drugi makro kopira vrijednosti.

Kopirat će prvi list svake radne knjige u radnu knjigu u kojoj se nalazi kôd.
Naziv lista je naziv radne knjige.

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 .Execute 0 Zatim postavite basebook = ThisWorkbook For i = 1 To FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1) .Copy after: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name mybook.Zatvori sljedeće i završi ako završi s aplikacijom.ScreenUpdating = True End Sub

Za ovaj pod (TestFile4_values) morate imati nezaštićene radne listove ili ih ukloniti u kodu.

Sub CopySheetValues ​​() Zatamni osnovnu knjigu Kao radnu knjigu Zatamni moju knjigu kao Radnu knjigu Dim i kao dugačku aplikaciju.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If). 0 Zatim postavite basebook = ThisWorkbook For i = 1 To FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1) .Copy after: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name With ActiveSheet.UsedRange .Value = .Value End With mybook.Zatvorite Next i End If End With Application.ScreenUpdating = True End Sub