கோப்பகத்தில் கோப்புகள்

கீழே உள்ள ஒரு நிரலைப் பார்ப்போம் எக்செல் VBA அந்த அனைத்து மூடிய பணிப்புத்தகங்கள் மற்றும் பணித்தாள்கள் மூலம் சுழல்கள் ஒரு அடைவு மற்றும் அனைத்து பெயர்களையும் காட்டுகிறது.

Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx மற்றும் Book5.xlsx பதிவிறக்கம் செய்து அவற்றை 'C: test ' இல் சேர்க்கவும்

நிலைமை:

கட்டளை பொத்தானில் பின்வரும் குறியீடு வரிகளைச் சேர்க்கவும்:

1. முதலில், ஸ்ட்ரிங்கின் இரண்டு மாறிகள், ஒரு பணித்தாள் பொருள் மற்றும் வகை முழு எண்ணின் இரண்டு மாறிகள் ஆகியவற்றை அறிவிக்கிறோம்.

2. ஸ்கிரீன் ஃப்ளிக்கரைத் தவிர்க்க, ஸ்கிரீன் அப்டேட்டை ஆஃப் செய்யவும்.

3. மாறி அடைவை துவக்கவும். முதல் *.xl ஐக் கண்டுபிடிக்க நாங்கள் Dir செயல்பாட்டைப் பயன்படுத்துகிறோம் ?? இந்த கோப்பகத்தில் சேமிக்கப்படும் கோப்பு.

குறிப்பு: பல்வேறு வகை எக்செல் கோப்புகளைத் தேட பல எழுத்து (*) மற்றும் ஒற்றை எழுத்து (?) வைல்ட்கார்டுகளைப் பயன்படுத்துவதை Dir செயல்பாடு ஆதரிக்கிறது.

4. மாறி கோப்பு பெயர் இப்போது கோப்பகத்தில் காணப்படும் முதல் எக்செல் கோப்பின் பெயரைக் கொண்டுள்ளது. ஒரு சேர்க்கவும் சுழற்சியின் போது செய்யவும் .

பின்வரும் குறியீட்டு வரிகளை (5, 6, 7, 8 மற்றும் 9 இல்) லூப்பில் சேர்க்கவும்.

5. முழு எண்ணின் மாறிகளைத் துவக்கி, வரிசை i இன் முதல் நெடுவரிசையில் எக்செல் கோப்பின் பெயரைச் சேர்க்கவும்.

6. மூடிய எக்செல் கோப்புகளிலிருந்து தரவை (அல்லது தாள் பெயர்கள்) பிரித்தெடுக்க எளிய வழி இல்லை. எனவே, நாங்கள் எக்செல் கோப்பைத் திறக்கிறோம்.

7. வரிசையின் மற்ற நெடுவரிசைகளில் எக்செல் கோப்பின் அனைத்து தாள் பெயர்களையும் சேர்க்கவும்.

8. எக்செல் கோப்பை மூடவும்.

9. திர் செயல்பாடு ஒரு சிறப்பு செயல்பாடு. மற்ற எக்செல் கோப்புகளைப் பெற, நீங்கள் வாதங்கள் இல்லாமல் Dir செயல்பாட்டை மீண்டும் பயன்படுத்தலாம்.

எக்செல் தற்போதைய தேதி மற்றும் நேரத்தை செருகவும்

குறிப்பு: எந்த கோப்பு பெயர்களும் பொருந்தாதபோது, ​​Dir செயல்பாடு பூஜ்ஜிய நீள சரத்தை ('') அளிக்கிறது. இதன் விளைவாக, எக்செல் VBA Do Do loop ஐ விட்டுவிடும்.

10. திரை புதுப்பிப்பை மீண்டும் இயக்கவும் (சுழலுக்கு வெளியே).

11. நிரலை சோதிக்கவும்.

விளைவாக: