با سلام
پوشه test را در درایو C کپی کنید و فایلهای دیتای خود را به آن منتقل نمایید.(دو فایل موجود درون پوشه برای تست میباشد)
و دقت کنید فایل saved data را خارج آن پوشه کپی و اجرا نمایید
کد PHP:
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
علاقه مندی ها (Bookmarks)