Kopirajte list iz vsakega delovnega zvezka v delovni zvezek v mapo z uporabo VBA v programu Microsoft Excel

Anonim
  • Makro bo kopiral del prvega delovnega lista vsake datoteke v mapi C: \ Data na prvi delovni list vašega delovnega zvezka.
  • Prvi makro naredi običajno kopiranje, drugi makro pa kopira vrednosti.

Kopiral bo prvi list vsakega delovnega zvezka v delovni zvezek, v katerem je koda.
Ime lista je ime delovnega zvezka.

Sub CopySheet () Zatemni osnovno knjigo kot delovni zvezek Dim mybook kot delovni zvezek Dim i As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execu 0 Nato nastavite basebook = ThisWorkbook For i = 1 TostedFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1). Copy after: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name mybook.Zapri Next in End If End With Application.ScreenUpdating = True End Sub

Za to pod (TestFile4_values) morate imeti nezaščitene delovne liste ali jih odstraniti iz kode.

Sub CopySheetValues ​​() Zatemni osnovno knjigo kot delovni zvezek Zatemni mojo knjigo kot delovni zvezek Dim i As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If). 0 Nato nastavite basebook = ThisWorkbook For i = 1 TostedFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) mybook.Worksheets (1). Copy after: = _ basebook.Sheets (basebook.Sheets.Count) ActiveSheet.Name = mybook.Name z ActiveSheet.UsedRange .Value = .Value Konec z mybook.Zapri Next in End, če se konča z Application.ScreenUpdating = True End Sub