Sisällysluettelo
- 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.
Sub CopyRow () Dim basebook kuin Työkirja Dim Dimbook kuin Työkirja Dim sourceRange As Range Dim dimrange As Range Dim rnum Kuten Long Dim i Long Dim him as Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Data ".SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks Jos .Execute ()> 0 Määritä sitten basebook = ThisWorkbook rnum = 1 For i = 1 To .FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) Aseta sourceRange = mybook.Worksheets (1) .Rows ("3: 5") a = sourceRange.Rows.Count Set destrange = basebook.Worksheets (1) .Solu (rnum, 1) sourceRange.Copy destrange mybook.Close rnum = i * a + 1 Seuraava i Loppu Jos päättyy sovellukseen. = Väärä Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFi leTypeExcelWorkbooks If .Execute ()> 0 Set basebook = ThisWorkbook rnum = 1 For i = 1 To .FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) Set sourceRange = mybook.Worksheets (1) .Rows ( "3: 5") a = sourceRange.Rows.Count SourceRange Aseta destrange = basebook.Worksheets (1). Solut (rnum, 1). _ Muuta kokoa (.Rows.Count, .Columns.Count) Päättyy destrange.Value = sourceRange.Value mybook.Close rnum = i * a + 1 Seuraava i End if End with Application.ScreenUpdating = True End Sub
