Kopirajte redak ili retke iz svake radne knjige u mapu pomoću 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.
Sub CopyRow () Zatamni osnovnu knjigu Kao radnu knjigu Zatamni moju knjigu Kao radnu knjigu Priguši izvorRange kao raspon Dim destrange As Range Dim rnum As Long Dim i As Long Dim a As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Podaci ".SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute ()> 0 Zatim postavite basebook = ThisWorkbook rnum = 1 For i = 1 To. mybook.Worksheets (1) .Rows ("3: 5") a = sourceRange.Rows.Count Set destrange = basebook.Worksheets (1) .Cells (rnum, 1) sourceRange.Copy destrange mybook.Close rnum = i * a + 1 Sljedeći i završi ako završi s Application.ScreenUpdating = True End Sub Sub CopyRowValues ​​() Zatamni osnovnu knjigu Kao radnu knjigu Zatamni moju knjigu kao radnu knjigu Priguši izvorRange As Range Dim destrange As Range Dim rnum As Long Dim i As Long Dim a As Long Application.ScreenUpdating = Netočno s Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFi leTypeExcelWorkbooks If .Execute ()> 0 Zatim postavite basebook = ThisWorkbook rnum = 1 For i = 1 To FoundFiles.Count Set mybook = Workbooks. "3: 5") a = sourceRange.Rows.Count With sourceRange Postavi destrange = basebook.Radni listovi (1). Ćelije (rnum, 1). _ Promijeni veličinu (.Rows.Count, .Columns.Count) End With destrange.Value = sourceRange.Value mybook.Close rnum = i * a + 1 Next i End If End With Application.ScreenUpdating = True End Sub