MS Excel

Dobrý den,

potřeboval bych poupravit makro na kopírování více listů z jednoho sešitu do druhého.

Doteď jsem používal pouze makro na kopírování buněk.

Jedná se o to, že vždy otevřu první sešit, následně spustím makro a vyberu sešit ze kterého se má buňka kopírovat(první část makra). Ta se následně zkopíruje do druhého sešitu.

Nyní bych chtěl, aby se mi kopírovalo více listů z jednoho sešitu do druhého.

Bohužel se mi nepodařilo upravit makro tak, aby mi to listy zkopírovalo. Pouze je to natáhne do pamneťi, ale už nezkopíruje.

Zde zasílám vzor původního makra.

Sub nacti_z_vybraneho_souboru()
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\Users\Dell\Dropbox\data"
.Title = "Vyber adresář"
.Filters.Add "Soubory Excelu (xls/xlsx)", "*.xl*", 1
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Nebyly načteny žádné soubory": Exit Sub
ElseIf .SelectedItems.Count > 1 Then
MsgBox "Vyberte pouze jeden soubor!": Exit Sub
Else
zdrojovy_soubor = .SelectedItems(1)
End If
End With
Workbooks.Open (zdrojovy_soubor)
docasna = ActiveWorkbook.Worksheets("List1").Range("B5")
ActiveWorkbook.Close
ThisWorkbook.Activate
Worksheets("List1").Range("C10") = docasna
Application.DisplayAlerts = True
End Sub

Zaslat odpověď >

elninoslov(1.4.2016 12:01)#030963

To nieje problém, len prosím upresnite, či toto kopírovacie makro bude spúšťať zošit z ktorého sa bude kopírovať (xlsm), alebo zošiť do ktorého sa bude kopírovať (xlsm), alebo nejaký iný riadiaci zošiť (xlsm), a či tam treba zakomponovať aj zoznam listov na výber.citovat

elninoslov(1.4.2016 14:26)#030965

Napr. takto.
Ak majú k tomuto adresáru prístup aj iný užívatelia po sieti, tak treba ešte doplniť testovanie otvorenia súboru niekde iným užívateľom. To tiež nieje problém.

Příloha: zip

30965_kopirovanie-listov-subor-subor.zip (38kB, staženo 83x)

citovat

munital(1.4.2016 15:49)#030968

Odpovím první na Váš pozdější dotaz.
Více uživatelů nebude potřeba. Jedná se o PC které není připojeno do sítě.

Makro by mělo spouštět sešit z kterého se bude kopírovat.

Představa byla taková, pracovník si otevře sešit s makrem.
Následně spustí makro v tomto sešitě.
To se ho zeptá který sešit chce vybrat pro kopírování listů.
Pro větší jednoduchost bych seznam listů na výběr nedával a dal bych natvrdo listy které se budou kopírovat.
Následně už by měli být listy zkopírované a pracovník si z nich vybere co potřebuje.

Děkuji za poučnou odpověď.citovat

elninoslov(1.4.2016 17:37)#030977

OK, ešte podotázky na upresnenie.
Užívateľ si teda vyberá len zdrojový súbor, a listy z neho sa kopírujú do toho súboru v ktorom spustil makro ?
Keď vravíte pevný zoznam listov, máte na mysli, že zdrojový zošiť obsahuje napr listy "A", "B", "C", a na pevno sa určí, že sa budú kopírovať len listy "B" a "C" ? Alebo tým pevným zoznamom myslíte to, že sa skopírujú všetky listy ?citovat

elninoslov(1.4.2016 18:45)#030978

Tu máte teda ešte verzie, bez výberu listov, kopírujú všetky listy. Líšia sa iba tým, že v2 dáva na výber zdroj aj cieľ, naproti tomu v3 dáva na výber iba zdroj, a cieľ je zošit, z ktorého sa to spustilo.

Ak si chcete zadať iba konkrétne názvy listov, alebo pozície listov, tak nahradte konštrukciu
For Each SH In WBZ.Worksheets
If Not Not LST Then u = UBound(LST) + 1: ReDim Preserve LST(1 To u) Else ReDim LST(1 To 1): u = 1
LST(u) = SH.Name
Next SH
za
LST = Array("list1", "list222")
alebo
LST = Split("list1,list222", ",")
pri týchto dvoch treba myslím nahradiť deklaráciu Dim LST() za DIM LST

alebo
ReDim LST(1 to 2)
LST(1) = WBZ.Worksheets(1).Name
LST(2) = WBZ.Worksheets(3).Name

Myslím, že ďalej už to zvládnete :)

Příloha: zip