Automatyczne dopasowywanie kolumn programu Excel przy użyciu języka VBScript

Uwaga

Przepływy pulpitu zapewniają akcję Rozmiar kolumn/wierszy w arkuszu programu Excel, która ułatwia zmianę rozmiaru kolumn i wierszy programu Excel. Ten artykuł pokazuje alternatywny sposób zmiany rozmiaru kolumn i wierszy w Excelu przy użyciu skryptów.

Funkcja autofit w programie Excel umożliwia użytkownikom zmianę rozmiaru komórek w arkuszach w celu uwzględnienia danych o różnych rozmiarach bez ręcznej zmiany szerokości kolumn i wysokości wiersza.

Aby dokonać autodopasowania kolumn w programie Excel przy użyciu skryptów w Power Automate:

1. Akcji Ustaw zmienną należy użyć do utworzenia nowej zmiennej zawierającej ścieżkę pliku programu Excel, która ma być modyfikowana. W tym przykładzie zmienna ma nazwę ExcelFile.

   

2. Wdróż akcję Uruchom skrypt VBScript i wypełnij następujący kod. Przed uruchomieniem przepływu zastąp symbol zastępczy SheetName nazwą arkusza, który chcesz automatycznie dopasować, lub zmienną, która go zawiera.

   '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