با درود
این کد رو تو همون شیتی که ستون هاتون هست واسه یه کلید بزارین.
ابتدا یه پیام میاد که شما میتونی مشخص کنی چند تا ستونو میخوای کپی کنی.( دیگه من فرض رو بر این گداشتم که شما یه اکسل اصلی داریم و توی یه فولدر گذاشتین و تو همون فولدر براتون این کارو انجام بده). این یه برنامه تکمیلی نیست که بره چک کنه اگر فایل اکسلی به همون نام بود کپی کنه یا نکنه و ....
فقط کارتون راه میندازه
کد HTML:
Dim n
n = InputBox("Please enter the total colum which you want to be copied in separate files", "Number of column in your file")
If n = blank Then Exit Sub 'check if the user click cancel or close button
'""""""""""""""""""""""""""""""""""
If IsNumeric(n) = False Then ' check if the user didn't enter number
MsgBox "your input is not number"
Exit Sub
End If
If n <= 0 Then ' check if the user didn't enter a number greater than 0
MsgBox " your input should be greater than zero"
Exit Sub
End If
Dim i
For i = 1 To n
Dim thisWb As Workbook
Set NewBook = Workbooks.Add
Set thisWb = Workbooks(ThisWorkbook.Name)
thisWb.Worksheets(ActiveSheet.Name).Columns(i).Copy
NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues)
NewBook.SaveAs Filename:=thisWb.Path & "\" & i & ".xlsx"
NewBook.Close savechanges:=True
Next i
علاقه مندی ها (Bookmarks)