MS Excel

A to je jedno v jakém pořadí se ty soubory budou aktualizovat?
Aby nedošlo k chybným výsledkům!citovat

Pak třeba:Sub Aktualizace_Tip()
Dim MyPath As String, MyTxt As String, MyBat As String, MyName As String, MyStr As String
Dim xWB As Workbook, xFile As Byte, rdR As Byte, MyVypis() As String
MyPath = ThisWorkbook.Path & "\"
MyTxt = MyPath & "Dir_Vypis.txt"
MyBat = MyPath & "Dej_Vypis.bat"
MyStr = "Dir " & MyPath & "*.xlsm /B /S >" & MyTxt
xFile = FreeFile
'MyBat prikazem DIR vypise do MyTxt vsechny soubory podle masky ------
Open MyBat For Output As xFile
Print #xFile, MyStr
Close xFile
Application.Wait (Now + TimeValue("0:00:01"))
Shell MyBat
Application.Wait (Now + TimeValue("0:00:01"))
'z MyTxt naplnime MyVypis() ------------------------------------------
rdR = 0
Open MyTxt For Input As xFile
Do While Not EOF(xFile)
rdR = rdR + 1
ReDim Preserve MyVypis(1 To rdR) As String
Line Input #xFile, MyVypis(rdR)
Loop
Close xFile
With Application
.Calculation = xlManual
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
'postupne otevre vsechny soubory z MyVypis() a Aktualizuje -----------
For rdR = 1 To UBound(MyVypis)
MyName = MyVypis(rdR)
If Not ThisWorkbook.FullName = MyName Then
Set xWB = GetObject(MyName)
'vypnout otazku na aktualizaci ------------ pri prvnim spusteni ------
xWB.UpdateLinks = xlUpdateLinksAlways
xWB.RefreshAll
DoEvents
Windows(xWB.Name).Visible = True
xWB.Close True
End If
Next rdR
Set xWB = Nothing
'odstranit pomocne soubory -------------------------------------------
Kill MyBat: Kill MyTxt
With Application
.Calculation = xlAutomatic
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Pokud máš v názvech diakritiku, může to dělat paseku. Ale s tím už neporadím, já diakritiku v názvech nepoužívám.citovat

No nevím jak se skrz DIR dostat do podadresářů. První řada je jasná přes "vbDirectory", ale nevím kolik vnoření tam má. Neznám adresu zdroje.citovat

Zdrojové soubory jsou 2.
Kdyby makro bylo pouze na jeden adresář, bylo by to jednodušší?
Udělal bych si soubor, kde bych si dal tři makra (podadresáře jsou tři) na každý adresář zvlášť bych si upravil cestu a spustil makro zvlášť.

Pokud by bylo potřeba ještě něco upřesnit, ptejte se... :-)

Děkuji za váš čas.citovat

@kp57
Tak tedy na popud eLCHa ještě jeden.

A ten první nefachčí, nebo co? Mně se teda líbí.

Pokud ten můj půlnoční výkřik ze tmy vyzněl jako kritika, tak to nebyl záměr. Pokud ten kód dělá to co má, tak je to v pořádku. A pokud se Vám navíc líbí, co více si přát? ;)))

Přišlo mi zbytečné vytvářet dávku a tak jsem na to upozornil.
Váš následující kód je zhruba to, co bych napsal já, jen je tam na můj vkus moc proměnných. A určitě bych tam nedával DoEvents (proč tam je? proč pouštět další události do běhu kódu?)
Vlastně jsem to zkusil napsat téměř úplně bez proměnných - ale pokud jsem chtěl použít fci Dir, tak to neprošlo. Musím načíst seznam adresářů. Ale je to úloha, u které lze využít proceduru, která volá sama sebe.
Jen pro ukázku - výpis souborů pdf včetně podsložek - na tom jsem to testoval. Aby vyhovělo zadání, už bych jen změnil typ souboru, v první proceduře otevřel ty dva zdroje a místo Debug.Print ve druhé bych dal - Open, Save, Close.Sub subListFiles()
Call subCreateList("V:\TISKY PDF\SAP", ".pdf")
End Sub

Sub subCreateList(ByVal sFolder As String, ByVal sFileType As String)
sFolder = sFolder & IIf(Right(sFolder, 1) = "\", vbNullString, "\")

Dim sFolders() As String
ReDim sFolders(0)

Dim vVal As Variant
vVal = Dir(sFolder, vbDirectory)

While Not vVal = vbNullString
If Not vVal Like ".*" Then
If GetAttr(sFolder & vVal) = vbDirectory Then
If Not sFolders(0) = vbNullString Then
ReDim Preserve sFolders(UBound(sFolders) + 1)
End If
sFolders(UBound(sFolders)) = sFolder & vVal
Else
If vVal Like "*" & sFileType Then
Debug.Print sFolder & vVal
End If
End If
End If
vVal = Dir
Wend

If Not sFolders(0) = vbNullString Then
For Each vVal In sFolders
Call subCreateList(vVal, sFileType)
Next vVal
End If
End Subcitovat