Soru Bir Klasör İçerisindeki Dosyaların İlk 2 Satırını Silmek

[ptcuye41]

Merhaba,
Bir klasörün içerisinde yaklaşık 400 tane excel dosyası var. Bu dosyalardaki ilk 2 satırı toplu halde silmek istiyorum. Nasıl yapacağım konusunda yardımcı olabilir misiniz?

 

[metin_0606]

Merhaba,
Bir klasörün içerisinde yaklaşık 400 tane excel dosyası var. Bu dosyalardaki ilk 2 satırı toplu halde silmek istiyorum. Nasıl yapacağım konusunda yardımcı olabilir misiniz?

Makro masaüstündeki LİSTE isimli klasörün içindeki dosyaların etkin olan sayfasının ilk iki satırını siler makroyu denemeden önce dosyalarınızın yedeklerini almayı unutmayınız

Option Explicit

Sub test()

    Dim wkb As Workbook
    Dim MyPath As String
    Dim MyFile As String
    
    Application.ScreenUpdating = False
    
    Set wkb = ActiveWorkbook

    MyPath = "C:\Users\metin\Desktop\LİSTE\"
    
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    
     MyFile = Dir(MyPath & "*.xlsx")
    
    Do While Len(MyFile) > 0
    
        If MyFile <> wkb.Name Then
    
            Workbooks.Open Filename:=MyPath & MyFile
            
            Rows("1:2").Delete
            
            ActiveWorkbook.Close SaveChanges:=True
            
        End If
            
        MyFile = Dir
        
    Loop
    
    Application.ScreenUpdating = True
    
    MsgBox "işlem tamam", vbInformation
    
End Sub

 

[ptcuye41]

Makro masaüstündeki LİSTE isimli klasörün içindeki dosyaların etkin olan sayfasının ilk iki satırını siler makroyu denemeden önce dosyalarınızın yedeklerini almayı unutmayınız

Option Explicit

Sub test()

    Dim wkb As Workbook
    Dim MyPath As String
    Dim MyFile As String
   
    Application.ScreenUpdating = False
   
    Set wkb = ActiveWorkbook

    MyPath = "C:\Users\metin\Desktop\LİSTE\"
   
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
   
     MyFile = Dir(MyPath & "*.xlsx")
   
    Do While Len(MyFile) > 0
   
        If MyFile <> wkb.Name Then
   
            Workbooks.Open Filename:=MyPath & MyFile
           
            Rows("1:2").Delete
           
            ActiveWorkbook.Close SaveChanges:=True
           
        End If
           
        MyFile = Dir
       
    Loop
   
    Application.ScreenUpdating = True
   
    MsgBox "işlem tamam", vbInformation
   
End Sub

Ellerinize sağlık. Çok teşekkür ederim.

 

[metin_0606]

Ellerinize sağlık. Çok teşekkür ederim.

Rica ederim İyi Çalışmalar