यह संग्रह एक कार्यपुस्तिका (Workbooks) में शीट्स (Sheets) का एक सेट है। आइए देखें कि हम शीट्स पर क्या कार्य कर सकते हैं।
सबसे पहले, आइए यह जानने का प्रयास करें कि हमारी पुस्तक में कितनी शीट हैं:
Sub Test() 'moonexcel.com.ua
MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub
इस कोड के साथ, हमने स्क्रीन (MsgBox) पर एक संदेश बुलाया, जिसने कार्यपुस्तिका (Workbooks) "Test.xls" में शीट्स की संख्या (Sheets.Count) प्रदर्शित की।
एक शीट में न केवल सेल, बल्कि आरेख भी शामिल होते हैं। साथ ही, गणना शीट की तरह, चार्ट को शीट गिनती में शामिल किया जाएगा।
शीटों के संग्रह में अपनी स्वयं की शीट जोड़ना भी संभव है, इसके लिए एक Add विधि है। इस विधि में 4 पैरामीटर हैं Add(Before, After, Count, Type)। ये सभी पैरामीटर वैकल्पिक हैं. पहले दो शीट डालने के स्थान के लिए जिम्मेदार हैं। इसके बाद, डाली जाने वाली शीटों की संख्या Count और शीट प्रकार Type है। उदाहरण के लिए, स्प्रेडशीट के लिए xlWorkSheet और चार्ट के लिए xlChart प्रकार हो सकते हैं। यदि स्थान निर्दिष्ट नहीं है, तो शीट वर्तमान शीट के सापेक्ष डाली जाएगी।
Sub Test() 'moonexcel.com.ua
Sheets.Add After:=Worksheets("Sheet3"), Count:=4
End Sub
इस तरह हमने शीट "Sheet3" के बाद 4 शीट (Count:=4) डाली हैं। आप पुस्तक के बिल्कुल अंत में एक शीट भी डाल सकते हैं:
Sub Test() 'moonexcel.com.ua Worksheets.Add ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) End Sub
आप चाहें तो कुछ अक्षर छुपाये जा सकते हैं. यह उपयोगी है यदि आपके पास स्थिरांक या गणनाएं हैं जिन्हें आप अक्षरों के रूप में स्क्रीन पर नहीं देखना चाहते हैं। इसके लिए आप Visible विधि का उपयोग कर सकते हैं। इस प्रॉपर्टी को TRUE या FALSE में सेट करके आप आवश्यक शीट को हटा या प्रदर्शित कर सकते हैं।
Sub Test() 'moonexcel.com.ua
ActiveWorkbook.Sheets("Sheet3").Visible = False
End Sub