با سلام
در فایل پیوست هر 10000 سطر هم بصورت یک شیت در این فایل و هم بصورت یک فایل مجزا در مسیر فایل جاری ایجاد میگردد(دیتای خود را در شیت اول این فایل پیست کنید یا ماکرو ذیل را در فایل خود اضافه کنید)
کد PHP:
Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 1 To 100
Rows("1:10000").Cut
Sheets.Add After:=Sheets(Sheets.Count)
Rows("1:1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Sheet1").Select
ActiveSheet.Buttons.Add(241.5, 93, 96, 38.25).Select
Selection.OnAction = "Macro1"
Next
Sheet_SaveAs
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sub Sheet_SaveAs()
Dim wb As Workbook
For Each Sheet In Worksheets
xx = Sheet.Name
If Sheet.Name <> "Sheet1" Then
Sheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\" & xx & ".xlsx"
.Close
End With
End If
Next
End Sub
علاقه مندی ها (Bookmarks)