Kopioi taulukko kustakin työkirjasta työkirjaasi kansioon käyttämällä Microsoft Excelin VBA: ta

Anonim
  • Makro kopioi osan kunkin kansion C: \ Data ensimmäisestä laskentataulukosta työkirjasi ensimmäiselle laskentataulukolle.
  • Ensimmäinen makro kopioi normaalisti ja toinen makro kopioi arvot.

Se kopioi jokaisen työkirjan ensimmäisen arkin työkirjaan, jossa koodi on.
Arkin nimi on työkirjan nimi.

Sub CopySheet () Dim basebook kuin työkirja Dim Dimbook kuten Työkirja Dim i Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks Jos .Exec 0 Aseta sitten 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.Close Next i End if End with Application.ScreenUpdating = True End Sub

Tätä alia (TestFile4_values) varten sinulla on oltava suojaamattomat laskentataulukot tai poista niiden suojaus koodista.

Sub CopySheetValues ​​() Dim basebook Työkirjana Dim mybook Työkirjana Dim i Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks () 0 Aseta sitten 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 ActiveSheet.UsedRange .Value = .Value End with mybook.Close Next i End if End with Application.ScreenUpdating = True End Sub