300 উদাহরণ

আমদানি পত্রক

Import Sheets

নীচে আমরা একটি প্রোগ্রাম দেখব এক্সেল ভিবিএ যে একটি এক্সেল ফাইলে অন্যান্য এক্সেল ফাইল থেকে শীট আমদানি করে





Book4.xlsx, Book5.xlsx ডাউনলোড করুন এবং সেগুলিকে 'C: test ' এ যোগ করুন

পরিস্থিতি:





এক্সেল ভিবিএ ব্যবহার করে শীট আমদানি করুন

কমান্ড বোতামে নিম্নলিখিত কোড লাইন যুক্ত করুন:



1. প্রথমে, আমরা স্ট্রিং টাইপের দুটি ভেরিয়েবল, একটি ওয়ার্কশীট অবজেক্ট এবং ইন্টিজার টাইপের একটি ভেরিয়েবল ঘোষণা করি।

কোনটিই নয়ডিরেক্টরিযেমন স্ট্রিং, ফাইলের নামযেমন স্ট্রিং, চাদরযেমনকার্যপত্র, মোটযেমন পূর্ণসংখ্যা

2. স্ক্রিন আপডেট এবং সতর্কতা প্রদর্শন বন্ধ করুন।

অ্যাপ্লিকেশন।স্ক্রিন আপডেট =মিথ্যা
অ্যাপ্লিকেশন ডিসপ্লে অ্যালার্ট =মিথ্যা

3. পরিবর্তনশীল ডিরেক্টরি আরম্ভ করুন। আমরা প্রথম *.xl খুঁজে পেতে Dir ফাংশন ব্যবহার করি ?? এই ডিরেক্টরিতে সংরক্ষিত ফাইল।

ডিরেক্টরি = 'সি: পরীক্ষা '
fileName = Dir (ডিরেক্টরি & '*.xl ??')

দ্রষ্টব্য: দির ফাংশন বিভিন্ন ধরণের এক্সেল ফাইল অনুসন্ধানের জন্য একাধিক অক্ষর (*) এবং একক অক্ষর (?) ওয়াইল্ডকার্ড ব্যবহার সমর্থন করে।

নিকটতম পুরো সংখ্যা এক্সেল থেকে বৃত্তাকার

4. পরিবর্তনশীল fileName এখন ডিরেক্টরিতে পাওয়া প্রথম এক্সেল ফাইলের নাম ধারণ করে। যুক্ত কর একটি ডু উইল লুপ ।

কর যখনফাইলের নাম ''

লুপ

লুপে নিম্নলিখিত কোড লাইনগুলি (5, 6, 7 এবং 8 এ) যুক্ত করুন।

5. বন্ধ এক্সেল ফাইল থেকে ওয়ার্কশীট কপি করার কোন সহজ উপায় নেই। অতএব আমরা এক্সেল ফাইল খুলি।

ওয়ার্কবুকস খুলুন (ডিরেক্টরি এবং ফাইলের নাম)

6. Excel ফাইল থেকে শীট আমদানি করুন import-sheet.xlsm এ।

জন্য প্রতিটিশীটভিতরেওয়ার্কবুক (ফাইলের নাম) ওয়ার্কশীট
মোট = ওয়ার্কবুক ('আমদানি-পত্রক। xlsm')
ওয়ার্কবুক (ফাইলের নাম) ওয়ার্কশীট (শীট নাম) ।কপি _
পরে: = ওয়ার্কবুক ('আমদানি-পত্রক। xlsm')। কার্যপত্র (মোট)
পরবর্তীশীট

ব্যাখ্যা: ভেরিয়েবল টোটাল আমদানি- sheet.xlsm এর ওয়ার্কশীটের মোট সংখ্যার ট্র্যাক ধারণ করে। আমরা ওয়ার্কশীট অবজেক্টের কপি পদ্ধতি ব্যবহার করি প্রতিটি ওয়ার্কশীট কপি করতে এবং আমদানি-শীট.এক্সএলএসএম-এর শেষ ওয়ার্কশীটের পরে পেস্ট করে।

7. এক্সেল ফাইল বন্ধ করুন।

ওয়ার্কবুক (ফাইলের নাম) বন্ধ করুন

8. দির ফাংশন একটি বিশেষ ফাংশন। অন্যান্য এক্সেল ফাইল পেতে, আপনি কোন যুক্তি ছাড়াই আবার Dir ফাংশন ব্যবহার করতে পারেন।

এক্সেল থেকে একটি এক্সএমএল ফাইল তৈরি করুন
fileName = Dir ()

দ্রষ্টব্য: যখন আর কোন ফাইলের নাম মেলে না, তখন Dir ফাংশন একটি শূন্য দৈর্ঘ্যের স্ট্রিং ('') প্রদান করে। ফলস্বরূপ, এক্সেল ভিবিএ Do while লুপ ছেড়ে যাবে।

9. পর্দা আপডেট করা এবং সতর্কতা প্রদর্শন আবার চালু করুন (লুপের বাইরে)।

অ্যাপ্লিকেশন।স্ক্রিন আপডেট =সত্য
অ্যাপ্লিকেশন ডিসপ্লে অ্যালার্ট =সত্য

10. প্রোগ্রামটি পরীক্ষা করুন।

ফলাফল:

আমদানি শীট ফলাফল

7/8 সম্পন্ন! বই এবং শীট সম্পর্কে আরও জানুন>
পরবর্তী অধ্যায়ে যান: পরিসীমা বস্তু



^