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
Nenhum comentário:
Postar um comentário