वर्तमान कार्यपुस्तिका से एक और कार्यपुस्तिका तक पहुंचें जिसमें मैक्रो - एक्सेल, वीबीए, एक्सेल-वीबीए शामिल हैं

मेरे पास एक एक्सेल शीट के लिए एक कोड लिखा हैमैक्रो का रूप, इस मैक्रो में, मैं एक अलग स्थान पर वर्तमान कार्यपुस्तिका की एक प्रति उत्पन्न कर रहा हूं। अब, मुझे इस कॉपी किए गए एक्सेल वर्कबुक को मैक्रो से इसके कुछ वर्कशीट को हटाने के लिए एक्सेस करने की आवश्यकता है। क्या कोई मुझे बता सकता है कि मौजूदा एक्सेल शीट मैक्रो से नई कॉपी की गई शीट तक कैसे पहुंचा जाए?

उत्तर:

निम्नलिखित कोड आपको अपनी कार्यपुस्तिका की एक प्रति संपादित करने की अनुमति देगा:

उप परीक्षण () कार्यपुस्तिका के रूप में डिम wb मंद रूप मेंतार  strName = "" और ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs फ़ाइल नाम: = strName सेट wb = कार्यपुस्तिका। PDF (strName)  Application.DisplayAlerts = झूठी "रोकता है कि उपयोगकर्ता को पूछा जाता है जब चादरें हटा दी जाती हैं wb.Worksheets ( "Sheet1")। हटाएं Application.DisplayAlerts = सच  wb.Close SaveChanges: = सच है अंत उप