Ajustar automaticamente as colunas Excel através de VBScript

Nota

Os fluxos de ambiente de trabalho fornecem a ação Redimensionar colunas/linhas na folha de cálculo do Excel para facilitar o redimensionamento de colunas e linhas do Excel. Este artigo mostra uma forma alternativa de redimensionar colunas e linhas do Excel que utilizam scripting.

A função de ajuste automático no Excel permite que os utilizadores redimensionem as células em folhas de cálculo para acomodar dados de tamanhos diferentes sem alterar manualmente a largura da coluna e a altura da linha.

Para ajustar automaticamente colunas do Excel que utilizam script no Power Automate:

1. Utilize a ação Definir variável para criar uma nova variável que contenha o caminho do ficheiro do Excel que pretende manipular. Neste exemplo, a variável chama-se ExcelFile.

   

2. Implemente a ação Executar VBScript e povoe o código seguinte. Antes de executar o fluxo, substitua o marcador de posição SheetName pelo nome da folha que pretende ajustar automaticamente ou uma variável que a contenha.

   'Opens the Excel file'
   Set objExcel = CreateObject("Excel.Application")
   Set objWorkbook = objExcel.Workbooks.Open("%ExcelFile%")
   objExcel.Application.Visible = True
   
   'Selects the specified sheet'
   Set objSheet = objWorkbook.Sheets("SheetName")
   
   'Autofits the columns of the sheet'S
   for col=1 to 19
   objSheet.columns(col).AutoFit()
   next
   
   'Saves and closes the Excel file'
   objWorkbook.Save
   objWorkbook.Close SaveChanges = True