როგორ დავაკოპიროთ ყველა ფაილის სახელების სია საქაღალდეში Excel-ის სამუშაო ფურცელში VBA-ს საშუალებით

გააზიარე ახლა:

ყველა ფაილის სახელის შეგროვება სამუშაო ფურცელში ძალიან მნიშვნელოვანია თქვენი მუშაობისთვის. ამ სტატიაში ჩვენ წარმოგიდგენთ მეთოდს, რომ შეიტანოთ ყველა ფაილის სახელი სამუშაო ფურცელში VBA მაკრო გამოყენებით.

ჩვენს წინა სტატიაში 2 მეთოდი, რომ დააკოპიროთ ყველა ფაილის სახელი საქაღალდეში თქვენს Excel სამუშაო ფურცელში, ჩვენ შემოვიღეთ ორი მეთოდი საქაღალდეში არსებული ყველა ფაილის სახელების სამუშაო ფურცელში ჩამოსათვლელად. და ახლა ჩვენ ვიპოვნეთ სხვა მეთოდი. თქვენ ასევე შეგიძლიათ გამოიყენოთ VBA მაკრო ამ ამოცანის შესასრულებლად. მიჰყევით ქვემოთ მოცემულ ნაბიჯებს და ნახეთ, როგორ გამოიყენოთ იგი.

დააკოპირეთ ყველა ფაილის სახელის სია საქაღალდეში

  1. გახსენით სამუშაო წიგნი, რომელიც გჭირდებათ ფაილის სახელების შესაყვანად.
  2. და შემდეგ დააჭირეთ მალსახმობის ღილაკებს "Alt + F11" კლავიატურაზე Visual Basic რედაქტორის გასახსნელად.
  3. ამის შემდეგ დააწკაპუნეთ ჩანართზე „ჩასმა“ ხელსაწყოთა ზოლში.
  4. შემდეგ აირჩიეთ ვარიანტი "მოდული" ჩამოსაშლელ სიაში. ამიტომ, თქვენ ჩადეთ ახალი მოდული რედაქტორში.მოდულის ჩასმა
  5. ამ ეტაპზე დააკოპირეთ შემდეგი კოდები ახალ მოდულში:
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

ამ მაკროში, თქვენ უნდა შეცვალოთ სამიზნე საქაღალდე თქვენი რეალური საჭიროების შესაბამისად. ფაილების სახელებს სამუშაო ფურცლის A სვეტში შევიყვანთ. თუ ფაილების სახელების სხვა დიაპაზონში შეყვანა გჭირდებათ, ასევე შეგიძლიათ შეცვალოთ კოდები.

  1. ამის შემდეგ გაუშვით ეს მაკრო. შეგიძლიათ დააწკაპუნოთ ღილაკზე „Run Sub“ ინსტრუმენტთა პანელში ან დააჭირეთ ღილაკს „F5“ კლავიატურაზე ამ მაკროს გასაშვებად.
  2. შემდეგ დაუბრუნდით სამუშაო ფურცელს. თქვენ ნახავთ, რომ ყველა ფაილის სახელი საქაღალდეში უკვე გამოჩნდა A სვეტში.შედეგი

სტატიაში დანარჩენ ორ მეთოდთან შედარებით 2 მეთოდი, რომ დააკოპიროთ ყველა ფაილის სახელი საქაღალდეში თქვენს Excel სამუშაო ფურცელში, ნახავთ, რომ VBA მაკროს გამოყენება ძალიან მოსახერხებელია. თუმცა, მეორე მხრივ, თუ არ იცნობთ Excel VBA-ს, შეცდომებს შეხვდებით კოდების მოდიფიცირებისას. აქედან გამომდინარე, შეგიძლიათ გამოიყენოთ სამი მეთოდიდან ერთი თქვენი რეალური საჭიროების მიხედვით.

ყურადღება მიაქციეთ სახიფათო პროგრამულ უზრუნველყოფას

თქვენ ნამდვილად დააინსტალირებთ უამრავ პროგრამას თქვენს კომპიუტერში. და ეს აპლიკაციები ძალიან დაგეხმარებათ თქვენს საქმიანობაში. თუმცა, ზოგიერთი მათგანი საშიშია. მას შემდეგ რაც დააინსტალირებთ თქვენს კომპიუტერში, ისინი შეაგროვებენ თქვენს პირად ინფორმაციას. რაც უფრო უარესია, თქვენი Excel ფაილებიც დაზიანდება მათ მიერ. ამ მომენტში, დაუყოვნებლივ წაშალეთ საშიში პროგრამა. გარდა ამისა, თქვენ ასევე უნდა გამოიყენოთ აღდგენის ინსტრუმენტი დაზიანებული xlsx ფაილის შეკეთება. ამრიგად, შეგიძლიათ დარწმუნდეთ, რომ თქვენი Excel ფაილები უსაფრთხოა.

ავტორი შესავალი:

ანა მა არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Word docx ფაილის პრობლემის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად

გააზიარე ახლა:

კომენტარები დახურულია.