Κατάργηση απόκρυψης φύλλων εργασίας στο Excel με χρήση VBScript
Εάν ένα αρχείο Excel περιέχει κρυφά φύλλα εργασίας, επαναλάβετε τα παρακάτω βήματα για να τα κάνετε ορατά:
Χρησιμοποιήστε την ενέργεια Ορισμός μεταβλητής για να δημιουργήσετε μια νέα μεταβλητή που περιέχει τη διαδρομή αρχείου του αντίστοιχου αρχείου Excel. Σε αυτό το παράδειγμα, η μεταβλητή ονομάζεται ExcelFile.
Αναπτύξτε την ενέργεια Εκτέλεση 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