With Destwb .SaveAs FolderName _ & & Destwb.Sheets(1).Name & FileExtStr, _ ”\” FileFormat:=FileFormatNum .Close False End With End If GoToNextSheet: Next sh MsgBox can find the files in & FolderName ”You ” With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub
With Destwb .SaveAs FolderName _ & ”\” & Destwb.Sheets(1).Name & FileExtStr, _ FileFormat:=FileFormatNum .Close False End With End If GoToNextSheet: Next sh MsgBox ”You can find the files in ” & FolderName With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub
VBA-kod_Distribuera-data-fr%C3%A5n-pivottabell-till-flikar-och-filer-.docx