VBScript kullanarak Excel sütunlarını otomatik sığdırma

Not

Masaüstü akışları, Excel sütunlarının ve satırlarının yeniden boyutlandırılmasını kolaylaştırmak için Excel çalışma sayfasında sütunları/satırları yeniden boyutlandır eylemi sağlar. Bu makalede, komut dosyası kullanarak Excel sütunları ve satırlarını yeniden boyutlandırmak için alternatif bir yol gösterilir.

Excel'deki Otomatik Sığdırma özelliği, kullanıcıların çalışma sayfalarındaki hücreleri, sütun genişliğini ve satır yüksekliğini el ile değiştirmeden farklı boyutlardaki verileri barındırmak üzere yeniden boyutlandırmasını sağlar.

Power Automate'de komut dosyası oluşturma kullanarak Excel sütunlarını otomatik sığdırmak için:

1. Değiştirmek istediğiniz Excel dosyasının yolunu içeren yeni bir değişken oluşturmak için Değişken ayarla eylemini kullanın. Bu örnekte, değişken ExcelFile olarak adlandırılmıştır.

   

2. VBScript Çalıştır eylemini dağıtın ve aşağıdaki kodu doldurun. Akışı çalıştırmadan önce, SheetName yer tutucusunu, otomatik sığdırma uygulamak istediğiniz sayfa adıyla veya onu içeren bir değişkenle değiştirin.

   '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