Laskentataulukoiden näyttäminen Excelissä VBScriptin avulla

Jos Excel-tiedosto sisältää piilotettuja laskentataulukoita, tee niistä näkyviä replikoimalla seuraavat vaiheet:

  1. Määritä muuttuja -toiminnolla voit luoda uuden muuttujan, joka sisältää kyseisen Excel-tiedoston tiedostopolun. Tässä esimerkissä muuttuja on nimeltään ExcelFile.

    Aseta muuttuja -toiminto, jossa on Excel-tiedostopolku.

  2. Ota Suorita VBScript -toiminto käyttöön ja täytä seuraava koodi.

    'Opens the Excel file'
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("%ExcelFile%")
    objExcel.Application.Visible = True
    
    'Unhides all the worksheets of the Excel file'
    For i=1 To objWorkbook.Sheets.Count
    objWorkbook.Sheets(i).Visible = True
    Next
    
    'Saves and closes the Excel file'
    objWorkbook.Save
    objWorkbook.Close SaveChanges = True
    

    Määritetty Suorita VBScript -toiminto.