Gosto muito de automatizar os processos que envolvem a repetição e o retrabalho humano. Isso poupa muito tempo e dinheiro. Gastar tempo automatizando um processo é algo realmente recompensador.
Ao gerarmos diversos relatórios em planilhas diferentes (workbook) do MS Excel, não queremos perder tempo formatando-as durante a geração e processamento de tais dados. Mas podemos programar para que sejam minimamente formatadas depois que tudo terminar e todos os arquivos estiverem gravados em uma pasta do nosso servidor ou estação de trabalho. Como?
Sub FormatLayoutFiles()Const fPath As String = "D:\Bernardes\Docs\"Dim sh As WorksheetDim sName As StringWith ApplicationLet .Calculation = xlCalculationManualLet .EnableEvents = FalseLet .ScreenUpdating = FalseEnd WithLet sName = Dir(fPath & "*.xls*")Do Until sName = ""With GetObject(fPath & sName)For Each sh In .WorksheetsWith shLet .Cells.HorizontalAlignment = xlLeftLet .Cells.Font.Name = "Arial"Let .Cells.Font.Size = 10End WithNext sh.Close TrueEnd WithLet sName = DirLoopWith ApplicationLet .Calculation = xlAutomaticLet .EnableEvents = TrueLet .ScreenUpdating = TrueEnd WithEnd Sub
Tags: Excel, VBA, format, layout, fomatação, Loop, worksheets, workbooks, folder,change, font, font size, alignment, text, cells
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4ciFhBGUJpI14uQLY4vluNZkid2ybY3ZI_Lg6LfrRc1NRMsG59YtpjYNcf7pPddKaw2JJqvbZge2RyEmCQcIlqI5BX_sTy4evPU-28upSiSNBN83k_HFTauU4O1O3aggs27a7oE86wNjX/s640/VBA_Signature_Andre_Luiz_Bernardes_032b-722457.png)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4ciFhBGUJpI14uQLY4vluNZkid2ybY3ZI_Lg6LfrRc1NRMsG59YtpjYNcf7pPddKaw2JJqvbZge2RyEmCQcIlqI5BX_sTy4evPU-28upSiSNBN83k_HFTauU4O1O3aggs27a7oE86wNjX/s640/VBA_Signature_Andre_Luiz_Bernardes_032b-722457.png)
Nenhum comentário:
Postar um comentário