İ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 qovluqdan bütün Excel fayllarını necə tez açmaq olar?

Bu yazıda, müəyyən bir qovluqdan bütün iş kitablarını açmaq üçün makroyu təqdim edirəm.

Bütün iş kitablarını VBA ilə bir qovluqda açın

Excel üçün Kutools ilə müəyyən bir qovluğun bütün fayl adlarını göstərin yaxşı fikir3


Bütün iş kitablarını VBA ilə bir qovluqda açın


1. Basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Moduleskodunu skriptə aşağıda qoyun.

VBA: Bütün faylları bir qovluqda açın

Sub OpenFiles()
'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop
End Sub

1 qovluğundan doc faylları açın

3. Basın F5 düyməsini basın, daxilində bütün iş kitablarını açmaq istədiyiniz bir qovluğu seçmək üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
2 qovluğundan doc faylları açın

4. klik OKvə xüsusi qovluqdakı bütün iş kitabları açılmışdır.

ilə Excel üçün Kutools, onun tətbiq edə bilərsiniz Tam yolu kopyalayın Mövcud iş kitabçasının qənaət yolunu və yapışdığınız yerdə istənilən yerə kopyalamaq xüsusiyyətidir. Ekran görüntüsünə baxın:
3 qovluğundan doc faylları açın

Excel üçün Kutools ilə müəyyən bir qovluğun bütün fayl adlarını göstərin

Bir qovluğa faylları açmaq istisna olmaqla, heç bir xüsusi qovluğun bütün fayl adlarını siyahıya salmağa çalışdınızmı? Ilə Excel üçün Kutools'S Faylın adı List kommunal, bir qovluqda bütün növləri və ya müəyyən bir növ faylları tez bir zamanda siyahıya ala bilərsiniz.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. klik Müəssisə > İdxal / İxrac > Filename siyahısı. Ekran görüntüsünə baxın:
4 qovluğundan doc faylları açın

2. İçində Filename siyahısı dialoq, faylları siyahıya almaq istədiyiniz qovluğu seçin, siyahıda istədiyiniz faylın tipini seçin və sonra lazım olan faylın vahidini müəyyən edin. İstəsəniz, siyahısı olan fayl adlarına hiperlinklər yarada bilərsiniz. Ekran görüntüsünə baxın:
5 qovluğundan doc faylları açın

3. klik Okvə xüsusi qovluqdakı bütün fayllar aktiv iş kitabının yeni bir formasında verilmişdir. Ekran görüntüsünə baxın:
6 qovluğundan doc faylları açın



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.

Be the first to comment.