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

Hur kör jag ett makro samtidigt över flera arbetsboksfiler?

Den här artikeln kommer jag att prata om hur man kör ett makro över flera arbetsboksfiler samtidigt utan att öppna dem. Följande metod kan hjälpa dig att lösa denna uppgift i Excel.

Kör ett makro på samma sätt över flera arbetsböcker med VBA-kod


Kör ett makro på samma sätt över flera arbetsböcker med VBA-kod

För att köra ett makro över flera arbetsböcker utan att öppna dem, använd följande VBA-kod:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Kör samma makro på flera arbetsböcker samtidigt:

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

Anmärkningar: I ovanstående kod, kopiera och klistra in din egen kod utan Sub rubrik och End Sub sidfot mellan Med arbetsböcker. Öppna (xFdItem & xFileName) och Sluta med skript. Se skärmdump:

doc kör makro flera filer 1

3. Tryck sedan på F5 nyckel för att köra den här koden och a Bläddra fönstret visas, välj en mapp som innehåller arbetsböckerna som du vill att alla ska använda detta makro, se skärmdump:

doc kör makro flera filer 2

4. Och klicka sedan på OK -knappen, körs önskat makro på en gång från en arbetsbok till andra.

 


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten

 

Sortera kommentarer efter
Kommentarer (43)
Klassad 4.5 av 5 · 1 betyg
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket användbart makro, och det fungerar bra, men jag skulle vilja kunna välja vilka filer från den mappen jag vill att makrot ska köras på? Filerna genereras inte automatiskt i en separat mapp, och jag måste köra olika makron på varje uppsättning filer från den mappen och sedan flytta tillbaka dem till den ursprungliga mappen.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag följde instruktionerna men får ett kompileringsfel "Loop wihtout Do". Vad saknar jag? Min makrokod är väldigt enkel, bara ändra teckenstorlek på specificerade rader. Fungerar av sig själv. Här är vad jag har... snälla hjälp

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.xls*")
Gör medan xFileName <> ""
Med arbetsböcker. Öppna (xFdItem & xFileName)
'din kod här
Rows("2:8"). Välj
Med Selection.Font
.Name = "Arial"
.Storlek = 12
.Strikethrough = Falskt
.Överskrift = Falskt
.Subscript = Falskt
.OutlineFont = Falskt
.Shadow = Falskt
.Underline = xlUnderlineStyleNone
.Färg = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontInget
Sluta med
xFilnamn = Dir
loop
End If
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej yarto,
Du missade skriptet "Avsluta med" i slutet av din kod, det korrekta borde vara detta:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.xls*")
Gör medan xFileName <> ""
Med arbetsböcker. Öppna (xFdItem & xFileName)
'din kod här
Rows("2:8"). Välj
Med Selection.Font
.Name = "Arial"
.Storlek = 16
.Strikethrough = Falskt
.Överskrift = Falskt
.Subscript = Falskt
.OutlineFont = Falskt
.Shadow = Falskt
.Underline = xlUnderlineStyleNone
.Färg = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontInget
Sluta med
Sluta med
xFilnamn = Dir
loop
End If
End Sub

Prova det, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket användbart makro, och det fungerar utmärkt, men jag skulle vilja kunna välja vilka filer från den mappen jag vill att makrot ska köras på? Till exempel har jag 4 filer i en mapp med andra Excel-filer och jag vill bara att den ska köras på de 4 specifika filerna. Hur kan jag justera ditt makro så att jag kan välja de 4 filerna från den mappen?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Joel,
För att utlösa samma kod i specifika arbetsböcker bör du använda koden nedan:

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Dim xFB som sträng
Med Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = Sant
.Filter.Rensa
.Filters.Lägg till "excel", "*.xls*"
.Visa
Om .SelectedItems.Count < 1 Avsluta Sub
För lngCount = 1 Till .SelectedItems.Count
xFileName = .SelectedItems(lngCount)
Om xFilnamn <> "" Då
With Workbooks.Open(Filnamn:=xFilnamn)
'din kod
Sluta med
End If
Nästa lngCount
Sluta med
End Sub

Prova det, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
tack, var verkligen till hjälp
Denna kommentar minimerades av moderatoren på webbplatsen
Hej!

Jag försöker infoga min kod i din och när jag kör makrot får jag följande meddelande: Runtime error '429': ActiveX kan inte skapa objektet. Tipsa gärna om hur det kan fixas. Tack!

Min kod:

Ställ in RInput = Range("A2:A21")
Ställ in ROutput = Range("D2:D22")

Dim A() Som variant
ReDim A(1 till RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Scripsting.Dictionary")

För i = 1 Till UBound(A)
Om d.Finns(A(i, 1)) Då
d(A(i, 1)) = d(A(i, 1)) + 1
annars
d. Lägg till A(i, 1), 1
End If
Nästa
För i = 1 Till UBound(A)
A(i, 1) = d(A(i, 1))
Nästa

ROutput = A
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, först tack för detta makro, det var precis vad jag letade efter. Jag har dock ett problem, finns det ett sätt att stänga och spara som varje fönster när det slutförs. Jag har en stor mängd filer och jag har slut på RAM innan körningen är klar.
Denna kommentar minimerades av moderatoren på webbplatsen
Ja, lägg bara till nedanstående kod om du vill att filen ska sparas med samma namn:

'Spara arbetsboken
ActiveWorkbook.Save
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Caitlin,
Kanske koden nedan kan hjälpa dig, varje gång efter att du har kört din specifika kod kommer en ruta för att spara filen dyka upp och påminna dig om att spara arbetsboken.

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Dim xWB Som arbetsbok
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.xls*")
On Error Resume Next
Gör medan xFileName <> ""
Ställ in xWB = Workbooks.Open(xFdItem & xFileName)
Med xWB
'din kod här
Sluta med
xWB.Stäng
xFilnamn = Dir
loop
End If
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej!

Jag försöker infoga min kod i din och när jag kör makrot får jag följande meddelande: Runtime error '429': ActiveX kan inte skapa objektet. Tipsa gärna om hur det kan fixas. Tack!

Min kod:

Ställ in RInput = Range("A2:A21")
Ställ in ROutput = Range("D2:D22")

Dim A() Som variant
ReDim A(1 till RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Scripsting.Dictionary")

För i = 1 Till UBound(A)
Om d.Finns(A(i, 1)) Då
d(A(i, 1)) = d(A(i, 1)) + 1
annars
d. Lägg till A(i, 1), 1
End If
Nästa
För i = 1 Till UBound(A)
A(i, 1) = d(A(i, 1))
Nästa

ROutput = A
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,

Jag har använt detta makro framgångsrikt för att formatera NBA-filer för de 30 lagen var och en med sin egen bok. Igår fick jag ett felmeddelande om att Modul (makro) inte kan slutföras eller raderas eller redigeras (ska sparas). Det har skadat min personliga makroarbetsbok och gjort Excel praktiskt taget oanvändbart för mig. Den kraschar appen varje gång jag försöker komma åt ett makro från vilken fil som helst. Excel-stöd och Windows-stöd har inte kunnat fixa saker. Kan du hjälpa?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Finns det något sätt jag kan definiera fildestinationen i själva skriptet. Jag vill hoppa över process 3 där vi måste bläddra i den specifika mappen.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tack för den här koden. kan du berätta för mig hur jag kan få resultatet av mitt makro som jag öppnade alla arbetsböcker för i ett ark (resultatet av varje arbetsbok i rad)? och finns det något sätt att lägga till namnet på varje arbetsbok i raden med data från föregående steg?
Denna kommentar minimerades av moderatoren på webbplatsen
Hi

Jag fick ett 1004 körtidsfel: syntaxen är inte korrekt när jag körde följande kod som är Extend Office VBA till "Kör ett makro samtidigt över flera arbetsböcker med VBA-kod" med Extend Office VBA "Ta bort alla namngivna intervall med VBA-kod" i infoga din kodplats:

Sub LoopThroughFiles()

Dim xFd As FileDialog

Dim xFdItem som variant

Dim xFileName As String

Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)

Om xFd.Show = -1 Då

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

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

Gör medan xFileName <> ""

Med arbetsböcker. Öppna (xFdItem & xFileName)

' Sub DeleteNames()

'Uppdatering 20140314

Dim xName Som Namn

För varje xnamn i Application.ActiveWorkbook.Names

xName.Delete

Nästa


Sluta med

xFilnamn = Dir

loop

End If

End Sub

Det jag försöker göra är att köra ett makro som tar bort de namngivna intervallen i åtta arbetsböcker som finns i samma mapp.

BTW, det är första gången jag har använt något från Extend Office och det har inte fungerat. Den här webbplatsen har varit till stor hjälp för mig.

Förslag/kommentarer skulle uppskattas mycket.

aldc
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, aldc,
Din kod fungerar bra i min arbetsbok, vilken Excel-version använder du?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, den här koden är så bra och användbar. Jag använder den mycket!

Nuförtiden använder vi i min organisation SharePoint för att lagra våra filer. Finns det något sätt att få den här koden att fungera över alla filer i en sharepoint-mapp?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tack för den här koden.
Finns det något sätt att gå igenom undermappar också? Låt oss säga att jag har en mapp och i mappen tio fler mappar som var och en innehåller en excel-fil.

Finns det något sätt att bara välja den primära mappen så att koden körs igenom alla dess undermappar?

Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Darko, För att köra en kod från en mapp med undermapparna, använd följande kod: Sub LoopThroughFiles_Subfolders(xStrPath As String)
Dim xSFolderName
Dim xFilnamn
Dim xArrSFPath() Som sträng
Dim xI Som heltal
Om xStrPath = "" Avsluta Sub
xFilnamn = Dir(xStrPath & "*.xls*")
Gör medan xFileName <> ""
With Workbooks.Open(xStrPath & xFileName)
'din kod här
Sluta med
xFilnamn = Dir
loop
xSFolderName = Dir(xStrPath, vbDirectory)
xI = 0
ReDim xArrSFPath(0)
Gör medan xSFolderName <> ""
Om xSFolderName <> "." Och xSFolderName <> ".." Sedan
If (GetAttr(xStrPath & xSFolderName) And vbDirectory) = vbDirectory Then
xI = xI + 1
ReDim Preserve xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFolderName & "\"
End If
End If
xSFolderName = Dir
loop
Om UBound(xArrSFPath) > 0 Då
För xI = 0 Till UBound(xArrSFPath)
LoopThroughFiles_Subfolders (xArrSFPath(xI))
Nästa xI
End If
End Sub
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
LoopThroughFiles_Subfolders (xFdItem)
End If
Avsluta SubSnälla försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Förutom ovanstående kod, är det möjligt att öppna excel-filer i en kronologisk ordning jag ville ha?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej först och främst tack för makrot det är väldigt praktiskt att arbeta med. Jag undrade bara om vi har ett sätt att uppdatera mappen i onedrive via makrot. Om ja, kan du berätta för mig vad jag kan göra här för att uppdatera filerna i onedrive med hjälp av makroskript?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tack så mycket för det här skriptet, jag fungerar väldigt bra för mig, men jag har speciella behov :Finns det något sätt att ändra skriptet för att tillämpa min kod med filnamnsvillkor OCH i undermappar?
Jag förklarar: Jag är lärare och jag skapade en Excel-lösning för att spara elevernas resultat och för att låta lärare konsultera dem. För att göra det har jag en fil per skolämne och en för den ansvariga klassen, allt i en mapp per klass.
Så när jag hittar en bugg eller en optimering måste jag rapportera ändringarna i alla filer i alla undermappar.
Men eftersom alla filer inte är likadana (olika subjets organisation), skulle jag vilja använda min kod till exempel på alla filer som heter "matteklass" i alla undermappar, eller tvärtom, att applicera min kod på alla filer i undermappar förutom alla filer som heter "xyz".Tack !Fabrice
Denna kommentar minimerades av moderatoren på webbplatsen
Din angivna kod fungerar inte med följande VBA kan du hjälpa Sub Bundles()

Dim vWS som arbetsblad
Dim vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Ställ in vWS = ActiveSheet
Med vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2(1 till vSum, 1 till 4)
vA = .Range("A2:D" & vR)
För vN = 1 Till vR - 1
För vN2 = 1 Till vA(vN, 4)
vC = vC + 1
För vN3 = 1 till 4
vA2(vC, vN3) = vA(vN, vN3)
Nästa vN3
Nästa vN2
Nästa vN
Sluta med
vC = 1
För vN = 1 Till vSum - 2
vA2(vN, 4) = vC
Om vA2(vN + 1, 2) = vA2(vN, 2) Då
vC = vC + 1
vA2(vN + 1, 4) = vC
annars
vA2(vN + 1, 4) = 1
vC = 1
End If
Nästa vN
Application.ScreenUpdating = False
Sheets.add
Med ActiveSheet
vWS.Range("A1:D1"). Kopiera .Range("A1:D1")
.Cells(2, 1). Ändra storlek(vSum, 4) = vA2
Sluta med
Application.ScreenUpdating = True

End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill köra denna VBA i flera ark i en mapp samtidigt kan du hjälpa Sub Bundles()

Dim vWS som arbetsblad
Dim vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Ställ in vWS = ActiveSheet
Med vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2(1 till vSum, 1 till 4)
vA = .Range("A2:D" & vR)
För vN = 1 Till vR - 1
För vN2 = 1 Till vA(vN, 4)
vC = vC + 1
För vN3 = 1 till 4
vA2(vC, vN3) = vA(vN, vN3)
Nästa vN3
Nästa vN2
Nästa vN
Sluta med
vC = 1
För vN = 1 Till vSum - 2
vA2(vN, 4) = vC
Om vA2(vN + 1, 2) = vA2(vN, 2) Då
vC = vC + 1
vA2(vN + 1, 4) = vC
annars
vA2(vN + 1, 4) = 1
vC = 1
End If
Nästa vN
Application.ScreenUpdating = False
Sheets.add
Med ActiveSheet
vWS.Range("A1:D1"). Kopiera .Range("A1:D1")
.Cells(2, 1). Ändra storlek(vSum, 4) = vA2
Sluta med
Application.ScreenUpdating = True

End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försökte köra koden men felet "424 : Objekt krävs" visas på raden "With Workbooks.Open(xFdItem & xFileName)". Genom att titta djupare verkar det som om excels-arbetsböckerna som är lagrade i mappen av intresse inte visas/finns (när fönstret öppnas med kodvisningen, om jag försöker öppna mappen och inte välja den, är den tom). Hur så?
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.xls*")
Gör medan xFileName <> ""
Med arbetsböcker. Öppna (xFdItem & xFileName)
Sheets.Add After:=ActiveSheet
Sheets("Sheet2"). Välj
Sheets("Sheet2").Name = "Master"
Sheets ("Master"). Välj
Sheets("Master").Flytta före:=Sheets(1)
Sluta med
xFilnamn = Dir
loop
End If
End Sub


Kan du snälla hjälpa mig att lösa det här problemet?
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är min favoritwebbplats med de absolut tydligaste instruktionerna (mer än någon YouTube-video) och jag kommer tillbaka till den gång på gång. Tack så mycket för dessa tutorials - du är en sorglig student som räddar livet.
Denna kommentar minimerades av moderatoren på webbplatsen
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.xls*")
Gör medan xFileName <> ""
Med arbetsböcker. Öppna (xFdItem & xFileName)
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Sluta med
xFilnamn = Dir
loop
End If
End Sub, snälla hjälp. BTW, mitt excel-filtillägg är (.csv - "kommaavgränsad") . och jag har 500 excel-filer i en mapp med varje rad i genomsnitt på cirka 500000 XNUMX antal rader .. Snälla hjälp. Jag vill bara infoga kolumn i varje arbetsbok
Denna kommentar minimerades av moderatoren på webbplatsen
har du någonsin fått svar på din fråga? Jag försöker göra samma sak med över 3700 csv-filer. Jag behöver bara lägga till 1 kolumn (A).
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, behövande och Carly! För att lösa ditt problem, för att köra koden för flera CSV-filer, behöver du bara ändra .xls-filtillägget till .csv enligt nedanstående kod: Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem som variant
Dim xFileName As String
Ställ in xFd = Application.FileDialog(msoFileDialogFolderPicker)
Om xFd.Show = -1 Då
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFilnamn = Dir(xFdItem & "*.csv*")
Gör medan xFileName <> ""
Med arbetsböcker. Öppna (xFdItem & xFileName)
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Sluta med
xFilnamn = Dir
loop
End If
Avsluta SubSnälla försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, är det möjligt att köra makrot endast i arken i olika arbetsböcker med ett specifikt namn? Tack!!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Sara,
Tyvärr, det finns ingen bra lösning på problemet du tog upp.
Tack!
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL