[Yardım]  Alt klasörlerde dahil tüm Word dosyalarını açmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Alt klasörlerde dahil tüm Word dosyalarını açmak

İleti#1)  mehmet1279 » 07 Haz 2018 13:06

Arkadaşlar aşağıda oradan buradan yaptığım araştırmalar ile oluşturduğum bir makro var. bu işte yeniyim bu nedenler bazı kodları fazla ve gereksiz olabilir yada başka bir kod ile kısaltılabilir. uzman arkadaşlarında incelemesini istiyorum.

Ayrıca araştırdığım tüm subfolder kodları iki farklı makro kullanılarak birbirlerini çağırarak yapıyor. bu benim alt klasördeki dökümanlarıda çağırmak istediğimde kısır döngüye giriyor veya açılan dosyayı tekrar açıp işlem yapıyor. tek makro içerisinde alt klasörleri çağırmak benim için önemli.

Önerilerinizi bekliyorum.

Kod: Tümünü seç
Private Sub All_Sub_Follders ()
   
   Dim myPath, myFile, myExtension, FileName, Path, FullPath As String
   Dim Folders() As String
   Dim i, x, y As Long

   Application.ScreenUpdating = False
   
i = 0
   Do
      If i = 0 Then
         ReDim Preserve Folders(0 To x) As String
         Folders(i) = “c:\test”
         Path = “c:\test”
      Else
         Path = Folders(i)
      End If
   
      FileName = Dir(Path & "\*.*", vbDirectory)
   
      Do While Len(FileName) <> 0
         If Left(FileName, 1) <> "." Then
            FullPath = Path & "\" & FileName
            If (GetAttr(FullPath) And vbDirectory) = vbDirectory Then
               x = x + 1
               ReDim Preserve Folders(0 To x) As String
               Folders(x) = FullPath
            End If
         End If
         FileName = Dir()
      Loop
   i = i + 1
   Loop While i <= x
   
For y = 0 To x
      myPath = Folders(y) & "\"
      myExtension = "*.doc*"
      myFile = Dir(myPath & myExtension)

      Do While myFile <> ""
         DoEvents
         Documents.Open FileName:=myPath & myFile
         
         
         ‘Dosyaya yapılacak işlem
         
         
         ActiveDocument.Close SaveChanges:=wdSaveChanges
         DoEvents
         myFile = Dir
      Loop
   Next y
   Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
mehmet1279
 
Kayıt: 10 May 2018 19:58
Meslek: danışman
Yaş: 35
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Alt klasörlerde dahil tüm Word dosyalarını açmak

İleti#2)  mehmet1279 » 11 Haz 2018 10:51

yardımcı olacak yorum yapacak arkadaşları bekliyorum.
Kullanıcı avatarı
mehmet1279
 
Kayıt: 10 May 2018 19:58
Meslek: danışman
Yaş: 35
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

cron
Bumerang - Yazarkafe