एक्सेल वीबीए एपीआई

Question

का उपयोग कर एक कार्यपुस्तिका में एकाधिक चयनित चादरें हैंडल कैसे प्राप्त करें एकाधिक एक्सेल शीट्स का चयन करने का एक तरीका है और फिर प्रिंट पर कुछ क्रियाएं करें। हालांकि एक कार्यपुस्तिका दी गई, मुझे कैसे पता चलेगा कि चादरों का चयन किस प्रकार किया जाता है। एक वीबीए संपत्ति है एप्लिकेशन-> एक्टिवशीट जो हमें वर्तमान सक्रिय शीट देता है, लेकिन मुझे इसके लिए एकाधिक चादरें प्राप्त करने का कोई तरीका नहीं मिला।

Answer 1

क्या आप यह चाहते हैं?

Option Explicit 

Sub Sample() 
    Dim ws As Worksheet 
    Dim SelectedSheets() As String 
    Dim n As Long, i As Long 

    n = 0 
    For Each ws In ActiveWindow.SelectedSheets 
     ReDim Preserve SelectedSheets(n) 
     SelectedSheets(n) = ws.Name 
     n = n + 1 
    Next 

    For i = LBound(SelectedSheets) To UBound(SelectedSheets) 
     '~~> This will give you the list of selected sheets 
     Debug.Print SelectedSheets(i)   
    Next i 

    '~~> The collection can also be used as below 
    'Sheets(SelectedSheets).Copy 
    'Sheets(SelectedSheets).Select ' e.g., to re-select them later 
End Sub 

सिड