Excel-Spalten mit VBScript automatisch anpassen

Notiz

Desktop-Flows bieten die Größe von Spalten/Zeilen im Excel-Arbeitsblatt ändern-Aktion, um die Größenänderung von Excel-Spalten und -Zeilen zu erleichtern. Dieser Artikel zeigt eine alternative Methode zum Ändern der Größe von Excel-Spalten und -Zeilen mithilfe von Skripts.

Die Funktion „Automatisch anpassen“ in Excel ermöglicht es Benutzern, die Größe von Zellen in Arbeitsblättern zu ändern, um unterschiedlich große Daten aufzunehmen, ohne die Spaltenbreite und Zeilenhöhe manuell zu ändern.

Um Excel-Spalten bei Verwendung Skripting in Power Automate automatisch anzupassen:

1. Verwenden Sie die Aktion Variable festlegen, um eine neue Variable zu erstellen, die den Pfad der zu ändernden Excel-Datei enthält. In diesem Beispiel heißt die Variable ExcelFile.

   

2. Stellen Sie die Aktion VBScript ausführen bereit und füllen Sie den folgenden Code aus. Ersetzen Sie vor dem Ausführen des Flows den Platzhalter SheetName durch den Namen des Blatts, das automatisch angepasst werden soll, oder eine Variablen, die es enthält.

   '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