Mbledhja e të gjithë emrave të skedarëve në një fletë pune është shumë e rëndësishme për punën tuaj. Në këtë artikull, ne do të prezantojmë një metodë për të futur të gjithë emrat e skedarëve në një fletë pune duke përdorur makro VBA.
Në artikullin tonë të mëparshëm 2 metoda për të kopjuar listën e të gjithë emrave të skedarëve në një dosje në fletën tuaj të punës në Excel, ne kemi prezantuar dy metoda për të renditur të gjithë emrat e skedarëve në një dosje në një fletë pune. Dhe tani kemi gjetur një metodë tjetër. Ju gjithashtu mund të përdorni makro VBA për të përfunduar këtë detyrë. Ndiqni hapat e mëposhtëm dhe shikoni se si ta përdorni.
Kopjoni listën e të gjithë emrave të skedarëve në një dosje
- Hapni librin e punës që ju nevojitet për të futur emrat e skedarëve.
- Dhe më pas shtypni butonat e shkurtoreve "Alt +F11" në tastierë për të hapur redaktorin e Visual Basic.
- Pas kësaj, klikoni në skedën "Fut" në shiritin e veglave.
- Pastaj zgjidhni opsionin "Modul" në listën rënëse. Prandaj, ju keni futur një modul të ri në redaktues.
- Në këtë hap, kopjoni kodet e mëposhtme në modulin e ri:
Sub ListAllFileNames() Dim strTargetFolder As String, strFileName As String, nCountItem As Integer ' Initialization nCountItem = 1 strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\" strFileName = Dir(strTargetFolder, vbDirectory) ' Get the file name Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then Cells(nCountItem, 1) = strFileName nCountItem = nCountItem + 1 End If strFileName = Dir Loop End Sub
Në këtë makro, duhet të ndryshoni dosjen e synuar sipas nevojës suaj aktuale. Dhe ne do t'i fusim emrat e skedarëve në kolonën A në një fletë pune. Nëse duhet të futni emrat e skedarëve në një diapazon tjetër, mund të modifikoni edhe kodet.
- Pas kësaj, ekzekutoni këtë makro. Mund të klikoni butonin "Run Sub" në shiritin e veglave ose të shtypni butonin "F5" në tastierë për të ekzekutuar këtë makro.
- Më pas kthehuni te fleta e punës. Do të zbuloni se të gjithë emrat e skedarëve në dosje janë shfaqur tashmë në kolonën A.
Krahasuar me dy metodat e tjera në artikull 2 metoda për të kopjuar listën e të gjithë emrave të skedarëve në një dosje në fletën tuaj të punës në Excel, do të shihni se përdorimi i makro VBA është shumë i përshtatshëm. Sidoqoftë, nga ana tjetër, nëse nuk jeni të njohur me Excel VBA, do të hasni gabime gjatë modifikimit të kodeve. Prandaj, mund të përdorni një nga tre metodat sipas nevojës tuaj aktuale.
Kushtojini vëmendje softuerit të rrezikshëm
Me siguri do të instaloni shumë softuer në kompjuterin tuaj. Dhe këto aplikacione mund t'ju ndihmojnë shumë në punën tuaj. Megjithatë, disa prej tyre janë aplikacione të rrezikshme. Pasi t'i instaloni në kompjuterin tuaj, ata do të mbledhin të dhënat tuaja personale. Çfarë është më e keqja, skedarët tuaj Excel gjithashtu do të dëmtohen prej tyre. Në këtë moment, çinstaloni menjëherë softuerin e rrezikshëm. Përveç kësaj, ju gjithashtu duhet të përdorni një mjet rikuperimi për të riparoni skedarin xlsx të dëmtuar. Kështu, mund të siguroheni që skedarët tuaj Excel janë të sigurt.
Hyrje e autorit:
Anna Ma është një eksperte e rikuperimit të të dhënave në DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i problemit të skedarit Word docx dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com