Note: The other languages of the website are Google-translated. Back to English

Jak spustit makro současně ve více souborech sešitu?

V tomto článku budu hovořit o tom, jak spustit makro ve více souborech sešitu současně bez jejich otevření. Následující metoda vám pomůže vyřešit tento úkol v aplikaci Excel.

Spusťte makro současně ve více sešitech s kódem VBA


Spusťte makro současně ve více sešitech s kódem VBA

Chcete-li spustit makro ve více sešitech, aniž byste je otevírali, použijte následující kód VBA:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru Modul Okno.

Kód VBA: Spusťte stejné makro ve více sešitech najednou:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

Poznámka: Ve výše uvedeném kódu zkopírujte a vložte svůj vlastní kód bez V nadpis a End Sub zápatí mezi S Workbooks.Open (xFdItem & xFileName) a Konec s skripty. Viz snímek obrazovky:

doc spustit makro více souborů 1

3. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu a Procházet Zobrazí se okno, vyberte složku obsahující sešity, které chcete použít pro toto makro, viz screenshot:

doc spustit makro více souborů 2

4. A pak klikněte na tlačítko OK tlačítko, požadované makro bude provedeno najednou z jednoho sešitu do ostatních.

 


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno

 

Komentáře (43)
Hodnocení 4.5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné makro a funguje dobře, ale chtěl bych mít možnost vybrat, na kterých souborech z této složky chci makro spustit? Soubory se negenerují automaticky v samostatné složce a potřebuji spustit různá makra pro každou sadu souborů z této složky a poté je přesunout zpět do výchozí složky.
Tento komentář byl moderátorem webu minimalizován
Postupoval jsem podle pokynů, ale zobrazila se mi chyba kompilace "Loop with Do". co mi chybí? Můj kód makra je velmi jednoduchý, stačí změnit velikost písma zadaných řádků. Funguje samostatně. Tady je to, co mám... prosím pomozte

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Proveďte při xFileName <> ""
S Workbooks.Open (xFdItem & xFileName)
'zde váš kód
Řádky("2:8").Vyberte
S Selection.Font
.Name = "Arial"
.Velikost = 12
.Přeškrtnutí = False
.Horní index = nepravda
.Dolní index = False
.OutlineFont = False
.Stín = Falešný
.Underline = xlUnderlineStyleNone
Barva = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Konec s
xFileName = Dir
Smyčka
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, yarto,
Chyběl vám skript „End with“ na konci kódu, správný by měl být tento:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Proveďte při xFileName <> ""
S Workbooks.Open (xFdItem & xFileName)
'zde váš kód
Řádky("2:8").Vyberte
S Selection.Font
.Name = "Arial"
.Velikost = 16
.Přeškrtnutí = False
.Horní index = nepravda
.Dolní index = False
.OutlineFont = False
.Stín = Falešný
.Underline = xlUnderlineStyleNone
Barva = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Konec s
Konec s
xFileName = Dir
Smyčka
End If
End Sub

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné makro a funguje skvěle, ale chtěl bych mít možnost vybrat, na kterých souborech z této složky chci makro spustit? Například mám 4 soubory ve složce s jinými soubory aplikace Excel a chci, aby to běželo pouze na těchto 4 konkrétních souborech. Jak mohu vyladit vaše makro, abych mohl vybrat tyto 4 soubory z této složky?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Joeli,
Chcete-li spustit stejný kód v konkrétních sešitech, měli byste použít níže uvedený kód:

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Dim xFB As String
S Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filtry.Clear
.Filters.Add "excel", "*.xls*"
.Show
Pokud .SelectedItems.Count < 1, pak Exit Sub
Pro lngCount = 1 To .SelectedItems.Count
xFileName = .SelectedItems(lngCount)
If xFileName <> "" Pak
With Workbooks.Open(Filename:=xFileName)
'Váš kód
Konec s
End If
Další lngCount
Konec s
End Sub

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
díky, bylo to opravdu užitečné
Tento komentář byl moderátorem webu minimalizován
Ahoj!

Snažím se vložit svůj kód do vašeho a když spustím makro, zobrazí se mi následující zpráva: Chyba běhu '429': ActiveX nemůže vytvořit objekt. Prosím o radu, jak se to dá opravit. Děkuji!

Můj kód:

Nastavit RInput = Range("A2:A21")
Nastavit ROutput = Range("D2:D22")

Dim A() jako varianta
ReDim A(1 To RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Scripsting.Dictionary")

Pro i = 1 až UBound(A)
Jestliže d.Exists(A(i, 1)) Pak
d(A(i, 1)) = d(A(i, 1)) + 1
Jiný
d. Přidejte A(i, 1), 1
End If
další
Pro i = 1 až UBound(A)
A(i, 1) = d(A(i, 1))
další

RO výstup = A
Tento komentář byl moderátorem webu minimalizován
Ahoj, předně děkuji za toto makro, bylo to přesně to, co jsem hledal. Mám však jeden problém, existuje způsob, jak zavřít a uložit každé okno po dokončení. Mám velké množství souborů a dochází mi RAM před dokončením provádění.
Tento komentář byl moderátorem webu minimalizován
Ano, stačí přidat níže svůj následující kód, pokud si přejete uložit soubor se stejným názvem:

„Ukládání sešitu
ActiveWorkbook.Save
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Caitlin,
Možná vám může pomoci níže uvedený kód, pokaždé, když spustíte váš konkrétní kód, vyskočí okno s výzvou k uložení souboru, které vám připomene uložit sešit.

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Dim xWB jako sešit
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
On Error Resume Next
Proveďte při xFileName <> ""
Nastavit xWB = Workbooks.Open(xFdItem & xFileName)
S xWB
'zde váš kód
Konec s
xWB.Zavřít
xFileName = Dir
Smyčka
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj!

Snažím se vložit svůj kód do vašeho a když spustím makro, zobrazí se mi následující zpráva: Chyba běhu '429': ActiveX nemůže vytvořit objekt. Prosím o radu, jak se to dá opravit. Děkuji!

Můj kód:

Nastavit RInput = Range("A2:A21")
Nastavit ROutput = Range("D2:D22")

Dim A() jako varianta
ReDim A(1 To RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Scripsting.Dictionary")

Pro i = 1 až UBound(A)
Jestliže d.Exists(A(i, 1)) Pak
d(A(i, 1)) = d(A(i, 1)) + 1
Jiný
d. Přidejte A(i, 1), 1
End If
další
Pro i = 1 až UBound(A)
A(i, 1) = d(A(i, 1))
další

RO výstup = A
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Toto makro jsem úspěšně použil k formátování souborů NBA pro 30 týmů, z nichž každý měl svou vlastní knihu. Včera jsem obdržel chybovou zprávu, že modul (makro) nelze dokončit nebo smazat nebo upravit (k uložení). Poškodil můj osobní sešit maker a Excel pro mě byl prakticky nepoužitelný. Při každém pokusu o přístup k makru z jakéhokoli souboru dojde k pádu aplikace. Podpora Excelu a Windows nebyla schopna věci opravit. Můžete pomoci?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Existuje způsob, jak mohu definovat cíl souboru v samotném skriptu. Chci přeskočit proces 3, kde musíme procházet konkrétní složku.
Tento komentář byl moderátorem webu minimalizován
Ahoj, díky za tento kód. můžete mi prosím říct, jak mohu mít výsledek svého makra, pro které jsem otevřel všechny sešity, na jednom listu (výsledek každého sešitu v řadě)? a existuje způsob, jak přidat název každého sešitu do řádku s daty z předchozího kroku?
Tento komentář byl moderátorem webu minimalizován
Hi

Dostal jsem aa 1004 run-time error: syntaxe není správná, když jsem spustil následující kód, kterým je Extend Office VBA pro „Spuštění makra současně ve více sešitech s kódem VBA“ s Extend Office VBA „Odstranit všechny pojmenované rozsahy s kódem VBA" do slotu pro kód:

Sub LoopThroughFiles()

Dim xFd As FileDialog

Dim xFdItem jako varianta

Dim xFileName jako řetězec

Set xFd = Application.FileDialog(msoFileDialogFolderPicker)

Pokud xFd.Show = -1 Pak

xFdItem = xFd.SelectedItems(1) & Application.PathSeparator

xFileName = Dir(xFdItem & "*.xls*")

Proveďte při xFileName <> ""

S Workbooks.Open (xFdItem & xFileName)

' Sub DeleteNames()

'Aktualizace 20140314

Dim xName As Name

Pro každý xName v Application.ActiveWorkbook.Names

xName.Delete

další


Konec s

xFileName = Dir

Smyčka

End If

End Sub

Snažím se spustit makro, které odstraní pojmenované rozsahy v osmi sešitech, které jsou obsaženy ve stejné složce.

BTW, je to poprvé, co jsem použil něco z Extend Office a nefungovalo to. Tento web mi velmi pomohl.

Velmi oceníme návrhy/komentáře.

alc
Tento komentář byl moderátorem webu minimalizován
Dobrý den, aldc,
Váš kód funguje dobře v mém sešitu, kterou verzi Excelu používáte?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, tento kód je velmi dobrý a užitečný. Používám to hodně!

V mé organizaci nyní k ukládání souborů používáme SharePoint. Existuje nějaký způsob, jak zajistit, aby tento kód fungoval ve všech souborech ve složce sharepoint?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, děkujeme za tento kód.
Existuje způsob, jak procházet také podsložky? Řekněme, že mám jednu složku a ve složce dalších deset složek, z nichž každá obsahuje soubor aplikace Excel.

Existuje způsob, jak vybrat pouze primární složku, aby kód prošel všemi jejími podsložkami?

Děkuji.
Tento komentář byl moderátorem webu minimalizován
Ahoj Darko, Chcete-li spustit kód ze složky s podsložkami, použijte následující kód: Sub LoopThroughFiles_Subfolders(xStrPath As String)
Dim xSFolderName
Dim xFileName
Dim xArrSFPath() jako řetězec
Dim xI jako celé číslo
If xStrPath = "" Pak Exit Sub
xFileName = Dir(xStrPath & "*.xls*")
Proveďte při xFileName <> ""
S Workbooks.Open(xStrPath & xFileName)
'zde váš kód
Konec s
xFileName = Dir
Smyčka
xSFolderName = Dir(xStrPath, vbDirectory)
xI = 0
ReDim xArrSFPath(0)
Do While xSFolderName <> ""
If xSFolderName <> "." A xSFolderName <> ".." Potom
If (GetAttr(xStrPath & xSFolderName) A vbDirectory) = vbDirectory Then
xI = xI + 1
ReDim Preserve xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFolderName & "\"
End If
End If
xSFolderName = Dir
Smyčka
Pokud UBound(xArrSFPath) > 0 Pak
Pro xI = 0 až UBound(xArrSFPath)
LoopThroughFiles_Subfolders (xArrSFPath(xI))
Další xI
End If
End Sub
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
LoopThroughFiles_Subfolders (xFdItem)
End If
End SubProsím, zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Kromě výše uvedeného kódu je možné otevřít soubory aplikace Excel v chronologickém pořadí, které jsem chtěl?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, předně mnohokrát děkuji za makro, s nímž je opravdu užitečné pracovat. Jen mě zajímalo, jestli máme způsob, jak obnovit složku na onedrive pomocí makra. Pokud ano, dejte mi prosím vědět, co zde mohu udělat, abych obnovil soubory na Onedrive pomocí makro skriptu?
Tento komentář byl moderátorem webu minimalizován
Ahoj, moc děkuji za tento skript, funguje mi velmi dobře, ale mám speciální potřeby: Existuje způsob, jak změnit skript tak, aby aplikoval můj kód s podmínkami názvu souboru A v podsložkách?
Vysvětluji: Jsem učitel a vytvořil jsem excelové řešení, které ukládá výsledky studentů a umožňuje učitelům s nimi konzultovat. K tomu mám soubor pro každý školní předmět a jeden pro příslušnou třídu, vše ve složce na třídu.
Takže když najdu chybu nebo optimalizaci, musím nahlásit změny ve všech souborech ve všech podsložkách.
Ale protože všechny soubory nejsou stejné (různé podřízené organizace), chtěl bych způsob, jak aplikovat svůj kód například na všechny soubory s názvem „matematická třída“ ve všech podsložkách, nebo naopak použít můj kód na všechny soubory v podsložkách kromě všech souborů s názvem "xyz". Díky !Fabrice
Tento komentář byl moderátorem webu minimalizován
Váš daný kód nefunguje s následujícím VBA, můžete prosím pomociSub Bundles()

Ztlumit vWS jako pracovní list
Dim vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Nastavte vWS = ActiveSheet
S vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2 (1 až vSum, 1 až 4)
vA = .Range("A2:D" & vR)
Pro vN = 1 Do vR - 1
Pro vN2 = 1 až vA(vN, 4)
vC = vC + 1
Pro vN3 = 1 až 4
vA2(vC, vN3) = vA(vN, vN3)
Další vN3
Další vN2
Další vN
Konec s
vC = 1
Pro vN = 1 To vSum - 2
vA2(vN, 4) = vC
Pokud vA2(vN + 1, 2) = vA2(vN, 2) Pak
vC = vC + 1
vA2(vN + 1, 4) = vC
Jiný
vA2(vN + 1, 4) = 1
vC = 1
End If
Další vN
Application.ScreenUpdating = False
Sheets.add
S ActiveSheet
vWS.Range("A1:D1").Kopírovat .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Konec s
Application.ScreenUpdating = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Chci spustit tento VBA do více listů ve složce najednou, můžete prosím pomociSub Bundles()

Ztlumit vWS jako pracovní list
Dim vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Nastavte vWS = ActiveSheet
S vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2 (1 až vSum, 1 až 4)
vA = .Range("A2:D" & vR)
Pro vN = 1 Do vR - 1
Pro vN2 = 1 až vA(vN, 4)
vC = vC + 1
Pro vN3 = 1 až 4
vA2(vC, vN3) = vA(vN, vN3)
Další vN3
Další vN2
Další vN
Konec s
vC = 1
Pro vN = 1 To vSum - 2
vA2(vN, 4) = vC
Pokud vA2(vN + 1, 2) = vA2(vN, 2) Pak
vC = vC + 1
vA2(vN + 1, 4) = vC
Jiný
vA2(vN + 1, 4) = 1
vC = 1
End If
Další vN
Application.ScreenUpdating = False
Sheets.add
S ActiveSheet
vWS.Range("A1:D1").Kopírovat .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Konec s
Application.ScreenUpdating = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Pokusil jsem se spustit kód, ale na řádku "With Workbooks.Open(xFdItem & xFileName)" se objevila chyba "424: Object Required". Když se podíváte hlouběji, zdá se, že excelové sešity uložené ve složce zájmu se nezobrazují/neexistují (Když se otevře okno se zobrazením kódu, pokud se pokusím otevřít složku a nevybrat ji, je prázdná). Jak to?
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Proveďte při xFileName <> ""
S Workbooks.Open (xFdItem & xFileName)
Sheets.Add After:=ActiveSheet
Listy("List2").Vyberte
Sheets("Sheet2").Name = "Master"
Listy("Hlavní").Vyberte
Sheets("Master").Přesunout před:=Sheets(1)
Konec s
xFileName = Dir
Smyčka
End If
End Sub


Můžete mi prosím pomoci vyřešit tento problém?
Tento komentář byl moderátorem webu minimalizován
Toto je můj oblíbený web s absolutně nejjasnějšími pokyny (více než jakékoli video na YouTube) a stále se k němu vracím. Moc vám děkuji za tyto návody – jste smutným zachráncem života studenta.
Tento komentář byl moderátorem webu minimalizován
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Proveďte při xFileName <> ""
S Workbooks.Open (xFdItem & xFileName)
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Konec s
xFileName = Dir
Smyčka
End If
End Sub, prosím o pomoc. BTW, moje přípona souborů Excel je (.csv - "oddělený čárkou") . a mám 500 excel souborů ve složce s průměrem na každý řádek přibližně 500000 XNUMX řádků .. Prosím o pomoc . Chci jen vložit sloupec do každého sešitu
Tento komentář byl moderátorem webu minimalizován
dostal jsi někdy odpověď na svou otázku? Snažím se udělat totéž s více než 3700 soubory csv. Potřebuji přidat 1 sloupec (A).
Tento komentář byl moderátorem webu minimalizován
Ahoj, nouzi a Carly, Chcete-li vyřešit váš problém, chcete-li spustit kód pro více souborů CSV, stačí změnit příponu souboru .xls na .csv, jak je uvedeno níže: Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem jako varianta
Dim xFileName jako řetězec
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
Pokud xFd.Show = -1 Pak
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.csv*")
Proveďte při xFileName <> ""
S Workbooks.Open (xFdItem & xFileName)
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Konec s
xFileName = Dir
Smyčka
End If
End SubProsím, zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Ahoj, je možné spustit makro pouze v listech různých sešitů s konkrétním názvem? Dík!!
Tento komentář byl moderátorem webu minimalizován
Ahoj Sara,
Je nám líto, problém, který jste uvedl, neexistuje žádné dobré řešení.
Děkuji!
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL