[حل شده] انتخاب اتومات 5 ستون از بین 100 ستون

[Excel learner]

سلام
من حدود 50 تا فیل اکسل دارم که هر کدوم هم حدود 100 ستون دارن.
به چهار تا ستون از 100 ستون که دیتا های خاصی دارن نیاز دارم.
آیا میشه تو یه فیل خالی اکسل یه برنامه نوشت که فایل اکسل حاوی اطلاعات رو بخونه و فقط 4 تا ستونشو import کنه.

یه نمونه تو ضمیمه آوردم.
با سپاس

[iranweld]

با سلام

پوشه test را در درایو C کپی کنید و فایلهای دیتای خود را به آن منتقل نمایید.(دو فایل موجود درون پوشه برای تست میباشد)
و دقت کنید فایل saved data را خارج آن پوشه کپی و اجرا نمایید

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, i, z1, z2 As Integer, j As Integer

Application.ScreenUpdating = False

Application.DisplayAlerts = False

directory = "c:\test\"

fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
      
    Workbooks.Open (directory & fileName)
        
   z1 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
   ActiveSheet.Range("A3:A" & z1 & ",O3:O" & z1 & ",AW3:AW" & z1 & ",AB3:AB" & z1 & ",V3:V" & z1).Copy
       
    Windows("Saved Data.xls").Activate
    
    z2 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    If z2 <= 2 Then z2 = 3
    
    Range("A" & z2).Select
    
    ActiveSheet.Paste
    
    Workbooks(fileName).Close
    
    fileName = Dir()
    
Loop

Range("A1").Select

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub 

[Excel learner]

فوق العاده....

میشه یه گزینه دیگه اضافه کنین اونو بزنم از ردیف 3 به بعد رو پاک کنه
تشکر

[Excel learner]

من میخواستم ردیف های خاصی رو انتخاب کنم برنامه رو یکم تغییر دادم اما ارور میده
میگه جایی که کپی میکنی با جایی که پیست میکنی برابر نیست

[iranweld]

با سلام

کد فایل شما اصلاح گردید. از پنچره باز شده فولدر دیتای خود را انتخاب کنید

[Excel learner]

حد انتهایی رو چه جوری تنظیم کنم؟
میخوام به برنامه بگم از ردیف 61 تا ردیف 101 رو برام انتخاب کن نه از 61 تا آخر رو...

[iranweld]

حد انتهایی رو چه جوری تنظیم کنم؟
میخوام به برنامه بگم از ردیف 61 تا ردیف 101 رو برام انتخاب کن نه از 61 تا آخر رو...

ActiveSheet.Range("A61:A101" & ",O61:O101" & ",AW61:AW101" & ",AB61:AB101" & ",V61:v101" & ",T61:T101" & ",FE61:FE101" & ",FF61:FF101" & ",K61:K101").Copy