अन्य कार्यपुस्तिकाओं से कॉपी / पेस्ट करें - एक्सेल, छवि, वीबीए, एक्सेल-वीबीए, कॉपी-पेस्ट

मैंने अपनी कार्यपुस्तिका में अन्य कार्यपुस्तिकाओं से उपयोग की जाने वाली श्रेणियों की प्रतिलिपि बनाने और पेस्ट करने के लिए कोड लिखा था। मेरे कंप्यूटर में यह काम करता है लेकिन जब मैं किसी को भेजता हूं तो पेस्ट प्रक्रिया के परिणामस्वरूप त्रुटि संदेश होता है:

"यह छवि वर्तमान में प्रदर्शित नहीं की जा सकती है।"

वर्तमान संस्करण, मैंने xlPasteAll का उपयोग किया:

Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy
Workbooks(fl.Name).Close
Worksheets(sheetindex).Activate
ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll

उत्तर:

आप इसे देखना चाहते हैं KB-अनुच्छेद। यह एक त्रुटि का वर्णन करता है जो किसी अन्य कार्यपुस्तिका में शीट या रेंज की प्रतिलिपि बनाते समय अन्य कार्यपुस्तिकाओं की छवियों के साथ होता है।

एक समान समस्या थी - हमने एक शीट की प्रतिलिपि बनाईलक्ष्य कार्यपुस्तिका में छवियों। यदि आप कार्य कार्यपुस्तिका को सहेजने और बंद करने से पहले स्रोत कार्यपुस्तिका को बंद करते हैं तो यह त्रुटि उत्पन्न होगी। यदि आपने स्रोत कार्यपुस्तिका को खोल दिया है और लक्षित कार्यपुस्तिका को बंद कर दिया है, तो छवि सही ढंग से दिखायी गई थी (बाद में स्रोत कार्यपुस्तिका बंद करें और मैन्युअल रूप से लक्षित कार्यपुस्तिका को फिर से खोलें)।

केबी-आलेख / होफ्टिक्स हमारी समस्या को ठीक करने में सक्षम था - यह भी समझाएगा कि यह आपके वर्कस्टेशन पर क्यों काम करता है और कहीं और नहीं। (विभिन्न कार्यालय पैच ...)

मूल्यों की प्रतिलिपि बनाने के बाद आप शीट बंद कर रहे हैं। मान चिपकाने के बाद बंद कमांड का उपयोग करें

  Sub test()

Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy
Worksheets(sheetindex).Activate
ActiveSheet.Range(Cells(startrow, 1), Cells(rangeCount, 16)).PasteSpecial xlPasteAll

Application.CutCopyMode = False
Application.CutCopyMode = True
Workbooks(fl.Name).Close
End Sub