Kopējiet lapu no katras darbgrāmatas savā darbgrāmatā mapē, izmantojot Microsoft Excel VBA

Anonim
  • Makro kopēs katra darblapas pirmās darblapas daļu, kas atrodas mapē C: \ Data, uz jūsu darbgrāmatas pirmo darblapu.
  • Pirmais makro veic parastu kopiju, bet otrs makro kopē vērtības.

Tas kopēs katras darbgrāmatas pirmo lapu darbgrāmatā, kurā atrodas kods.
Lapas nosaukums ir darbgrāmatas nosaukums.

Sub CopySheet () Dim bāzesgrāmata kā darbgrāmata Dim mybook kā darbgrāmata Dim i kā gara lietojumprogramma.ScreenUpdating = False Izmantojot Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks (Ja) 0 Pēc tam iestatiet pamatgrāmatu = ThisWorkbook For i = 1 To .FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1). Kopēt pēc: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name mybook. Aizveriet Next i End, ja beidzas ar Application.ScreenUpdating = True End Sub

Šajā apakšgrupā (TestFile4_values) jums ir jābūt neaizsargātām darblapām vai jāatceļ to aizsardzība kodā.

Sub CopySheetValues ​​() Dim bāzesgrāmata kā darbgrāmata Dim mybook kā darbgrāmata Dim i kā ilgstoša lietojumprogramma.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWecbooks (If). 0 Pēc tam iestatiet pamatgrāmatu = ThisWorkbook For i = 1 To .FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1). Kopēt pēc: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name With ActiveSheet.UsedRange .Value = .Value End with mybook.Close Next i End, ja beidzas ar Application.ScreenUpdating = True End Sub