Κατάργηση απόκρυψης φύλλων εργασίας στο Excel με χρήση VBScript

Εάν ένα αρχείο Excel περιέχει κρυφά φύλλα εργασίας, επαναλάβετε τα παρακάτω βήματα για να τα κάνετε ορατά:

  1. Χρησιμοποιήστε την ενέργεια Ορισμός μεταβλητής για να δημιουργήσετε μια νέα μεταβλητή που περιέχει τη διαδρομή αρχείου του αντίστοιχου αρχείου Excel. Σε αυτό το παράδειγμα, η μεταβλητή ονομάζεται ExcelFile.

    Η ενέργεια "Ορισμός variableaction" που περιέχει τη διαδρομή του αρχείου Excel.

  2. Αναπτύξτε την ενέργεια Εκτέλεση VBScript και συμπληρώστε τον ακόλουθο κώδικα.

    '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
    

    Η διαμορφωμένη ενέργεια "Εκτέλεση VBScript".