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

  • Άρθρο

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

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

    Στιγμιότυπο οθόνης της ενέργειας

  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

    Στιγμιότυπο οθόνης της ρυθμισμένης ενέργειας