Kazalo
- 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.
Ne pozabite, da ima Excel samo 256 stolpcev
Sub CopyColumn () Zatemni osnovno knjigo kot delovni zvezek Zatemni mojo knjigo Kot delovni zvezek Zatemni virRange As Range Dim destrange As Range Dim cnum As Integer Dim i As Long Dim a As Integer Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C: \ Podatki ".SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute ()> 0 Potem nastavite basebook = ThisWorkbook cnum = 1 Za i = 1 To.Files.Count Set mybook = Delovni zvezki. Odpri (FoundFiles (i)) Set sourceRange = mybook.Worksheets (1) .Columns ("A: B") a = sourceRange.Columns.Count Set destrange = basebook.Worksheets (1) .Cells (1, cnum) sourceRange.Copy destrange mybook.Close cnum = i * a + 1 Naprej i Končaj, če se konča z Application.ScreenUpdating = True End Sub Sub CopyColumnValues () Zatemni osnovno knjigo kot delovni zvezek Zatemni mojo knjigo kot delovni zvezek Zatemni virRange As Range Dim destrange As Range Dim cnum As Integer Dim i As Long Dim a As Integer Application. = Neresnično z Application.FileSearch .NewSearch .LookIn = "C: \ Data" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute ()> 0 Potem nastavite basebook = ThisWorkbook cnum = 1 For i = 1 To FoundFiles.Count Set mybook = Workbooks.Open (.FoundFiles (i)) Set sourceRange = mybook.Worksheets ( 1). Stolpci ("A: B") a = sourceRange.Columns.Count With sourceRange Set destrange = basebook.Worksheets (1) .Columns (cnum). _ Spremeni velikost (, .Columns.Count) Konec z destrange.Value = sourceRange.Value mybook.Close cnum = i * a + 1 Naprej i Konec Če se konča z aplikacijo.ScreenUpdating = True End Sub
