VBA कार्यपत्रकों (नहीं कार्यपत्रक)

Question

ठीक इतनी के रूप में मंद ws, मुझे पता है मैं यह कर सकता:

Dim ws as worksheet 
Set ws = thisworkbook.worksheets("Sheet1") 

और फिर ws कार्यपत्रक वस्तु के साथ मेरी कल्पना चीजें करते

मैं भी जानता हूँ कि मैं यह कर सकते हैं Dim wss as worksheets और worksheets("Sheet1") का उपयोग करके वर्कशीट ऑब्जेक्ट देता है। तो निम्नलिखित काम क्यों नहीं करता है?

Dim wss as worksheets 
Dim ws as worksheet 
Set wss = thisworkbook.worksheets 
Set ws = wss("Sheet1") 

मैं भी कोशिश की है:

Dim wss as worksheets 
Dim ws as worksheet 
Set ws = thisworkbook.wss("Sheet1") 

लेकिन जैसे मैं नाम बदलने/"कार्यपत्रकों" जो पूरी तरह गलत लगता है छोटा करने के लिए कोशिश कर रहा हूँ बाद बस लग रहा है। मैं वर्कबुक की वर्कशीट्स को एक वर्कशीट ऑब्जेक्ट में Wss नामक करने की कोशिश कर रहा हूं। यह किसी भी चीज से heirachy समझने की कोशिश कर लेकिन कार्यात्मक प्रयोजनों के लिए मैं से कार्यपुस्तिका एक्स सभी कार्यपत्रकों समाहित करने के लिए तो मैं बस set ws = wb.worksheets(1)

कहने के बजाय ws = wss(1) कर सकता है WSS पाने के लिए कोशिश कर रहा हूँ के बारे में अधिक है कि यहां तक ​​कि संभव या मैं कर रहा हूँ वर्कशीट्स/वर्कशीट रिश्ते को गलतफहमी?

Answer 1

आप एक Sheets वस्तु

Dim wss As Sheets 
Dim ws As Worksheet 

Set wss = ThisWorkbook.Worksheets 
Set ws = wss("Sheet1") 

इस वजह से Workbook वस्तु की Worksheets संपत्ति एक Sheets संग्रह देता है, यानी एक संग्रह है कि कार्यपुस्तिका के दोनों Worksheets और Charts वस्तु शामिल के रूप में wss घोषित करना चाहिए

चाहिए आपको अपने WorkbookWorksheets केवल (Charts) के संग्रह की आवश्यकता नहीं है जैसे ws = wss (1) या पसंद वें एन आप Collection वस्तु के साथ निम्नलिखित तरीके को अपनाने सकता है

Option Explicit 

Sub main() 
    Dim wss As Collection 
    Dim ws As Worksheet 

    Set wss = GetWorkSheets 
    Set ws = wss("Sheet1") 
    Set ws = wss(1) 
End Sub 

Function GetWorkSheets() As Collection 
    Dim wss As New Collection 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Worksheets 
     wss.add ws, ws.Name 
    Next ws 
    Set GetWorkSheets = wss 
End Function