Adattare automaticamente le colonne di Excel utilizzando VBScript

Nota

I flussi desktop forniscono l'azione Ridimensiona colonne/righe nel foglio di lavoro di Excel per facilitare il ridimensionamento di colonne e righe di Excel. Questo articolo mostra un modo alternativo per ridimensionare le colonne e le righe di Excel utilizzando gli script.

La funzione di adattamento automatico in Excel consente agli utenti di ridimensionare le celle nei fogli di lavoro per ospitare dati di dimensioni diverse senza modificare manualmente la larghezza della colonna e l'altezza della riga.

Per adattare automaticamente le colonne di Excel utilizzando lo script in Power Automate:

1. Utilizza l'azione Imposta variabile per creare una nuova variabile contenente il percorso del file Excel che intendi manipolare. In questo esempio, la variabile è denominata ExcelFile.

   

2. Distribuisci l'azione Esegui VBScript e compila il codice seguente. Prima di eseguire il flusso, sostituisci il segnaposto SheetName con il nome del foglio che intendi adattare automaticamente o con una variabile che lo contiene.

   '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