Microsoft Excel'de VBA kullanarak her çalışma kitabından bir sayfayı çalışma kitabınıza bir klasörde kopyalayın

Anonim
  • Makro, C:\Data klasöründeki her dosyanın ilk çalışma sayfasının bir bölümünü çalışma kitabınızın ilk çalışma sayfasına kopyalayacaktır.
  • İlk makro normal bir kopyalama yapar ve ikinci makro değerleri kopyalar.

Her çalışma kitabının ilk sayfasını kodun bulunduğu çalışma kitabına kopyalayacaktır.
Sayfa adı, çalışma kitabının adıdır.

Sub CopySheet() Temel kitabı çalışma kitabı olarak karartın Mybook As Long olarak karartın Application.ScreenUpdating = Application.FileSearch .NewSearch ile False .LookIn = "C:\Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Sonra Set 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

Bu sub(TestFile4_values) için korumasız çalışma sayfalarına sahip olmanız veya kodda korumayı kaldırmanız gerekir.

Sub CopySheetValues() Basebook As Workbook olarak Dim mybook As Long Dim Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C:\Data" .SearchSubFolders = False .FileType = msoFileTypeExcelExWorkcutes() > If . 0 Sonra Set 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 ile.UsedRange .Value = .Value End with mybook.Close Next i End If End With Application.ScreenUpdating = True End Sub