Excel-sarakkeiden sovittaminen automaattisesti VBScriptin avulla

Excelin automaattisen sovittamisen avulla käyttäjät voivat muuttaa laskentataulukoissa solujen kokoa siten, että erikokoiset tiedot voidaan sijoittaa muuttamatta sarakkeiden leveyttä ja rivin korkeutta manuaalisesti.

Excel-sarakkeiden sovittaminen automaattisesti Power Automaten avulla:

  1. Määritä muuttuja -toiminnolla voit luoda uuden muuttujan, joka sisältää sen Excel-tiedoston polun, jota haluat käsitellä. Tässä esimerkissä muuttuja on nimeltään ExcelFile.

    Määritetty Määritä muuttuja -toiminto.

  2. Ota Suorita VBScript -toiminto käyttöön ja täytä seuraava koodi. Ennen työnkulun suorittamista korvaa SheetName-paikkamerkki sen taulukon nimellä, jonka haluat sovittaa automaattisesti, tai muuttujalla, joka sisältää sen.

    '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
    

    Täytetty Suorita VBScript-toiminto.