İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir qovluqdakı bütün faylları siyahıya salmaq və Exceldə onlar üçün hiperlinklər yaratmaq necədir?

Gündəlik işiniz üçün bir qovluqdakı bir çox faylın bir iş səhifəsinə idxal edilməsi və faylları tez və asanlıqla açmaq üçün hər bir fayl üçün köprülər yaratmaq tələb oluna bilər. Bəlkə, faylların kopyalayıp yapışdırıb onu bir-bir əllə bir köprü yaratmaq olar, ancaq bu, qovluqda yüzlərlə fayl varsa, çox vaxt itirə bilər. Bu gün bu işlə məşğul olmaq üçün bəzi tez və maraqlı üsullarla danışacağam.

Bir qovluqdakı bütün faylları siyahıya salın və VBA kodu ilə hiperlinklər yaradın

Bir qovluqdakı bütün faylları siyahıdan çıxarın və Excel üçün Kutools ilə köprülər yaradın


Bir qovluqdakı bütün faylları siyahıya salın və birbaşa hiperlinklər yaradın:

ilə Excel üçün Kutools's Filename siyahısı kommunal, bütün faylları mümkün qədər qısa müddətdə bir iş səhifəsinə daxil olan bir qovluqdan siyahıya ala bilərsiniz.

doc siyahısı faylları

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Bir qovluqdakı fayllarla köprü siyahısını yaratmaq və yaratmaq üçün aşağıdakı VBA kodları sizə bir xeyir verə bilər.

1. Nəticəni yerləşdirmək üçün yeni bir işi aktivləşdirin.

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA: Bir qovluqdakı bütün faylların siyahısını yazın və hiperlinklər yaradın

Sub Example1()
'Update 20150831
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və faylları siyahıdan daxil etmək istədiyiniz qovluğu seçin İnsanlar ekrana baxın:

doc siyahısı 1 hiperlink yaratmaq

5. Qovluğu göstərdikdən sonra basın OK düyməsini basın və xüsusi qovluqdakı bütün fayllar hiperlinkli aktiv iş yerində siyahıya alındı, ekran görünüşünə baxın:

doc siyahısı 2 hiperlink yaratmaq

Qeyd: Belirli klasörünüzde alt klasörler varsa, alt klasörlerdeki fayllar listelenmeyecektir.


Bir qovluqda və alt qovluqlarda bütün faylları siyahıya salmaq və hər bir fayl üçün köprülər yaratmaq üçün, Excel üçün Kutools'S Filename siyahısı bir lütf edə bilər. Bu xüsusiyyət ilə qovluq və alt qovluqdakı bütün fayllar fayl adı, fayl ölçüsü, yaradılmış vaxt, qovluq və s. Kimi bir sıra xüsusiyyətləri ilə eyni anda siyahıya alınacaqdır.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Əgər quraşdırılmış varsa Excel üçün Kutools, aşağıdakı adımlarla edin:

1. Basın Müəssisə > İdxal ixrac > Filename siyahısı, bax ekran görüntüsü:

doc siyahısı 3 hiperlink yaratmaq

2. Ci Filename siyahısı informasiya qutusu, aşağıdakı əməliyyatları edin:

(1.) Tıklayın doc siyahısı 5 hiperlink yaratmaq faylların siyahısını yazmaq istədiyiniz qovluğu seçmək üçün düyməsini basın;

(2.) Məni yoxlayınalt dizinlerdeki faylları nclude filenamesləri alt qovluqlarda qeyd etmək istəyirsinizsə;

(3.) Tapmaq və siyahıda olmaq istədiyiniz fayl növlərini seçin Fayl tipi bölmə;

(4.) Göstərmək istədiyiniz fayl ölçüsü vahidini seçin;

(5.) Yoxlayın Hiperlinklər yaradın informasiya qutusunun sol altındakı.

Excel İndi Download Kutools!

3. Sonra basın Ok düyməsinə basın və qovluq və alt qovluqdakı bütün fayllar, ehtiyac duyduğunuz hiperlink ilə yeni bir iş yerində siyahıya alındı, ekran görünüşünə baxın:

doc siyahısı 6 hiperlink yaratmaq

Filename Siyahısı proqramı haqqında daha ətraflı məlumat üçün tıklayın ...

Excel İndi Download və pulsuz sınaq Kutools!


Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Əlaqədar məqalə:

Bir qovluqda və alt qovluqdakı bütün faylları bir işə necə yazmaq olar?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ellie · 2 months ago
    How would I change this code to have it list folder names rather than file names? And how would I change it to check subfolders for files?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hi, Ellie,
      To list all folder and subfolder names from a directory, the below VBA code can help you, please try, hopt it can help you.

      Sub FolderNames()
      Application.ScreenUpdating = False
      Dim xPath As String
      Dim xWs As Worksheet
      Dim fso As Object, j As Long, folder1 As Object
      With Application.FileDialog(msoFileDialogFolderPicker)
      .Title = "Choose the folder"
      .Show
      End With
      On Error Resume Next
      xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
      Application.Workbooks.Add
      Set xWs = Application.ActiveSheet
      xWs.Cells(1, 1).Value = xPath
      xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folder1 = fso.getFolder(xPath)
      getSubFolder folder1
      xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
      xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
      Application.ScreenUpdating = True
      End Sub
      Sub getSubFolder(ByRef prntfld As Object)
      Dim SubFolder As Object
      Dim subfld As Object
      Dim xRow As Long
      For Each SubFolder In prntfld.SubFolders
      xRow = Range("A1").End(xlDown).Row + 1
      Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
      Next SubFolder
      For Each subfld In prntfld.SubFolders
      getSubFolder subfld
      Next subfld
      End Sub
  • To post as a guest, your comment is unpublished.
    jms · 4 months ago
    "VBA: List all filenames in a folder and create hyperlinks" is great! It works perfectly! Thank you for posting! One question... Now that you told us how to add links from folder, is it possible to use those links to get information from say one or two different sheets in each of the files listed? They would be the same cells for each of the files we now have a list for. This would help create a comprehensive contents with active links to otherwise unintelligible file names.
  • To post as a guest, your comment is unpublished.
    alice · 1 years ago
    Great thanks although can not view the files in the selected directory as barry said, it creates hyperlinks for all files in that directory anyway.
  • To post as a guest, your comment is unpublished.
    Chaudhary Mubashir · 1 years ago
    Awesome ..thanks a lot. It really saved my time.
  • To post as a guest, your comment is unpublished.
    barry · 3 years ago
    Running the VBA code listed above, shows the selected directory is empty, when it is full of Excel files.